如何使用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