Excel'de bir hücreye çift tıklarken belirtilen satırları veya sütunları nasıl gizleyebilir veya gösterebilirim?

Normalde, satırlar ve sütunlar gizlenebilir veya sağ tıklayıp bağlam menüsünden Gizle veya Göster seçeneği seçilerek görüntülenebilir. Bu yazıda, Excel'de bir hücreye çift tıklayarak belirtilen satırları veya sütunları hızlı bir şekilde gizlemekten veya görüntülemekten bahsediyoruz.

VBA kodlu bir hücreye çift tıklandığında belirtilen satırları veya sütunları gizleyin veya gösterin

VBA kodlu bir hücreye çift tıklandığında belirtilen satırları veya sütunları gizleyin veya gösterin

İnanılmaz! Excel'de Chrome, Edge, Firefox ve Safari Gibi Verimli Sekmeler Kullanmak!
Zamanınızın% 50'sinden tasarruf edin ve her gün binlerce fare tıklamasını azaltın!

Aşağıdaki VBA kodları, belirli bir hücreye çift tıklayarak bir çalışma sayfasındaki belirtilen satırları veya sütunları hızlı bir şekilde gizlemenize veya göstermenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. İçerisindeki satırları veya sütunları gizlemek istediğiniz çalışma sayfasını açın. Sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden.

2. Açılışta Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayın.

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

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, satır 10:13 veya D: E sütununun otomatik olarak gizleneceğini belirtin.

3. Tuşuna basın. Ara Toplam + F11 kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

Şu andan itibaren, A1: A4 aralığındaki, 10:13 satırındaki veya D: E sütunundaki herhangi bir hücreye çift tıklandığında otomatik olarak gizlenecektir. Ve tüm gizli satırları veya sütunları hemen görüntülemek için hücreye tekrar çift tıklayın.

İ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 çift tıklayarak bir hücreye onay işareti nasıl eklenir?
• Excel'de çift tıklayarak bir hücreye geçerli tarih / saati otomatik olarak nasıl ekleyebilirim / girebilirim?
• Bir hücreye çift tıklamak ve Excel'de bu hücre değerine 1 eklemek nasıl?
• Excel'de belirli bir hücreye tıklarken bir takvim nasıl açılır?

En İyi Ofis Üretkenlik Araçları

🤖	Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
	Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
	Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
	Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
	Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
	Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
	En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Devamı ... Ücretsiz indirin...

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin...