Hepsi Check Box' ı yaratma

[danielsjacky]

birden fazla checkbox olan calışmada bunlar icin bir hepsi checkboxı yapmak istiyorum. bu box tikli olunca hepsi tikli normal olarak o tiki kaldırıncada hepsindeki tikin kalkması lazım.
yardımlarınızı bekliyorum simdiden tesekkurler...

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CheckBox1_Click()
Dim i As Byte
For i = 2 To 4
If CheckBox1 = True Then
Controls("CheckBox" & i) = True
Else
Controls("CheckBox" & i) = False
End If
Next
End Sub

 

[danielsjacky]

öncelikle cok tesekkur ediyorum ..

fakat kodu denedigimde olmadı.. makroda hata var uyarısı veriyor

Private Sub CheckBox1_Click()
Dim i As Byte
For i = 2 To 4
If CheckBox1 = True Then
Controls("CheckBox" & i) = True
Else
Controls("CheckBox" & i) = False
End If
Next
End Sub

 

[1Al2Ver]

öncelikle cok tesekkur ediyorum ..

fakat kodu denedigimde olmadı.. makroda hata var uyarısı veriyor

Merhaba,

Yazılan kod, UserForm için,

Ek'li dosyayı inceleyin, 1 adet modül (Modüle2) eklendi buraya ve Sayfa1'in koduna UserForm'un açılması için kod yazıldı.

Açılan UserForm'da CheckBox1'i tıklayın, diğerleri seçiliyor,

Kolay Gelsin...

 

[danielsjacky]

çok teşekkür ediyorum..

user form kullanmadan bunu yapabilmek mumkunmu peki?? yani benim ornegimde exceldeki huzrelere koydugum checkboxlar ile. cunku burdaki her checkboxa da tıklıysa veya degılse gıbı makrolar atıyacagım. bu yuzden excel hucresinde olması gerekir.

acaba bu mumkunmudur??

tesekkurler...

Merhaba,

Yazılan kod, UserForm için,

Ek'li dosyayı inceleyin, 1 adet modül (Modüle2) eklendi buraya ve Sayfa1'in koduna UserForm'un açılması için kod yazıldı.

Açılan UserForm'da CheckBox1'i tıklayın, diğerleri seçiliyor,

Kolay Gelsin...

 

[Korhan Ayhan]

Selamlar,

Siz sayfa üzerinde "FORMLAR" araç çubuğunda bulunan "Onay Kutusu" nesnesini kullanmışsınız. Bu araç çubuğundaki nesnelere kod yazmak zahmetlidir.

Bunun yerine "DENETİM ARAÇ KUTUSU" araç çubuğundaki "CheckBox" nesnesini kullanırsanız bu nesneye kod yazmak daha kolay olacaktır.

Bu yönde hazırladığım ekteki örnek dosyayı incelermisiniz.

 

[danielsjacky]

öncelikle teşekkür ederim. gerçekten tam kafamdaki gibi bir şey olmuş.

dosyayı inceledim. şöyle ufak bir sorun daha olucak. benim kullandıgım onay kutularını excel icerisinde istedigim gibi taşıyabilme yapabiliyordum. aynı zamanda boyutların değişimi. checkboxların silinmesi gibi. fakat bunda zannedersem olmuyor. bu konudada yardımcı olabilirseniz çok sevinirim.

tekrar teşekkürler ve iyi çalışmalar.

 

[ynmcan]

Syn.danielsjacky;
Araç çubuğunda GELİŞTİRİCİ sekmesine tıkladığınızda TASARIM MODU adlı bir sekme göreceksiniz. Buna tıklarsanız checkboxları istediğiniz gibi düzenleyip silebilirsiniz.

 

[danielsjacky]

çok teşekkür ediyorum...

Syn.danielsjacky;
Araç çubuğunda GELİŞTİRİCİ sekmesine tıkladığınızda TASARIM MODU adlı bir sekme göreceksiniz. Buna tıklarsanız checkboxları istediğiniz gibi düzenleyip silebilirsiniz.