Excel'de Onay İşareti (tick) Sembolü yerine x işareti

[tamer42]

Merhaba,

Excel'de onay kutusuna,

Onay İşareti ( Tick ) Sembolü yerine Çarpı (x) işareti kullanılması yapılabilir mi?

teşekkürler,
iyi çalışmalar.

 

[Korhan Ayhan]

Alternatif olarak ekteki çalışma belki işinize yarayabilir.

 

[tamer42]

Alternatif olarak ekteki çalışma belki işinize yarayabilir.

Korhan Hocam teşekkürler,
bu çözüm aşağıdaki şekilde olabilirse benim işimi görür,

bu çalışmada boş veya dolu onay kutuları belirlene bazı hücrelerde ( A1, B2, D4, vb.) sabit olarak bulunsun;
bu hücreye çift tıklayınca onay kurusunun içi boş ise doldursun, eğer içi dolu ise boşaltın.

iyi çalışmalar.

 

[winstoncash]

Korhan Hocam teşekkürler,
bu çözüm aşağıdaki şekilde olabilirse benim işimi görür,

bu çalışmada boş veya dolu onay kutuları belirlene bazı hücrelerde ( A1, B2, D4, vb.) sabit olarak bulunsun;
bu hücreye çift tıklayınca onay kurusunun içi boş ise doldursun, eğer içi dolu ise boşaltın.

iyi çalışmalar.

Korhan Hocamın kodlarını aşağıdaki gibi değiştirince sizin istediğiniz şekilde oluyor gibi.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Cancel = True
    If Target = "o" Then
        Target.Font.Name = "Wingdings"
        Target.Font.Size = 14
        Target = "x"
        Else
         Target.Font.Name = "Wingdings"
        Target.Font.Size = 14
        Target = "o"
    End If
End Sub

 

[tamer42]

Korhan Hocamın kodlarını aşağıdaki gibi değiştirince sizin istediğiniz şekilde oluyor gibi.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Cancel = True
    If Target = "o" Then
        Target.Font.Name = "Wingdings"
        Target.Font.Size = 14
        Target = "x"
        Else
         Target.Font.Name = "Wingdings"
        Target.Font.Size = 14
        Target = "o"
    End If
End Sub

çok teşekkürler...

 

[winstoncash]

buna bağlı olarak ben bir soru sormak istiyorum. Bu kodlamada aralık yerine birbirinden bağımsız birden fazla hücre nasıl tanımlanabilir? Yani sizin örneğinizdeki gibi bu fonksiyonun A1, D4, E7 hücrelerinde çalışmasını istesem bu kodu nasıl yazmam gerekir?

 

[tamer42]

buna bağlı olarak ben bir soru sormak istiyorum. Bu kodlamada aralık yerine birbirinden bağımsız birden fazla hücre nasıl tanımlanabilir? Yani sizin örneğinizdeki gibi bu fonksiyonun A1, D4, E7 hücrelerinde çalışmasını istesem bu kodu nasıl yazmam gerekir?

  If Intersect(Target, Range("A:D")) Is Nothing Then Exit Sub

şeklinde deneyebilirsiniz

 

[Korhan Ayhan]

Böyle olabilir...

If Intersect(Target, Range("A1,D4,E7")) Is Nothing Then Exit Sub

 

[msofuoglu]

Öncelikle değerli Korhan Ayhan üstadımıza ve winstoncash hocamıza teşekkür ederim.

Umarım haddimi aşmamışımdır, üstadların kodundaki ( Target = "o" ) kodunu ( Target = "ü" ) olarak değiştirdim "tık" işareti yapmış oldu.
Herkese sağlıklı huzurlu günler dilerim.

 

[winstoncash]

Öncelikle değerli Korhan Ayhan üstadımıza ve winstoncash hocamıza teşekkür ederim.

Umarım haddimi aşmamışımdır, üstadların kodundaki ( Target = "o" ) kodunu ( Target = "ü" ) olarak değiştirdim "tık" işareti yapmış oldu.
Herkese sağlıklı huzurlu günler dilerim.

Tamer bey tik işareti yerine x istediği için o şekilde yapmıştım. Karakterleri kendi kullanımınıza göre dilediğiniz gibi tabi ki değiştirebilirsiniz.