Excel'de bir Combo Box'ın seçilen değerine göre belirli bir çalışma sayfası nasıl açılır?

Geçerli çalışma kitabının tüm sayfa adlarını aşağıda gösterilen ekran görüntüsü gibi içeren bir Combo Box'a sahip olduğunuzu varsayarsak. Ve şimdi, Birleşik Giriş Kutusunda karşılık gelen sayfa adını seçerken belirli bir çalışma sayfasını açmak istiyorsunuz. Nasıl başarılır? Bu makaledeki yöntem size yardımcı olabilir.

VBA kodu ile bir Combo Box'ın seçilen değerine göre belirli bir çalışma sayfasını açın

VBA kodu ile bir Combo Box'ın seçilen değerine göre belirli bir çalışma sayfasını açın

Aşağıdaki VBA kodu, Excel'deki Combo Box seçimine göre belirli bir çalışma sayfasına gitmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

not: Birleşik Giriş Kutusu çalışma sayfanızda herhangi bir sayfa adı içermiyorsa, tüm sayfa adlarını bu Birleşik Giriş Kutusuna hızlı bir şekilde eklemek için lütfen aşağıdaki ipucunu izleyin. Tüm sayfa adlarını içeren bir Combo Box zaten varsa, lütfen 1 adım direkt olarak.

Bahşiş: Çalışma sayfanıza bir Komut Düğmesi 1 ekleyin, sağ tıklayın ve seçin Kodu Görüntüle sağ tıklama menüsünden. Ardından aşağıdaki VBA kodunu kopyalayıp Kod penceresini açın ve Ara Toplam + Q kapatmak için anahtarlar Uygulama için Microsoft Visual Basic pencere. Eklenen Komut Düğmesine tıklayın, ardından geçerli çalışma kitabının tüm sayfa adları ComboBox1'e otomatik olarak eklenecektir.

VBA kodu: Tüm sayfa adlarını bir Combo Box'a kolayca ekleyin

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Zaten tüm sayfa adlarını içeren bir Combo Box varsa, lütfen aşağıdaki işlemleri yapın.

1. Açmak Tasarım Modu altında Geliştirici sekmesi.

2. Sayfa adlarının bulunduğu birleşik giriş kutusuna sağ tıklayın, ardından Kodu Görüntüle sağ tıklama menüsünden.

3. Sonra Uygulamalar için Microsoft Visual Basic penceresi açılır, lütfen Kod penceresindeki orijinal VBA kodunu aşağıdaki VBA koduyla değiştirin.

VBA kodu: Seçilen Combo Box değerine göre belirli bir çalışma sayfası açın

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

not: Kodda, ComboBox1, sayfa adlarını içeren birleşik giriş kutusunun adıdır.

4. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencereyi kapatın ve Tasarım Modu altında Geliştirici sekmesi.

Şimdi, Combo Box'ta herhangi bir çalışma sayfası adını seçerken, ilgili çalışma sayfası otomatik olarak açılacaktır.

İlgili Makaleler:

• Combo Box değerini Excel'deki etkin hücreye nasıl kopyalarım?
• Excel'de açılan kutu çıktısında tarih biçimini nasıl görüntüleyebilirim?
• Excel'de belirtilen hücre değerine göre bir Komut Düğmesi nasıl gizlenir veya gösterilir?
• Excel'de birleşik giriş kutusuna yazmayı nasıl önleyebilir veya devre dışı bırakabilirim?
• Excel'de belirli bir hücreyi seçmek için açılan kutudan nasıl çıkılır?