Question

这是对我之前回答的问题的后续跟进。我很抱歉，如果我在这方面提出了很多问题，我对VBA来说还是比较新的。

我有一行代码可以将公式放在单元格中。它给了我

Application Defined or Object Defined Error message:

以下是整个宏的代码，最后一行给出错误。

Sub DBFtoAVI()
'
' DBFtoAVI1 Macro
' Updated by Scott Schmeling on 2/10/2014 based on a Macro recorded by Rebecca Davis
'

' Format As Adjusted

    Sheets("As Adjusted").Select
    Columns("K:K").Copy
    Columns("K:K").PasteSpecial Paste:=xlPasteValues
    Columns("M:S").EntireColumn.AutoFit
    Columns("Q:R").Delete Shift:=xlToLeft

' Create Names for Item, Treat, and Price

' Item

    Sheets("ITEM").Select
    Cells.Select
    With Selection
        .EntireColumn.AutoFit
        .Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending
    End With
    Columns("B:W").Select
    ActiveWorkbook.Names.Add Name:="itemlookup", RefersToR1C1:="=ITEM!C2:C23"

' Treat

    Sheets("TREAT").Select
    Cells.Select
     With Selection
        .EntireColumn.AutoFit
        .Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending
    End With
    Columns("B:L").Select
    ActiveWorkbook.Names.Add Name:="treatlookup", RefersToR1C1:="=TREAT!C2:C12"

' Price

    Sheets("PRICE").Select
    Cells.EntireColumn.AutoFit
    Columns("D:J").Select
    ActiveWorkbook.Names.Add Name:="pricechangelookup", RefersToR1C1:= _
        "=PRICE!C4:C10"


'    Sheets("ITEM").Select
'    Columns("C:C").Select
'    Selection.Find(What:="d", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
'        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
'        False, SearchFormat:=False).Activate


' Insert DBF to AVI Worksheet

    Sheets.Add(Before:=Sheets(5)).Name = "DBFtoAVI"
    Sheets("DBFtoAVI").Select
    ActiveCell.FormulaR1C1 = "='As Adjusted'!RC"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:M1"), Type:=xlFillDefault
    Range("A1:M1").Select
    Selection.AutoFill Destination:=Range("A1:M2000"), Type:=xlFillDefault
    Range("A1:M2000").Select

' Create Header and Columns A - E

    Columns("A:E").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").FormulaR1C1 = "Type"
    Range("B1").FormulaR1C1 = "Action"
    Range("C1").FormulaR1C1 = "Left"
    Range("D1").FormulaR1C1 = "Right"
    Range("E1").FormulaR1C1 = "PriceDiff"
    Range("A4").FormulaR1C1 = "T"
    Range("B4").FormulaR1C1 = "=IF(RC[-1]='T',VLOOKUP(RC[7],treatlookup,11,FALSE),VLOOKUP(RC[7],itemlookup,22,FALSE))"

再次非常感谢帮助。

Answer 1

更改

Range("B4").FormulaR1C1 = "=IF(RC[-1]='T',VLOOKUP(RC[7],treatlookup,11,FALSE),VLOOKUP(RC[7],itemlookup,22,FALSE))"

到

Range("B4").FormulaR1C1 = "=IF(RC[-1]=""T"",VLOOKUP(RC[7],treatlookup,11,FALSE),VLOOKUP(RC[7],itemlookup,22,FALSE))"

公式应用程序定义或对象定义的错误

1 个答案: