表格vba下拉框模板

以下是一个简单的 VBA 下拉框模板，用于在表格中创建下拉框：

1. 创建一个带有下拉框的单元格：

Sub CreateDropDown()
    Dim cell As Range
    Set cell = Range("A1")
    With cell.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:="Option 1,Option 2,Option 3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

2. 将代码复制到模板中并运行它。它将在 A1 单元格中创建一个下拉框，其中包含选项 1、选项 2 和选项 3。

3. 将代码调整为适合你的需求。你可以更改单元格的位置，更改选项的值，并添加其他选项。

希望这可以帮助你创建自己的 VBA 下拉框模板。