Uzamčeno - nelze přidávat nové příspěvky.
Zkus tohle (sice jsem to psal jen tak po paměti, ale mohlo by to fungovat):
Dim ChB As Control
For Each ChB In UserForm.Controls
If TypeName(ChB) = "CheckBox" And ChB.Value = True Then
MsgBox ChB.Name & " je zaškrtnutý"
End If
Next ChBcitovat
Dim ChB As Control
For Each ChB In UserForm.Controls
If TypeName(ChB) = "CheckBox" And ChB.Value = True Then
MsgBox ChB.Name & " je zaškrtnutý"
End If
Next ChBcitovat
RSS nejnovější články