5

Data Validation を使用して、いくつかのドロップダウン リストを作成しました。VBA を使用してドロップダウン リストの最初の iterm を選択する方法を知っている人はいますか?

「分割」機能を試しました：

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

しかし、それはうまく機能しませんでした.Data Validationウィンドウのソースに「option1、option2」のように入力した場合にのみ機能します。ソースに一連のオプションを参照すると、エラーが返されます。

もっと賢い方法があるはずだと思います。

ありがとう！

4

1 に答える 1

5 
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

于 2013-08-08T13:15:46.640 に答える