如何在VBA中实现下拉复选框

fxl447098457

740688321 发表于 2016-12-10 12:47
请问版主，这什么这个excelhome论坛上传excel附件还需要压缩，难道不能改进一下？

这样可减少文件的空间占用啊。以免造成不必要的浪费,节省网站服务器的开销。别人下载也很快就下载完了，节省时间啊。

蓝桥玄霜

1. Private Sub ListBox1_Change()
   
2. w = ListBox1.List(ListBox1.ListIndex)
   
3. If ListBox1.Selected(ListBox1.ListIndex) = True Then
   
4.     If InStr(ActiveCell, w) = 0 Then ActiveCell = ActiveCell & "," & w
   
5. Else
   
6.     If InStr(ActiveCell, ",") Then
   
7.         If InStr(ActiveCell, w) = 1 Then
   
8.             ActiveCell = VBA.Replace(ActiveCell, w & ",", "")
   
9.         Else
   
10.             ActiveCell = VBA.Replace(ActiveCell, "," & w, "")
    
11.         End If
    
12.     Else
    
13.         ActiveCell = VBA.Replace(ActiveCell, w, "")
    
14.     End If
    
15. End If
    
16. End Sub
    

复制代码

金冈刂

蓝桥玄霜 发表于 2016-12-12 12:13

蓝版您好，我在运用时，想运用到多列，不会修改，不知道能否再次得到您的帮助。万分感谢！
https://club.excelhome.net/thread-1625878-1-1.html

gaoyong0713

cunfu2010 发表于 2016-12-9 13:56
蓝版你好，代码放入后，如果点击空白单元格会提示类型不匹配

学习学习，这些东西好多都忘了