VBA宏：應用程序定義或對象定義的錯誤

Question

我在VBA宏上的語法上苦苦掙扎。 試圖從工作表1的工作表2列表中創建一個選擇，它給了我運行時錯誤'1004'：應用程序定義的錯誤或對象定義的錯誤。

Sub Macro1()

Sheets("Sheet1").Select
Sheets("Sheet1").Range("G3").Select
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="Sheet2!$A$1:$A$14"
.IgnoreBlank = True
.InCellDropdown = True
End With


End Sub

請幫助我了解為什么會收到此錯誤以及如何解決該錯誤？

Answer 1

如果您多次運行宏，則需要確保刪除所有現有的驗證

Sub Macro1()
    With Sheets("Sheet1").Range("G3").Validation
        'Remove existing validation
        .Delete
        'Add new validation
        .Add Type:=xlValidateList, _
             AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, _
             Formula1:="=Sheet2!$A$1:$A$14"
           'Note - need ^ (i.e. the equals sign to make it a formula)
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End Sub