Note: The other languages of the website are Google-translated. Back to English

Excel'de satırları veya sütunları gizlemek / göstermek için onay kutusu nasıl kullanılır?

Belirli satırları veya sütunları gizlemek veya göstermek için bir onay kutusu kullanmanız gerektiğini varsayarsak. Örneğin, Active X Control onay kutusu işaretlendiğinde, belirli satırlar veya sütunlar görüntülenir, aksi takdirde gizlenirler. Bu makale, Excel'deki satırları veya sütunları ayrıntılarla gizlemek / göstermek için onay kutusunu nasıl kullanacağınızı gösterir.

VBA kodu ile satırları veya sütunları gizlemek / göstermek için onay kutusunu kullanın


VBA kodu ile satırları veya sütunları gizlemek / göstermek için onay kutusunu kullanın

Aşağıdaki VBA kodu, onay kutusu ile belirli satırları veya sütunları gizlemenize / göstermenize yardımcı olabilir.

1. Çalışma sayfasına bir Active X Control onay kutusu ekledikten sonra, onay kutusuna sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden. Ekran görüntüsüne bakın:

2. içinde Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Satırları veya sütunları gizlemek / göstermek için onay kutusunu kullanın

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

notlar:

1. VBA kodunda, [CD]. EntireColumn C ve D sütunlarının ilgili onay kutusu işaretlenerek veya işaretini kaldırarak gizleneceği veya gösterileceği anlamına gelir.

2. Satır 6: 9 gibi belirli satırları gizlemek veya görüntülemek için lütfen [CD]. EntireColumn için [6: 9]. Tüm satır VBA kodunda.

3. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.

4. Şimdi lütfen kapatın Tasarım Modu altında Geliştirici aşağıda gösterilen ekran görüntüsü gibi sekme:

Şu andan itibaren, onay kutusu işaretlendiğinde, belirtilen satırlar veya sütunlar görüntülenir. İşaretli olmadığında, belirtilen satırlar veya sütunlar gizlenir.


İlgili yazılar:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (26)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Korumalı bir çalışma sayfasında "Satırları veya sütunları VBA koduyla gizlemek/göstermek için onay kutusunu kullan" seçeneğini kullanmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
@Wayne:

Özel Alt CheckBox1_Click ()
ActiveSheet.Unprotect Parola:="xxxx"
Rows("284:351").EntireRow.Hidden = CheckBox1 Değil
ActiveSheet.Protect Parola:="xxxx"
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Görünüşe göre bu kod sadece bir yöne gidecek, yani tıklandığında onları sadece gizleyecek ve göstermeyecek. Bunu düzeltmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı sorunu yaşıyoruz ama ActiveX Denetimlerini değil, Form Denetimlerini kullandığımızı öğrendim. Kod, ActiveX Denetimi Onay Kutusu düğmesinde mükemmel şekilde çalışır. Onay Kutusunu işaretleyebilmeniz için Tasarım Modunu kapatmanız yeterlidir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı sorunu yaşıyoruz ama çalışmasını sağlamanın bir yolunu buluyoruz. Lütfen Form Denetimi onay kutusunda değil, ActiveX Denetimleri onay kutusunu kullanın. Kod, ActiveX onay kutusuyla mükemmel şekilde çalışır.


Özel Alt CheckBox1_Click ()
[C:D].EntireColumn.Hidden = CheckBox1 Değil
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Bu kodu, onay kutusundan ayrı bir sayfada gizlemek/göstermek için kullanmaya çalışıyorum. Bu işi yapmak için ne eklemeliyim? Şimdiden teşekkürler.

Özel Alt CheckBox1_Click ()
[C:D].EntireColumn.Hidden = CheckBox1 Değil
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Aşağıdaki kod gösterildiği gibi, lütfen "Sayfa4"ü ayrı sayfa adınızla değiştirin.

Özel Alt CheckBox1_Click ()
[Sheet4!C:D].EntireColumn.Hidden = CheckBox1 Değil
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Merhaba, kodu yaptım, işe yarıyor ama aynı sayfada birden fazla onay kutusunda aynı şeyi yapmaya çalıştığımda 'birlikte' çalışıyorlar, yalnızca üç onay kutusunun tümü seçiliyse satırları gizleyin veya gösterin.
Bu üç onay kutusunun birbirinden bağımsız çalışmasını sağlamaya çalışıyorum. Ve kullanıcıların aynı anda yalnızca bir kutuyu işaretlemesine izin verin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Lou,
Lütfen oluşturduğunuz onay kutularının ActiveX Denetimleri onay kutuları olduğundan emin olun. Bu onay kutuları, çalışma sayfanızda bağımsız olarak çalışır.
Yorumun için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Sadece bir satırı gizlemenin bir yolu var mı? 6:9 koyarsam tüm satırlar gizleniyor ama sadece 6 koyarsam hata olarak çıkıyor. Yardımınız için minnettar olurum, teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Lütfen koddaki ikinci satırı şu şekilde değiştirin:
[6:6].EntireRow.Hidden = CheckBox1 değil.
Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk üç rolü göstermeye çalıştım ama olmadı.Nasıl yapabilirim, biliyorum o dosyayı bana gönderen kişi yeteneğimi bilmek istiyor çözebilir miyim çözemez miyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mayıs,
Üzgünüm, amacını anlamadım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalıştı, ancak dosyayı kaydettiğimde ve yeniden açtığımda çalışmıyor. Bir Makro excel sayfası ve normal bir çalışma kitabı olarak kaydetmeyi denedim. Neyi yanlış yaptım? Kullanması için başkasına vermek istiyorum ve kafalarının karışmasını istemiyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba angela,Kodu çalışma kitabına ekledikten sonra, lütfen Dosya > Farklı kaydet'e tıklayın, dosyayı nereye kaydedeceğinizi seçin, Farklı Kaydet iletişim kutusunda, Kayıt türü açılır menüsünden Excel Makro Etkin Çalışma Kitabı (*.xlsm) öğesini seçin. ve son olarak Kaydet'e tıklayın. Ardından bu Excel Makro Etkin çalışma kitabını başkalarına gönderin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok faydalı, ancak bunu elektronik tablonun yalnızca bir bölümünü gizlemek için nasıl kullanabilirim? Örneğin B2:B11 hücrelerini kastediyorum, bu iki işlev nasıl birleştirilir? Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ya 3 farklı onay kutusu kullanmak istersem ve bunların her birinin farklı satır gruplarını gizleyerek geçiş yapmasını istersem? Her yeri denedim ve baktım. Bu kodu değiştirmeye çalıştığımda, onay kutuları birbiriyle çakışıyor gibi görünüyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ya 3 farklı onay kutusu kullanmak istersem ve bunların her birinin farklı satır gruplarını gizleyerek geçiş yapmasını istersem? Her yeri denedim ve baktım. Bu kodu değiştirmeye çalıştığımda, onay kutuları birbiriyle çakışıyor gibi görünüyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
En temel şey, en az bir kez yürütme ve yeniden düzenleme.

Alguém pode tamamlayıcı por iyilik? Ocultar ve reexibir colunas göstergeleri.

Özel Alt CheckBox1_Click ()
[C:D].EntireColumn.Hidden = CheckBox1 Değil
End Sub

Teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Welington Mesquita,
Bu VBA kodu şunları sağlayabilir:
Onay kutusu1 işaretlendiğinde, C:D sütunu görüntülenir;
İşareti kaldırıldığında, C:D sütunu gizlenir.
Kod benim durumumda iyi çalışıyor. Hangi Excel sürümünü kullanıyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Günaydın!
Espero que todos estejam bem!

Bir öğeyi kontrol etmek için kontrol edin.

Örnek: Tenho coluna com os isimleri: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) ve Variação (%), entanto yok, que poder seçici bireysel olarak colunas intercalando se necessário. Selecionar bazı sütunlar Realizado e Variação, sıra dışı bir dizi.

Desde já agradeço,
Welington
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Üzgünüm, ne demek istediğini anlamıyorum. Verilerinizin ekran görüntüsünü verir misiniz?
Karşılaştığınız sorunu daha net bir şekilde açıklamak için bir ekran görüntüsü veya örnek bir dosya eklemeniz gerekebilir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sıralı olmayan okul sütunları var mı?
Örnek: A e C

Mevcut durum A e C için geçerli olan bir dizi uygulama ?

"Sub CheckBox1_Click özel ()
[C:D].EntireColumn.Hidden = Yok CheckBox1
Alt Bitti"
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Aşağıdaki VBA kodu size bir iyilik yapabilir. Lütfen bir deneyin.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Etkinleştirme sırasında kontrol etmek istediğinizde, kontrol etmek istediğiniz bir şey olmayabilir.

Mein Ziel ist es mits, Kontrollkästchen aktifren des Zeile 7 einzublenden ve wenn ich den Haken wieder entferne sollte Zeile 47 wieder to beblendet sein.
Yardım ....
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Rose
Aşağıdaki VBA kodu yardımcı olabilir.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır