checkboxların hepsini nasıl seçebilirim.?

[pitsss]

checkboxların hepsini seçmek yada hepsininin işaretini tek butonla kaldırmak istiyorum.
ekte bi deneme yaptım ancak. veriler çok fazla olunca döngü çok uzun sürüyor. bunun böyle olmasını istemiyorum.
bunu nasıl yaparım.
aslında tam olarak istediğim
listboxtaki işareti kaldırınca yada seçince onun işareti hemen sayfa1 deki C sütünunda doğru yada yanlış şeklinin alsın istiyorum.
bu işlemi tek tek yapınca pek sorun olmuyor. ama hepsini seç yada kaldır dediğimde sorun oluşuyor. çok fazla uzun sürüyor.

 

[hamitcan]

Kodları aşağıdaki şekilde değiştirin.

Private Sub CommandButton1_Click()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(i) = True
Next i
    
    Range("C1:C336").FormulaR1C1 = "TRUE"

End Sub

Private Sub CommandButton2_Click()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(i) = False
Next i
    
   Range("C1:C336").FormulaR1C1 = "FALSE"

End Sub


Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
Dim i As Long
ListBox1.List = Range("A1:C" & Cells(65536, "A").End(xlUp).Row).Value
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.List(i, 2) = True Then
        ListBox1.Selected(i) = True
    End If
Next i
    
    Range("C1:C336").FormulaR1C1 = "TRUE"

End Sub