Excel-VBA多个复选框

Question

即时通讯目前正在致力于自动执行备忘录的项目。

我想知道如何将多个复选框结果显示为单个复选框

请参见下面的屏幕截图示例 如果我选中复选框dog，cat和mouse，它应该分别在文本框中显示为dog，cat，mouse；或者，如果取消选中其中一个复选框，则不会在文本框中显示

非常感谢你的帮助

Answer 1

直接的解决方案是将以下代码放入用户窗体的模块中

Option Explicit
Private petsChecked(1 To 3) As String
Private Sub chCat_Click()
    checkPets chCat, 1, "Cat"
    fillChecked
End Sub

Private Sub chDog_Click()
    checkPets chDog, 2, "Dog"
    fillChecked
End Sub

Private Sub chMouse_Click()
    checkPets chMouse, 3, "Mouse"
    fillChecked
End Sub
Private Sub checkPets(fill As Boolean, pos As Byte, petName As String)
    If fill Then
        petsChecked(pos) = petName
    Else
        petsChecked(pos) = ""
    End If
End Sub
Private Sub fillChecked()
    TextBox1 = Join(petsChecked, " ")
    ' ListBox1.List = petsChecked   '  <= this is the code for a listbox
End Sub

另一个高级解决方案是使用类似于该示例的复选框的类模块