对excel单元格批量添加下拉框并设置提示信息

迷路的蓝爸爸

于 2023-11-01 09:04:10 发布

阅读量647

点赞数 7

分类专栏： excel 文章标签： excel 开发语言

本文链接：https://blog.csdn.net/qq_51982566/article/details/134153531

版权

excel 专栏收录该内容

3 篇文章

订阅专栏

Sub AddDropdownList()
Dim data As Variant
data = Array("迷路的蓝爸爸", "迷路的红爸爸", "迷路的龙宝宝", "迷路的塔叔叔")

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Range("A1") = "名字"
With ws.Range("A2:A10").Validation
    .Delete '删除原有的数据验证
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(data, ",")
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "请选择选项"  '下拉框的提示文本
    .ErrorTitle = "无效的输入"  '无效输入时的提示文本
    .InputMessage = "请从下拉框中选择选项"  '下拉框的提示信息
    .ErrorMessage = "你选择的不在下拉框中，请重新选择"  '无效输入时的提示信息
    .ShowInput = True
    .ShowError = True
End With
    
End Sub