Tüm OptionButon' lar ile çalışan kod

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba,
Userform' da yaklaşık 20 kadar optionbutton bulunuyor,
buradaki tüm optionbutton' lar tıklandığı zaman basit bir kodu tetikleyecek (kod hespsi için aynı) olan;
her bir option button içine ayrı ayrı yazmak yerine; bu durum class module nasıl oluşturulabilir?

Örnek:
Kod:
Private Sub OptionB8_Click()
Call AllOptButton
End Sub


Sub AllOptButton()

MsgBox "Option Button Tıklandı", vbInformation, "Bilgi"

End Sub
Teşekkürler,
iyi Haftalar.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
Bir ClassModule açın ve aşağıdaki kodları yapıştırın.
C++:
Public WithEvents MyOpt As MSForms.OptionButton
Private Sub MyOpt_Click()
Dim x As Integer
    x = Split(MyOpt.Name, "OptionButton")(1)
    MsgBox "Option Button" & x & " Tıklandı", vbInformation, "Bilgi"
End Sub
Userform Initialize olayının içine
C++:
    For i = 1 To 20
        s = s + 1
        ReDim Preserve MyOpt(1 To s)
        Set MyOpt(s).MyCombo= Controls("OptionButton" & i)
    Next i
 

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Bir ClassModule açın ve aşağıdaki kodları yapıştırın.
C++:
Public WithEvents MyOpt As MSForms.OptionButton
Private Sub MyOpt_Click()
Dim x As Integer
    x = Split(MyOpt.Name, "OptionButton")(1)
    MsgBox "Option Button" & x & " Tıklandı", vbInformation, "Bilgi"
End Sub
Userform Initialize olayının içine
C++:
    For i = 1 To 20
        s = s + 1
        ReDim Preserve MyOpt(1 To s)
        Set MyOpt(s).MyCombo= Controls("OptionButton" & i)
    Next i
Hocam ilginize teşekkürler,
Sanırım bir yerlerde eksiklik var, çalışmadı
tecrübelerime göre Class Modül adını Userform' da belirtmemiz gerekecek.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
Denemeden göndermiştim. Hem bir yazım hatası varmış hem de değişken tanımı eksikmiş.
Şimdi denedim. Örneği inceleyiniz.
 

Ekli dosyalar

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Denemeden göndermiştim. Hem bir yazım hatası varmış hem de değişken tanımı eksikmiş.
Şimdi denedim. Örneği inceleyiniz.
teşekkürler Hocam
 
Üst