Как поместить значение флажков в текстовое поле, когда я нажимаю кнопку команды? - PullRequest
Новая
       11

Как поместить значение флажков в текстовое поле, когда я нажимаю кнопку команды?

0 голосов
/ 15 октября 2018

Я новичок в использовании VBA Userforms.У меня есть ряд флажков, и я хочу поместить значение отмеченных флажков в текстовое поле, когда я нажимаю кнопку команды.Я уже переименовал флажки и при вводе кода / формулы я сталкиваюсь с ошибкой.Я надеюсь, что вы можете помочь мне с этим.

Private Sub CommandButton1_Click()

    Call Level1

End Sub

Sub Level1()

    Dim n As Long
    For n = 26 To 89
        'UserForm1.Controls("CheckBox" & n) = False

    Next
    Dim i As Long, txt As String
    For i = 1 To 3

        **If UserForm1.Controls("Checkbox" & i) = True Then** (Error Here)
            txt = txt & UserForm1.Controls("Checkbox" & i).Caption & ", "

        End If
    Next

    txt = Left(txt, Len(txt) - 2)
    'Cells(1, 1) = txt
    TextBox1.Value = txt

End Sub

Моя форма пользователя выглядит следующим образом.

Когда я щелкаю форму Добавить в QA, отмеченные мной значения должны быть введены в текстовое поле

В любом случае, это можно упростить?У меня есть другие флажки, которые мне нужно ввести, и их больше 50. Спасибо.

...