excel - 如何使用VBA在Excel中选择下拉列表中的第一项

Question

我使用数据验证创建了一些下拉列表。有人知道如何使用VBA选择下拉列表中的第一个iterm吗？

我尝试了“拆分”功能:

cell.Value = Split(cell.Validation.Formula1, ",")(0)

但效果不佳，只有当我在“数据验证”窗口的源中输入“选项1，选项2”时，它才会起作用。如果我将源代码引用到一系列选项，那么它将返回错误。

我想应该有一些更聪明的方法。

谢谢!

Answer 1

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