Checkbox Backcolor rengini kod ile değiştirme

[irfancantr]

Merhaba değerli forum üyeler,

Öncelikle elimde Listbox1_Click() olayına yazılmış bir kod var;

For i = 1 To 96
Controls("CheckBox" & i).Value = False
If Cells(sat, i + 80).Value = "+" Then
Controls("CheckBox" & i).Value = True
End If: Next

Sorum ise;

Bu koda nasıl bir ilave yaparsam Checkbox'lar işaretli ise veya işaretli olan Checkbox'ın backcolor renginin olağandan farklı bir renk olmasını sağlayabilirim?

Kısacası Userform'un üzerinde bulunan bir checkbox aktif (işaretli) ise arkafon renginin değişik olması mümkün mü?

 

[security]

Private Sub CheckBox1_Click()
'Security
If CheckBox1.Value = True Then
CheckBox1.BackColor = vbRed
Else
CheckBox1.BackColor = vbGreen
End If
End Sub


Denermisiniz..

 

[Orion1]

Aşağıdaki gibi deneyiniz.

For i = 1 To 96
Controls("CheckBox" & i).Value = False
Controls("CheckBox" & i).backcolor=vbyellow
If Cells(sat, i + 80).Value = "+" Then
Controls("CheckBox" & i).Value = True
Controls("CheckBox" & i).backcolor=vbblue
End If: Next

 

[irfancantr]

Sn. Security ve Sn. Evren hocam bilginize sağlık çok teşekkür ederim.