如何用vba给单元格区域添加数据有效性下拉列表？

2024-06-27 03:56| 来源: 网络整理| 查看: 265

如何用vba给单元格区域添加数据有效性下拉列表？ 2018年10月12日作者：水星Excel 13,080 次浏览暂无评论

在vba中Range对象的Validation属性可以返回数据有效性对象Validation。

要给单元格区域添加数据有效性，需要先用Validation对象的Delete方法删除之前的数据有效性，然后再用Validation对象的Add方法添加。

以下是一段给单元格添加下拉列表的示例代码：

Sub QQ1722187970() Dim oWK As Worksheet Dim oRng As Range Set oWK = Excel.ActiveSheet Set oRng = oWK.Range("a1:a100") With oRng.Validation '先删除之前的数据有效性 .Delete '再添加新的数据有效性下拉列表 .Add Type:=xlValidateList, Formula1:="红,黄,蓝,绿" End With End Sub

上述代码虽然可以给单元格添加下拉列表，但是Formula1参数的字符串不能超过255个字符。

如果要显示的下拉列表项过多，字符串超过了255，则无法添加下拉列表。

其它相关文章推荐：如何用vba给单元格区域添加、修改、删除条件格式？如何用vba返回多个单元格区域的联合区域？如何用vba取消工作表中所有行列的隐藏？如何用vba在excel单元格区域中输入函数公式？如何用vba操作word的编号列表项？excel vba Range对象的Characters属性无效的解决办法分类 : EXCEL VBA , VBA 标签 : Validation , 下拉列表 , 数据有效性

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

公司简介

联系我们