optionbutton'un döngüde kullanımı

[rifsoft]

Optionbutton'u döngüsel olarak kontrol etmek istiyorum fakat aşğıda yazmış olduğum komut çalışmamaktadır. bu konuda yardımcı olabilicek kimse var mı?

Komutun optionbutton'un i değişkeniyle birleşip kontrol etmesi gerekmekte.


For i = 1 To 120 Step 5

If OptionButton & i.Value = True Then
d1 = 5
End If

If OptionButton & i.Value = True Then
d1 = 4
End If

If OptionButton & i.Value = True Then
d1 = 3
End If

If OptionButton & i.Value = True Then
d1 = 2
End If

If OptionButton & i.Value = True Then
d1 = 1
End If

k = k + 1
Worksheets("data").Cells(kayitsatir, 9).Value = d1

Next

 

[Huseyinkis]

Controls("OptionButton" & i)=True


Bu Şekilde denermisiniz.

 

[rifsoft]

teşekkürler çalıştı

teşekkürler.

 

[rifsoft]

120 adet optionbutton mevcut bunları kayıt yaptıktan sonra döngüyle nasıl false yapa bilirim.

 

[Murat OSMA]

Şu kodları deneyiniz;

    Dim opt As Control
    For Each opt In Me.Controls
        If TypeName(opt) = "OptionButton" Then
            opt.Value = False
        End If
    Next opt