如何使用 VBA 在 Excel 的下拉列表中选择第一个 iterm

Question

我使用数据验证来创建一些下拉列表。任何人都知道如何使用 VBA 在下拉列表中选择第一个 iterm？

我尝试了“拆分”功能：

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

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

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

谢谢！

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")
c.Value = Range(Mid(c.Validation.Formula1, 2)).Cells(1, 1).Value