CheckBox'ların tamamını seçmek-seçimi temizlemek?

[QNURi]

Merhaba,

sayfamda 3 adet checkbox var. bunların tamamını bir buton ile seçmek ve diğer butonla tamamını temizlemek istiyorum. Forumda çok aradım. Fakat bulamadım.

HELP PLS!

 

[Seyit Tiken]

Private Sub CommandButton1_Click()
CheckBox1 = 1
CheckBox2 = 1
CheckBox3 = 1
End Sub

Private Sub CommandButton2_Click()
CheckBox1 = 0
CheckBox2 = 0
CheckBox3 = 0
End Sub

Şeklinde deneyiniz.

 

[QNURi]

Private Sub CommandButton1_Click()
CheckBox1 = 1
CheckBox2 = 1
CheckBox3 = 1
End Sub

Private Sub CommandButton2_Click()
CheckBox1 = 0
CheckBox2 = 0
CheckBox3 = 0
End Sub

Şeklinde deneyiniz.

Teşekkür ederim.

Peki çalışma sayfamda 100 adet checkbox varsa...???

 

[Ferhat Pazarçevirdi]

Tümünü onaylamak için,

Sub Tumunu_Onayla()
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
    If TypeOf sp.Object Is MSForms.CheckBox Then
       sp.Object.Value = [B][COLOR=blue]True
[/COLOR][/B]    End If
Next
End Sub

Tüm onayları kaldırmak için

Sub Tumunu_Sil()
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
    If TypeOf sp.Object Is MSForms.CheckBox Then
       sp.Object.Value = [B][COLOR=red]False[/COLOR][/B]
    End If
Next
End Sub

 

[QNURi]

Gönderdiğim örnek dosyada bunu yapabilir misiniz? Buradan alıp kodu çalıştıramıyorum bir türlü.

Çok rica edeceğim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim I As Integer
For I = 1 To [COLOR="Blue"]5[/COLOR]'[COLOR="Blue"]Buradan istediğiniz kadar artırabilirsiniz.[/COLOR]
Controls("CheckBox" & I) = True
Next
End Sub
Private Sub CommandButton2_Click()
Dim I As Integer
For I = 1 To 5
Controls("CheckBox" & I) = False
Next
End Sub

 

[Ferhat Pazarçevirdi]

Gönderdiğim örnek dosyada bunu yapabilir misiniz? Buradan alıp kodu çalıştıramıyorum bir türlü.

Çok rica edeceğim.

Dosyayı inceleyiniz.

 

[QNURi]

Çok ÇOK Teşekkür ederim. İyi ki varsınız.

 

[Ferhat Pazarçevirdi]

Rica ederim. İşinize yaradığına sevindim.

 

[QNURi]

Rica ederim. İşinize yaradığına sevindim.

Cevabınız için teşekkürler. Fakat bir sorunla karşılaşıyorum.

Butonu tıkladığımda "OLEObject sınıfının Object özelliği alınamıyor" şeklinde bir hata mesajı alıyorum. Ve sonrasında vermiş olduğunuz kodun içinde geçen "If TypeOf sp.Object Is MSForms.CheckBox Then" satırı sarı işareliyor. Nerede sorun var. Bir türlü tespit edemiyorum.
Lütfen yardım.

 

[QNURi]

Şimdi sorunu tespit ettim. Sayfamda checkboxların dışında nesne olarak word belgesi de var. Bu word nesnelerini silince sorun düzeliyor. Fakat o word nesnelerinin sayfada kalması gerekiyor. Kodu sadece Checkbox'ı kapsayacak şekilde nasıl düzenleyebilirim, ya da word nesnesini dikkate almayacak şekilde nasıl düzenleyebilirim ?

Sub Tumunu_Onayla()
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
If TypeOf sp.Object Is MSForms.CheckBox Then
sp.Object.Value = True
End If
Next
End Sub

 

[Ferhat Pazarçevirdi]

Sayfa üzerine eklenen Wrod nesnesinden böyle bir hata kaynaklanacağını düşünmüyorum.

Kodlar, zaten sadece checkbox'lar üzerinde işlem yapmak üzere dizayn edildi. Word belgeleri oleobject olmasına karşın, objenin tipi Checkbox olmadığı için (tipi document'tir) değerlendirmeye alınmaz.

Eğer mümkünse, dosyanızı ekleyin, inceleyelim.

 

[puslukurt]

Şimdi sorunu tespit ettim. Sayfamda checkboxların dışında nesne olarak word belgesi de var. Bu word nesnelerini silince sorun düzeliyor. Fakat o word nesnelerinin sayfada kalması gerekiyor. Kodu sadece Checkbox'ı kapsayacak şekilde nasıl düzenleyebilirim, ya da word nesnesini dikkate almayacak şekilde nasıl düzenleyebilirim ?

Sub Tumunu_Onayla()
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
If TypeOf sp.Object Is MSForms.CheckBox Then
sp.Object.Value = True
End If
Next
End Sub

Private Sub CommandButton1_Click()
For s = 1 To 24 "checkbox sayısı kadar giriniz"
Me.Controls("CheckBox" & s).Value = 0
Next
End Sub

BİRDE BÖYLE DENEYİNİZ.

 

[Orion1]

Ekli dosyayı incelermisiniz.

Sub cek_dogru()
Dim cb As Object
For Each cb In Sheets("Sayfa1").OLEObjects
    If TypeName(cb.Object) = "CheckBox" Then
        cb.Object.Value = True
    End If
Next cb

End Sub
Sub cek_yanlis()
Dim cb As Object
For Each cb In Sheets("Sayfa1").OLEObjects
    If TypeName(cb.Object) = "CheckBox" Then
        cb.Object.Value = False
    End If
Next cb

End Sub

 

[QNURi]

Sayfa üzerine eklenen Wrod nesnesinden böyle bir hata kaynaklanacağını düşünmüyorum.

Kodlar, zaten sadece checkbox'lar üzerinde işlem yapmak üzere dizayn edildi. Word belgeleri oleobject olmasına karşın, objenin tipi Checkbox olmadığı için (tipi document'tir) değerlendirmeye alınmaz.

Eğer mümkünse, dosyanızı ekleyin, inceleyelim.

Merhaba,
Foruma girip dosyayı göderemedim. Şimdi gönderebiliyorum.
Bir kontrol edebilirseniz çok sevineceğim.
İyi akşamlar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub Tumunu_Onayla()
[COLOR=red]On Error Resume Next[/COLOR]
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
    If TypeOf sp.Object Is MSForms.CheckBox Then
       sp.Object.Value = True
    End If
Next
End Sub
 
Sub Tumunu_Sil()
[COLOR=red]On Error Resume Next[/COLOR]
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
    If TypeOf sp.Object Is MSForms.CheckBox Then
       sp.Object.Value = False
    End If
Next
End Sub

 

[QNURi]

Sorun çözüldü. Çok teşekkür ederim.
Son noktayı çok güzel koydunuz

 

[Ferhat Pazarçevirdi]

Korhan bey'in dediği gibi de olur veya alternatif olarak;

Sub Tumunu_Onayla()
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
[COLOR=red]    If sp.OLEType = 2 Then[/COLOR]
        If TypeOf sp.Object Is msforms.CheckBox Then
            sp.Object.Value = True
        End If
[COLOR=red]    End If[/COLOR]
Next
End Sub
'------------------------
Sub Tumunu_Sil()
Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
[COLOR=red]    If sp.OLEType = 2 Then[/COLOR]
        If TypeOf sp.Object Is msforms.CheckBox Then
           sp.Object.Value = False
        End If
[COLOR=red]    End If[/COLOR]
Next
End Sub