Excel 2016 da tek tıkla hücre gizleme

[CemAnt]

Merhaba;

Excel 2016 kullanıcısıyım. Sunumlarımı Powerpoint yerine bazı nedenlerden dolayı excelde yapıyorum.

Bazı seçili hücrelerdeki yazıları tek tıkla gizleyip, tek tıkla görünür hale getirebilmek istiyorum.

Seçili hücreye tıklayarak, hücre içindeki yazıyı nasıl gizleyebilirim ve tek tıkla nasıl görünür hale getirebilirim?

Youtubede bir çok video izledim ama istediğimi karşılayan bir video çıkmadı.

Bilen arkadaşlardan yardım rica ediyorum.

Şimdiden teşekkür ederim...

 

[YUSUF44]

Şöyle olabilir:

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle denince açılan sayfaya) yapıştırdığınızda A1:K100 aralığında herhangi bir hücreyi seçtiğinizde; o hücrenin yazı tipi rengi otomatikse beyaz yapar, değilse otomatik yapar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1:K100]) Is Nothing Then Exit Sub
    If Target.Font.ThemeColor = xlThemeColorDark1 Then
        Target.Font.ColorIndex = xlAutomatic
    Else
        Target.Font.ThemeColor = xlThemeColorDark1
    End If
End Sub

Dosyanızda kullandığınız renklere göre bu kodlar değişebilir.

 

[Seyit Tiken]

Çift Tıklama daha işlevseldir, hangi renkte olursa veriyi gizler ve gösterir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.NumberFormat = "General" Then
Target.NumberFormat = ";General;"
ElseIf Target.NumberFormat = ";General;" Then
Target.NumberFormat = "General"
End If
End Sub