checkbox'ların sayısını nasıl bulurum

[Erdem Akdemir]

herkese hayırlı ramazanlar ve selamlar

userform'daki checkbox'ların sayısını nasıl bulabilirim

ikinci olarakta userform'a 10 adet checkbox olacak ama birtanede ayrı olarak, ona tıklayınca diğer 10 adet checkbox'ta aktif olacak

saygılarımla

iyi çalışmalar

 

[Orion1]

Dim ckbox As Control, say As Integer, i As Byte
'çekboxların sayısını veriyor.
For Each ckbox In Me.Controls
    If TypeName(ckbox) = "CheckBox" Then say = say + 1
Next
MsgBox "ÇekBoks sayısı : " & say
' çekbox11'e tıklayınca Çekboks1'den Çekbox10'a kadar işareteliyor.
For i = 1 To 10
    Me.Controls("CheckBox" & i).Value = True
Next

 

[Erdem Akdemir]

Dim ckbox As Control, say As Integer, i As Byte
'çekboxların sayısını veriyor.
For Each ckbox In Me.Controls
    If TypeName(ckbox) = "CheckBox" Then say = say + 1
Next
MsgBox "ÇekBoks sayısı : " & say
' çekbox11'e tıklayınca Çekboks1'den Çekbox10'a kadar işareteliyor.
For i = 1 To 10
    Me.Controls("CheckBox" & i).Value = True
Next

evren bey teşekkür ederim

iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Eğer kullandığınız CheckBox nesnelerini bir Frame içine alırsanız aşağıdaki basit kod ile sayısını rahatlıkla öğrenebilirsiniz.

Private Sub CommandButton1_Click()
    MsgBox Me.Frame1.Controls.Count
End Sub

 

[Orion1]

evren bey teşekkür ederim

iyi çalışmalar

Rica ederim.
İyi çalışmalar.

 

[izcik]

Check box denilen şey makro düğmesi mi oluyor?

 

[Orion1]

Check box denilen şey makro düğmesi mi oluyor?

İşte Bu.

 

[izcik]

Güzel bir şeymiş

 

[Erdem Akdemir]

Selamlar,

Eğer kullandığınız CheckBox nesnelerini bir Frame içine alırsanız aşağıdaki basit kod ile sayısını rahatlıkla öğrenebilirsiniz.

Private Sub CommandButton1_Click()
    MsgBox Me.Frame1.Controls.Count
End Sub

korhan bey sizede teşekkür ederim

daha kısa bir yöntem