Soru CheckBox Class

[FERAZ]

Merhaba.

Class ile Checkbox yaptım kodlar doğru çalışıyor fakat uzun sürüyor biraz kod gereksiz çalışıp.

Kodların amacı hangi checkbox seçilirse ve o işaretliyse işaretsiz değilse işareli olsun.
Koddaki kırmızı yere gelince tekrar kod baştan başlayıp uzuyor işlem.
Enableevents gibi birşey olması gerek sanırım yapamadım Bu sayfa olaylarında işe yarıyor.

https://www.dropbox.com/s/vo4v076dcoew58m/Classs Checkbox tek secim.xlsm?dl=0

Public WithEvents cheksec As MSForms.CheckBox

Private Sub cheksec_Change()

    For Each cc In UserForm1.Controls
        If TypeName(cc) = "CheckBox" Then
            If cc.Name <> cheksec.Name Then
                cc.Value = False
             Else
                cheksec.Value = (Not cheksec.Value)
            End If
        End If
    Next
End Sub

Dim sec() As New cehekKLas


Private Sub UserForm_Initialize()
    Dim a As Byte
    For Each aa In Me.Controls
        If TypeName(aa) = "CheckBox" Then
            a = a + 1
            ReDim Preserve sec(a)
            Set sec(a).cheksec = aa
        End If
    Next
End Sub

 

[Cengiz Demir]

Tam olarak hangi amaçla kullanacağını bilmediğim için yazıyorum.
Option Button ile yapmak istediğiniz işlem olmuyor mu ?. Option butonlarla kod yazmanıza da gerek kalmamış olur.

 

[FERAZ]

OptionButton ile yapılır.
Fakat bana CheckBox için Class modül mantığı gerek üstad.
Açıkçası ileride lazım olabilir ve class olayını kavramak için örnek yaptım.

 

[Cengiz Demir]

OptionButton ile yapılır.
Fakat bana CheckBox için Class modül mantığı gerek üstad.
Açıkçası ileride lazım olabilir ve class olayını kavramak için örnek yaptım.