- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Ekli Userform' da option butonlar bulunmakta; option butonları numaralara göre ileri ve geri olarak seçilmesi için aşağıdaki şekilde kod oluşturdum ama bunun daha pratik bir yöntemi olabilir mi?
teşekkürler,
iyi Çalışmalar.
Ekli Userform' da option butonlar bulunmakta; option butonları numaralara göre ileri ve geri olarak seçilmesi için aşağıdaki şekilde kod oluşturdum ama bunun daha pratik bir yöntemi olabilir mi?
teşekkürler,
iyi Çalışmalar.
Kod:
Private Sub btnIleri_Click()
Dim c As Control
Dim t As Byte
For Each c In Me.Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True Then
t = c.Tag
Exit For
End If
End If
Next
Me.Controls("Opt" & t + 1) = True
End Sub
Ekli dosyalar
-
19.4 KB Görüntüleme: 5
-
15.3 KB Görüntüleme: 4