- Katılım
- 5 Kasım 2006
- Mesajlar
- 603
- Excel Vers. ve Dili
- TÜRKCE Excel 2021 32bit
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
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
Rich (BB code):
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
Rich (BB code):
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