[]
excel checkbox kodu
merhaba; excelde birkactane check box koydum ve bunların uzerine hepsi checkboxu koymak istiyorum. ve normal olarak hepsine tik attıgımda diger checkboxlarda tiklensin. bunun visual da kodunu yazamadım yardımcı olabilirmisiniz.
simdiden tesekkurler..
simdiden tesekkurler..
dosyanda başka neler var bilmiyorum ama "nesne" olarak sadece checkbox'lar varsa;
bul ve seç -> özel git -> nesneler -> ok
ya da;
Sub sec()
ActiveSheet.DrawingObjects.Select
End Sub
bul ve seç -> özel git -> nesneler -> ok
ya da;
Sub sec()
ActiveSheet.DrawingObjects.Select
End Sub
- mahallenindelisi
(03.09.10 22:58:47)
baska nesnelerim var.
şöyle birsey denedim fakat olmuyor nerde sorun war anlayamadım..
Sub OnayKutusu5_Tıklat()
If onaykutusu5.Value = Checked Then
onaykutusu6.Checked
Else: onaykutusu6 = Empty
End If
End Sub
şöyle birsey denedim fakat olmuyor nerde sorun war anlayamadım..
Sub OnayKutusu5_Tıklat()
If onaykutusu5.Value = Checked Then
onaykutusu6.Checked
Else: onaykutusu6 = Empty
End If
End Sub
- doan
(03.09.10 23:05:04)
"onaykutusu5" i tanımlamamışsın ki! "set as onaykutusu5 bilmem ne" gibi bir tanımla yapman lazım yamulmuyorsam..
- mahallenindelisi (03.09.10 23:07:56)
checkbox için nasıl bir tanımlama yapıcam peki??
- doan (03.09.10 23:20:41)
soruyu yanlış anladım ben sanırım. eğer tüm "checkbox"lara "tick" koymak istiyorsan;
Sub CheckBox1_Click()
Dim cb As CheckBox
If ActiveSheet.CheckBoxes("Check Box 1").Value Then
For Each cb In ActiveSheet.CheckBoxes
If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
cb.Value = True
End If
Next cb
End If
End Sub
Sub CheckBox1_Click()
Dim cb As CheckBox
If ActiveSheet.CheckBoxes("Check Box 1").Value Then
For Each cb In ActiveSheet.CheckBoxes
If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
cb.Value = True
End If
Next cb
End If
End Sub
- mahallenindelisi (04.09.10 00:03:32)
buda yemedi yaa..
neyse artık olmıcak bu iş sanırsam.
tesekkur ettim ilgin icin.
neyse artık olmıcak bu iş sanırsam.
tesekkur ettim ilgin icin.
- doan (04.09.10 00:07:44)
- mahallenindelisi (04.09.10 00:09:13)
1
