如何使用vbs在excel中添加下拉列表

您好我想在使用vbs的excel中添加一个下拉列表，并且出现以下错误。如何使用vbs在excel中添加下拉列表

vbs(18, 15) Microsoft VBScript compilation error: Syntax error

我甚至记录了一个marco并使用了代码从那里仍然没有工作。

第18行和第15行是带有add关键字的行。

Range("A1").Select 
    With Selection.Validation 
     .Delete 
     .Add (Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
     xlBetween, Formula1:="=$Q$9:$Q$11") 
     .IgnoreBlank = True 
     .InCellDropdown = True 
     .InputTitle = "" 
     .ErrorTitle = "" 
     .InputMessage = "" 
     .ErrorMessage = "" 
     .ShowInput = True 
     .ShowError = True 
    End With

Q9：Q11具有样本数据集我到底做错了什么？

来源

2014-02-14 Abhishek Asthana

您需要用它们的直接vbs数字等效值替换vba内部常量xlValidateList（您可以通过VBA帮助获取该数值）。这工作：

Dim objExcel, objWB, objws 
Set objExcel = CreateObject("excel.application") 
Set objWB = objExcel.Workbooks.Add 
Set objws = objWB.Sheets(1) 
With objws.Range("A1").Validation 
     .Add 3, 1, 1, "=$Q$9:$Q$11" 
     .IgnoreBlank = True 
     .InCellDropdown = True 
     .InputTitle = "" 
     .ErrorTitle = "" 
     .InputMessage = "" 
     .ErrorMessage = "" 
     .ShowInput = True 
     .ShowError = True 
end With

enter image description here

来源

2014-02-15 07:45:40 brettdj

我没想到的是.. –

如何使用vbs在excel中添加下拉列表

回答

相关问题