сделать событие на Dynami c пользовательский флажок - PullRequest
0 голосов
/ 03 февраля 2020

я создал пользовательскую форму excel (с именем UserForm2 UserForm2.Show vbModeless) и флажок add, динамически получающий значение с веб-страницы.

, поэтому я назвал каждый флажок уникальным именем.

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

По крайней мере, мне нужно создать и назначить команду для каждого уникального флажка.

UserForm2.Show vbModeless
UserForm2.Width = 500
Dim vuoto As String
Dim thecheck, LstBx, lstbx1, LABELBx, LABELBx1, Button As Object
Dim labelCounter, Larray As Long
Dim arrList, arrList1, ListaURL As Variant
Larray = 0

For L = 1 To list.length - 1

    'Debug.Print L & "     Name: " & list.Item(L).Name, "Value: " & list.Item(L).value
    If InStr(1, list.Item(L).Name, ".descrizione") > 0 And InStr(1, list.Item(L).Name, "elencoSchemiDocum") > 0 Then

        labelCounter = labelCounter + 1

        Set thecheck = UserForm2.Controls.Add("Forms.checkbox.1", , True)
        ' NOME OGGETTO DA USARE PER RECUPERO FLAG
        thecheck.Caption = list.Item(L).value    'etichetta della CHECKBOX
        thecheck.Left = 10
        thecheck.Width = 250
        thecheck.Top = 25 * labelCounter
        thecheck.Height = 20
    End If
    If InStr(1, list.Item(L).Name, ".impostazione") > 0 And InStr(1, list.Item(L).Name, "elencoSchemiDocum") > 0 Then
        thecheck.Name = list.Item(L).Name
        'thecheck.OnAction = "cambiato"
        thecheck.value = list.Item(L).value
    End If
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...