下拉组合框多选（自动加逗号）

我们会通过组合框下拉来筛选需要的数据。有的时候我们需要的条件是多个的，也是随机组合的。那么我们就不可能把所有组合都列举出来。

第一步我们需要先选择筛选条件。如何组合框多选条件？即每下拉一次选择条件后，再下拉选择更多的条件。

效果如下图：

1.下拉组合框，选择Word

2.再一次选择Excel

3.自动添加“、”，添加多个筛选条件

详细代码：

通过以下代码（插入组合框的更新后事件中），可以实现用组合框重复多选，也可以手工修改录入内容：
Private Sub Combo0_AfterUpdate()
Dim i As Integer, strList As String
    With Combo0
        For i = 1 To .ListCount
            strList = IIf(Nz(strList) = "", "", strList & ";") & .ItemData(i)
        Next
        If Nz(.Text) <> "" Then
            If InStr(1, .Tag, .Text) = 0 And InStr(1, strList, .Text) > 0 Then
                .Value = IIf(Nz(.Tag) = "", "", .Tag & "、") & .Text
            End If
            .Tag = .Text
        Else
            .Tag = ""
        End If
    End With
End Sub