我试图将值从数组传递到特定单元格中的下拉列表。假设我有一个包含值1,2,3的数组,并且我希望单元格A1包含具有这些值的下拉列表,请问有什么办法可以做到这一点?我试图达到这一目的,而不必先将这些值分配给不同的单元格并使用数据验证。(并且如标题中所述,我不想使用组合框或用户表单)
这应该为您提供一种方法:
Dim myArray
myArray = Array("1", "2", "3")
Range("A" & 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=myArray(0) & "," & myArray(1) & "," & myArray(2)
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句