从 excel 宏中的验证列表中获取可能的值

Question

我需要在 excel 宏中获取单元格下拉列表的所有值。

我是这样创建下拉列表的：

    Sub DropDOwn()
'
' DropDOwn Macro
'

'
    Range("F1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="si;no;a veces"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With



End Sub

但我不知道如何使用宏获取下拉列表的所有可能值

Answer 1

点击任意单元格然后运行:

Sub IsIt()
    On Error GoTo trap
    MsgBox ActiveCell.Validation.Formula1
    On Error GoTo 0
    Exit Sub
trap:
    MsgBox "no data validation"
    On Error GoTo 0
End Sub

获取使用 Formula1 或错误消息应用的项目字符串。

从 excel 宏中的验证列表中获取可能的值

get possible values from validation list in excel macro

excel

vba

drop-down-menu