множественный флажок excel-vba

Question

В настоящее время я работаю над проектом по автоматизации заметок.

Я хочу знать, как результаты нескольких флажков могут отображаться на одном флажке

, см. Пример ниже скриншот Если я отмечу флажок «собака, кошка и мышь», он должен отображаться в текстовом поле как «собака, кошка, мышь» соответственно или, если я сниму один из флажков, он не будет отображаться в текстовом поле

спасиботак много за вашу помощь

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

Другим продвинутым решением было бы использование модуля класса для флажков, подобных этому примеру