如何用代码模拟选中复选框（巧妙制作拥有复选功能的下拉框按钮）

这是一个突如其来的想法。

众所周知，在进行报表制作的时候，Excel为我们提供了组合框（有下拉单选功能），列表框（有复选功能）等控件。但是，拥有复选功能的下拉框该如何制作呢？比如下面的例子：

其实列表框可以实现复选功能，但是它比较占位置，如果你的报告在同一个屏幕能够展示更多的数据肯定是极好的。这也是我想要的。

苦思冥想，终究是无法通过一个控件实现，那么就多来几个，通过命令按钮、列表框、文本框的组合，完美实现拥有复选功能的下拉框。

在这里列表框的介绍不做说明，最主要的是能够知道listfillrange为选项字段所在位置（示例中的城市）。如下所示：

按钮完毕，那么图表又如何实现联动的呢？

将复选框内被选择的字段放置在单元格内，然后利用公式在数据源中进行匹配判断即可。

代码放置在当前活动表格下的VB界面内。

Private Sub ListBox1_Change() Dim str As String On Error Resume Next str = "" ActiveSheet.Range("b1:b100").Clear '选择项位置内容清除 Set d = CreateObject("scripting.dictionary") '创建字典 For i = 0 To ListBox1.ListCount - 1 '利用循环判断是否被选中 If ListBox1.Selected(i) = True Then d(i) = ListBox1.List(i) If d.Count = 1 Then M = "" Else M = ";" End If str = str & M & ListBox1.List(i) End If Next ActiveSheet.Range("b1").Resize(d.Count) = Application.Transpose(d.items) '选择项放入当前表B1 TextBox1.Text = str End Sub Private Sub CommandButton1_Click() If CommandButton1.Caption = ">" Then ActiveSheet.ListBox1.Visible = 1 CommandButton1.Caption = "<" Else ActiveSheet.ListBox1.Visible = 0 CommandButton1.Caption = ">" End If End Sub

欢迎点击关注，后续会有更多精彩内容