CheckBox İle toplamını almak

[Metin55]

İyi günler ,
ekteki örnek dosyada 3 adet CheckBox var
Kırmızı renkli CheckBox'u Seçtiğimde:E17+E18+E19+E20+E21+E22+E24=D25
Sarı renkli CheckBox'u seçtiğimde:E17+E18+E19+E20+E21+E24=D25
Yeşil Renkli CheckBox'u seçtiğimde :E17+E18+E19+E20+E24=D25
Toplamını aldırabilirmiyiz.Yardımcı olabilirmisiniz?

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("D25") = WorksheetFunction.Sum(Range("E17:E22")) + Range("E24")
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Range("D25") = WorksheetFunction.Sum(Range("E17:E21")) + Range("E24")
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Range("D25") = WorksheetFunction.Sum(Range("E17:E20")) + Range("E24")
End If
End Sub

 

[Metin55]

Sayın Asi kral çok teşekkür ederim.CheckBox lardan herhangi birini seçtiğimizde diğer ikisinin işaretinin kalkması için ne yapmak gerekiyor.

 

[Metin55]

ekteki örnek dosyada 3 adet CheckBox var
Kırmızı renkli CheckBox'u Seçtiğimde:E17+E18+E19+E20+E21+E22+E24=D25

Hücrelerindeki veriler kırmızı renkli olabilirmi ?

Sarı renkli CheckBox'u seçtiğimde:E17+E18+E19+E20+E21+E24=D25
Hücrelerindeki veriler Sarı renkli olabilirmi ?


Yeşil Renkli CheckBox'u seçtiğimde :E17+E18+E19+E20+E24=D25

Hücrelerindeki veriler yeşil renkli olabilirmi ?
Ayrıca CheckBox lardan herhangi birini seçtiğimizde diğer ikisinin işaretinin kalkması için ne yapmak gerekiyor.