Excel'de bir hücreye çift tıklandığında belirli satırları veya sütunları nasıl gizlersiniz veya gösterirsiniz?

Normalde, satırlar ve sütunlar sağ tıklayıp içerik menüsünden Gizle veya Göster seçeneğini seçerek gizlenebilir veya görüntülenebilir. Bu makalede, Excel'de bir hücreye çift tıklayarak belirli satırları veya sütunları hızlıca gizleme veya görüntülemeden bahsediyoruz.

VBA kodu ile bir hücreye çift tıklandığında belirli satırları veya sütunları gizleme veya gösterme

VBA kodu ile bir hücreye çift tıklandığında belirli satırları veya sütunları gizleme veya gösterme

Aşağıdaki VBA kodları, belirli bir hücreye çift tıklayarak çalışma sayfasındaki belirli satırları veya sütunları hızlıca gizlemenize veya göstermenize yardımcı olabilir. Lütfen şu adımları izleyin.

1. Satır veya sütunları gizlemek istediğiniz çalışma sayfasını açın. Sayfa sekmesine sağ tıklayın ve ardından içerik menüsünden Kodu Görüntüle'yi seçin.

2. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodlarından ihtiyacınız olan birini Kod penceresine kopyalayın.

VBA: Çalışma sayfasındaki hücrelere çift tıklayarak belirli satırları gizle/göster:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA: Çalışma sayfasındaki hücrelere çift tıklayarak belirli sütunları gizle/göster:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

Not: Kodda, A1:A4, 10:13 ve D:E, A1:A4 aralığındaki herhangi bir hücreye çift tıklandığında 10:13 satırı veya D:E sütununun otomatik olarak gizleneceğini gösterir.

3. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + F11 tuşlarına basın.

Artık A1:A4 aralığındaki herhangi bir hücreye çift tıkladığınızda, 10:13 satırı veya D:E sütunu otomatik olarak gizlenecektir. Ve hücreye tekrar çift tıklayarak tüm gizli satırları veya sütunları hemen gösterebilirsiniz.

İlgili Makaleler:

• Excel'de belirli bir kullanıcı formunu açmak için hücreye nasıl tıklanır veya çift tıklanır?
• Excel'de bir hücreye çift tıklayarak onay işareti nasıl eklenir?
• Excel'de bir hücreye çift tıklayarak geçerli tarih/saat nasıl otomatik olarak eklenir/girilir?
• Excel'de bir hücreye çift tıklayarak o hücre değerine 1 nasıl eklenir?
• Excel'de belirli bir hücreye tıklandığında takvim nasıl açılır?