我使用数据验证创建了一些下拉列表。有人知道如何使用VBA选择下拉列表中的第一个iterm吗?
我尝试了“拆分”功能:
cell.Value = Split(cell.Validation.Formula1, ",")(0)
但效果不佳,只有当我在“数据验证”窗口的源中输入“选项1,选项2”时,它才会起作用。如果我将源代码引用到一系列选项,那么它将返回错误。
我想应该有一些更聪明的方法。
谢谢!
最佳答案
Sub test()
Dim adr As String
With Range("c4")
adr = Mid(.Validation.Formula1, 2)
Debug.Print Range(adr).Cells(1, 1)
End With
End Sub
所以你的答案是:
set c = range("c4")<br/>
c.Value = Range(Mid(c.Validation.Formula1, 2)).Cells(1, 1).Value
关于excel - 如何使用VBA在Excel中选择下拉列表中的第一项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18126636/