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

Excel'de çalışma sayfasını gizlemek veya göstermek için onay kutusu nasıl kullanılır?

Onay kutusu, Excel'deki kullanışlı bir özelliktir. Burada, Excel'de belirli bir çalışma sayfasını gizlemek veya göstermek için bir onay kutusunu nasıl kullanacağınızı göstereceğim.

Excel'de çalışma sayfasını gizlemek veya göstermek için onay kutusunu kullanın


Excel'de çalışma sayfasını gizlemek veya göstermek için onay kutusunu kullanın

Çalışma kitabınızda checkbox1 adlı bir onay kutusu olduğunu varsayarsak. Bu onay kutusunun işaretini kaldırırken, belirli bir çalışma sayfasının bu çalışma kitabında otomatik olarak gizlenmesini ve onay kutusunu işaretlerken bu çalışma sayfasının gösterilmesini istersiniz. Lütfen aşağıdaki gibi başarın.

1. Onay kutusu1 içeren çalışma sayfasını açın, sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden.

not: Eklediğinizde onay kutusu ActiveX onay kutusu olmalıdır.

2. içinde Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Belirtilen çalışma sayfasını gizlemek veya göstermek için onay kutusunu kullanın

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

not: Kodda, Sayfa5, onay kutusu1 ile gizleyeceğiniz veya göstereceğiniz çalışma sayfasının adıdır. Lütfen ihtiyacınız olan çalışma sayfası adını değiştirin.

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

Şu andan itibaren, 1 onay kutusunun işareti kaldırıldığında, belirtilen çalışma sayfası "Sayfa5" otomatik olarak gizlenecektir. Ve onay kutusunu işaretleyerek gösterebilirsiniz. Ekran görüntüsüne bakın:


İlgili Makaleler:


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 (11)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı sayfada birden fazla nasıl yapılır? Daha sonra bir onay kutusuyla sayfa 3 veya 4'ü nasıl gizlerim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Özel Alt CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Funciona Perfectamente pero, ¿cómo se pueden ocultar değişkenler hojas con el mismo onay kutusu? Tebrikler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Daha fazla bilgi için, en iyi ve en iyi geceler.

Özel Alt CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Birden çok onay kutusu olan bir sayfayı nasıl gizlerim veya gösterebilirim? Örneğin, "Ana Menü" sayfasının, onay kutusu_1, onay kutusu_2 ve onay kutusu_3 işaretlenmediği sürece gizlenmesi gerekir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba. ActiveX Denetimlerinde çok yeniyim. Bir sayfada, hepsini veya her seferinde aynı olanı değil, belirli sayfaları gizleyecek birden fazla onay kutusuna sahip olmaya çalışıyorum. Bu iki senaryo benim deneyimim oldu. Gerçekleştirmem gereken şey:
CheckBox1, Sheet2'yi gizler
CheckBox2, Sheet3'yi gizler
CheckBox3, Sheet4'yi gizler
CheckBox4, Sheet5'yi gizler
CheckBox5, Sheet6'yi gizler
CheckBox6, Sheet7'yi gizler
CheckBox7, Sheet8'yi gizler
CheckBox8, Sheet9'yi gizler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Jack
Sadece kodu tekrarlayın ve onay kutusu numaralarını ve sayfa adlarını değiştirin. Aşağıdaki kodu deneyin.

Özel Alt CheckBox1_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa2").Visible = CheckBox1.Value

End Sub

Özel Alt CheckBox2_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa3").Visible = CheckBox2.Value

End Sub

Özel Alt CheckBox3_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa4").Visible = CheckBox3.Value

End Sub

Özel Alt CheckBox4_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa5").Visible = CheckBox4.Value

End Sub

Özel Alt CheckBox5_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa6").Visible = CheckBox5.Value

End Sub

Özel Alt CheckBox6_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa7").Visible = CheckBox6.Value

End Sub

Özel Alt CheckBox7_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa8").Visible = CheckBox7.Value

End Sub

Özel Alt CheckBox8_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sayfa9").Visible = CheckBox8.Value

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kristal,
Çok teşekkürler...Mükemmel çalıştı!
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba kristal,
Bunu tersine çevirecek bir fonksiyon var mı; yani. onay kutusu işaretlenmedikçe sayfa gizlenir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bonjour
Tüm sayfalar ve durumlar. Les Chekbox sont sur la même feuille de hesap.
J'ai kopyala, prömiyer kodu ve dupliquer.

Özel Alt CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Eplucher, laver, desinfecter").Visible = CheckBox1.Value
End Sub

Özel Alt CheckBox2_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Tailler meyveler ve légumes").Visible = CheckBox1.Value
End Sub

Malheureusement, her şeyden önce gelir. Pourriez-vous m'aider svp
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Sky53,
değişmemişsin anlaşılan CheckBox1.Value ikinci VBA kodundaki ilgili onay kutusu adına.
Lütfen ikinci kodda aşağıdaki satırı değiştirin:
ThisWorkbook.Sheets("Tailler meyveler ve légumes").Visible = CheckBox1.Value
için
ThisWorkbook.Sheets("Tailler meyveler ve légumes").Visible = CheckBox2.Value
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