论坛问题:

参考网上的组合框的模块，设计了一个可多选的组合框。

Public Function MultComb()
  Dim i As Integer, strList As String
    With Screen.ActiveControl
        If Len(Nz(.Value)) = 0 Then
            .Tag = ""
        Else
            '当选择的数据在组合框中已经存在时（数据在中间或末尾），把已存在的数据替换成空字符串
            If InStr(1, .Tag, "、" & .Value) > 0 Then
                ' MsgBox "输入的数据已经存在"
                ' Exit Function
                .Tag = Replace(.Tag, "、" & .Value, "")
            End If
            '当选择的数据在组合框中已经存在时（数据在开头），把已存在的数据替换成空字符串
            If InStr(1, .Tag, .Value) > 0 Then
                .Tag = Replace(.Tag, .Value, "")
            End If
            '写入选择的数据
            .Tag = .Tag & "、" & .Value
            If Left$(.Tag, 1) = "、" Then
                .Tag = Mid$(.Tag, 2)
            End If
            .Value = .Tag
        End If
    End With
End Function

帖子链接

组合框多选打印的问题 http://www.accessoft.com/bbs/showtopic.asp?id=29175

实现示例：

点击下载此附件