я создал пользовательскую форму 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