VBA 單元格下拉菜單的代碼
时间: 2024-05-12 11:15:28 浏览: 13
下面是一个简单的 VBA 代码示例,用于在单元格中创建下拉菜单:
```vb
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DataList As Range
Set DataList = Range("A1:A5") ' 设置下拉列表的数据范围
With Target.Validation
.Delete ' 删除当前单元格中的任何现有验证
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Application.Transpose(DataList.Value), ",") ' 添加下拉列表验证
.IgnoreBlank = True ' 忽略空值
.InCellDropdown = True ' 在单元格中显示下拉列表
.InputTitle = "" ' 输入提示
.ErrorTitle = "" ' 错误提示标题
.InputMessage = "" ' 输入提示消息
.ErrorMessage = "" ' 错误提示消息
.ShowInput = True ' 显示输入提示
.ShowError = True ' 显示错误提示
End With
End Sub
```
在该代码中,我们通过使用 `Worksheet_SelectionChange` 事件来为当前选定的单元格添加下拉列表。在此示例中,我们将下拉列表的数据范围设置为 `A1:A5`。您可以根据需要更改此范围。要将此代码添加到您的工作簿中,请按 `Alt + F11` 打开 VBA 编辑器,然后将代码复制并粘贴到适当的工作表模块中。