Tıklanan CheckBox rengi Yeşil olsun

[ersoyalan]

Tıklanan Check Box rengi Yeşil olsun.

Böyle bir işlem mümkünmüdür.

Syg,
E.ALAN

 

[ikgyargic]

merhaba,

aşağıdaki kod işinize yarayabilir.

Private Sub CheckBox1_Click()
CheckBox1.BackColor = RGB(0, 150, 0)

End Sub

 

[hamitcan]

Sub kodu_tum_sekillere_uygula()
    Worksheets(1).Shapes.SelectAll
    Selection.OnAction = "yesilol" 'Bu kodu bir kere çalıştır.
End Sub
Sub yesilol()
    For Each chk In Worksheets(1).Shapes
        chk.Select
        If Selection.Value <> 1 Then
            Selection.Interior.Color = xlNone
        Else
            Selection.Interior.Color = vbGreen
        
        End If
    Next
End Sub

 

[Levent Menteşoğlu]

Denetim araç kutusundaki checkbox nesnesini kullanmak kaydıyla class modül ile yapmış olduğum örneği ekliyorum.

 

[Levent Menteşoğlu]

Birde dosyanızdaki onay kutularını dikkate alarak koşullu biçimlendirme ile yapmış olduğum örneğide ekliyorum.

 

[ersoyalan]

Merhaba,

Bütün örnekler çok güzel ve tam istediğim gibi ellerinize sağlık çok teşekkürederim.

Syg,
İyi çalışmalar.
E.ALAN

 

[kykbt]

Hocam Dosya uçmuş tekrar ekleyebilirmiyiz.

 

[1Al2Ver]

Merhaba,

Sayın Levent Menteşoğlu'nun çalışmasıdır,

Bu vesileyle kendisine bir defa daha teşekkür ederim.

 

[kykbt]

Arkadaş teşekkür ediyorum
Ayrıca hızından dolayıda

 

[i.bulbul]

teşekkürler...