单元格下拉框实现复选框多选

shee520

arr = Sheets("值").Range("A2:A5")
        With ListBox1
            .MultiSelect = 1
            .ListStyle = 1
            .List = Sheets("值").Range("A2:A5").Value

  请教zhaogang1960，如果不引用A2到A5单元格内容，而是静态的直接引入字符呢：保湿 补水 祛痘 滋润
其他要达到的效果跟上述所说不变。请问完整代码是什么呢，谢谢。

另外如果一个表需要2个以上下拉框呢，并且下拉框所在列并不是楼上例子中的第2列和第3列呢，是其他列呢，甚至下拉框间的列是分散的啊。

恳请赵老师zhaogang1960 对代码予以说明怎么改，这样才好以不变应万变。非常感谢！

huzh

zhaogang1960 发表于 2013-3-19 21:37
不知所云，请上传附件说明效果

老师在吗？关于“如何用VBA实现单元格下拉框复选”实例效果，我模仿制作不出来，不知道什么地方出问题了，下载了您做好的附件，打开就是出现不了选择内容在单元格中，单元格的复选框出来了，就是数据好像关联不上，选择后单元格内为空

Djvs

zhaogang1960 发表于 2012-12-3 16:08
要求有悖有效性规定，可使用列表框实现：
在工作表中插入一个列表框，单击一个或多个数值后，双击空白处即 ...

您好，我是新手，遇到一个类似问题不知能否帮忙解决？
因为不能发私信，只能把我帖子的连接发到这里，请帮我看下好吗？谢谢！

（菜鸟求助）如何用excel创建 复选框多选-自动清除选择 效果
http://club.excelhome.net/thread-1163513-1-1.html

_yzm有个林小胖_

zhaogang1960 发表于 2013-2-28 20:34
在工作表中插入一个列表框，见下面演示，把代码复制到该工作表代码编辑区中：

你好 能加你QQ吗？ 因为你发的这个步骤不是很懂 625045279 这我Q 如果可以的话 能教我吗 因为现在急着要用  谢谢！！!

wtb168168

zhaogang1960 发表于 2013-3-18 18:27
那是画控件时自动形成的，不用管它

有一个bug，就是当同一行中的其它列单元格内容非常多时，比如是一段文章1000字的，那么此时该行的行距非常大，导致的问题时，选择复选框中的选项时，会出现选中的值偏移到别的上一行某左边一列去了。。。即本来应该是C5单元格的值，结果误放置于B4单元格中。请问怎么办{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}

anqier_vvv

huzh 发表于 2014-9-7 19:32
老师在吗？关于“如何用VBA实现单元格下拉框复选”实例效果，我模仿制作不出来，不知道什么地方出问题了 ...

请问你的问题解决了吗？我也出现了一样的问题，搞不明白。。。

稚宥

权限不够，没法细致咨询，醉了

稚宥

这个VB是适用于整个EXCEL，能不能只适用于局部的某一列，因为每一列需要下拉多选的列表内容不同呢

稚宥

lsdongjh 发表于 2013-3-19 12:55
在你代码的基础上，稍做修改：

非常棒，这段代码在office2010可以实现。那有没有办法让代码只适用于局部的列，因为同一个表的好几列都要多选，但是适用的多选值不是同一个序列，还请高手指教

乖小孩

謝謝各位的分享，真的非常實用的代碼