Checkboxların hepsini seçme ve iptal etme

[kadirdaylight]

Merhaba, çalışmamda çok fazla checkbox olan sayfalar var ve bunların içinden seçip kayıt alıyorum ancak çok fazla checkbox olduğu için onları Frame lerin içinde grupladım. Sorunum commandbutton yardımıyla hepsini seç yapamıyorum.. Tabiki temizle seçeneğiyle beraber.. Geçmiş konulara baktım ama hiç biri uymadı.. basit bir kod bilen varmı?

 

[Orion1]

Merhaba, çalışmamda çok fazla checkbox olan sayfalar var ve bunların içinden seçip kayıt alıyorum ancak çok fazla checkbox olduğu için onları Frame lerin içinde grupladım. Sorunum commandbutton yardımıyla hepsini seç yapamıyorum.. Tabiki temizle seçeneğiyle beraber.. Geçmiş konulara baktım ama hiç biri uymadı.. basit bir kod bilen varmı?

Ben basit kod bilmem.Kodlara saygım vardır.En ufak kod bile benim için değerlidir.

 

[Necdet]

Cells.Hyperlinks.Delete

3 sözcük ve aralarında nokta var.
Ben bu 3 sözcüğü yan yana yazabilmek için uzur süre araştırma yaptığımı bilirim. Bilince kolay da bilmeyince?

 

[kadirdaylight]

çok yardımcı oldunuz teşekkürler..

 

[kadirdaylight]

Ben basit kod bilmem.Kodlara saygım vardır.En ufak kod bile benim için değerlidir.

Bizimde saygımız var ama biz sizin kadar uzman olmadığmız için soruyoruz.. yeni öğrenen birisi elbetteki basit kod isteyecek, aşşağılamanıza gerek yoktu!

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

İlk kod tüm CheckBox nesnelerini seçilmiş hale getirir.

Option Explicit
 
Private Sub CommandButton1_Click()
    Dim NESNE As Control
 
    For Each NESNE In Me.Controls
        If TypeName(NESNE) = "CheckBox" Then NESNE.Value = True
    Next
End Sub

İkinci kod tüm CheckBox nesnelerindeki seçimi kaldırır.

Option Explicit
 
Private Sub CommandButton2_Click()
    Dim NESNE As Control
 
    For Each NESNE In Me.Controls
        If TypeName(NESNE) = "CheckBox" Then NESNE.Value = False
    Next
End Sub

 

[kadirdaylight]

Korhan Bey, ilgi ve alakanıza sonsuz teşekkürler aradığım tam olarak buydu tekrar tekrar teşekkürler..

Son birşey daha sorayım bu checkboxları tiklendiğinde renklensin diye

CheckBox10.BackColor = &HFF&

kodunu ekledim. tik kalkınca eski haline çevirebiliyormuyuz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
    CheckBox1.BackColor = &HFFFF&
    Else
    CheckBox1.BackColor = vbButtonFace
    End If
End Sub

 

[kadirdaylight]

Çok çok teşekkürler harikasınızzz

 

[Orion1]

Bizimde saygımız var ama biz sizin kadar uzman olmadığmız için soruyoruz.. yeni öğrenen birisi elbetteki basit kod isteyecek, aşşağılamanıza gerek yoktu!

Sizin o basit kod dediğiniz kodların bazıları için ben geceleri uyku uyumadım biliyormusunuz?
Şimdi o kodu buraya basit kod olarakmı ekleyecem.Hadi canım sende.!

 

[snx111]

Dim NESNE As Controls

For Each NESNE In Controls
If TypeName(NESNE) = "CheckBox" Then NESNE.Value = False
Next
bende hata veriyor "object required" me.controls yazınca hiç çalışmıyor

 

[Korhan Ayhan]

Selamlar,

Sn. snx111,

Kodları formunuzun kod bölümüne uygulamanız gerekiyor. Eğer bu şekilde yaptıysanız ve hata alıyorsanız dosyanızın küçük bir örneğini eklerseniz inceleme fırsatımız olabilir.

 

[Mdemir63]

Selamlar,

Korhan hocam,

CheckBox1 seçili değilken yazı fontu normal

CheckBox1 i seçtiğimizde yazı fontunun kalın yazmasını nasıl sağlayabiliriz?

Saygılar

 

[safabro]

xlsm dosyasına toplam checkbox macrosu ekleme

Herkese merhaba,
.xlsm dosyasında alt alta checkboxlar var,bu başlıktaki macroları denedim fakat başarılı olamadım.Dosyayı ekliyorum yardımcı olmanız mümkün müdür?
Şimdiden çok teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Sorunuz gözümden kaçmış. Aşağıdaki şekilde denermisiniz.

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        CheckBox1.Font.Bold = True
    Else
        CheckBox1.Font.Bold = False
    End If
End Sub

Selamlar,

Korhan hocam,

CheckBox1 seçili değilken yazı fontu normal

CheckBox1 i seçtiğimizde yazı fontunun kalın yazmasını nasıl sağlayabiliriz?

Saygılar