如何用vba给单元格区域添加数据有效性下拉列表? | 您所在的位置:网站首页 › vba数据有效性模糊输入 › 如何用vba给单元格区域添加数据有效性下拉列表? |
如何用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 联系。 |
CopyRight 2018-2019 实验室设备网 版权所有 |