Excel'de gizli sayfaya köprü nasıl takip edilir?
Örneğin, birden çok çalışma sayfası içeren bir çalışma kitabım var, ilk ana sayfanın diğer sayfalara köprüler var ve şimdi, ilki dışındaki tüm sayfaları gizliyorum. Bu durumda, gizli sayfalara bağlanan köprüler kullanılamaz. Ancak, bu köprülerin başarılı bir şekilde çalışmasını nasıl sağlayabilirsiniz? Bir köprüyü tıkladığınızda, bağlantılı gizli sayfa, gösterilen aşağıdaki ekran görüntüsü gibi bir kerede açılacaktır:
VBA kodu ile gizli sayfayı açmak için köprüyü takip edin
Gizli sayfayı açmak için köprüyü takip edin ve ardından VBA kodu ile tekrar gizleyin
VBA kodu ile gizli sayfayı açmak için köprüyü takip edin
Aşağıdaki VBA kodu, göreli köprüsüne tıkladığınızda gizli çalışma sayfasını açmanıza yardımcı olabilir, lütfen şu şekilde yapın:
1. Gizli sayfaya giden köprüyü izlemek istediğiniz sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boş Modüle kopyalayıp yapıştırın:
VBA kodu: Gizli sayfayı açmak için köprüyü izleyin:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub
not: Yukarıdaki kodda numara 1 Bu da Target.Column = 1 ise komut dosyası, köprüleri içeren sütun numarasını gösterir, lütfen ihtiyacınıza göre değiştirin.
2. Ardından, bu kod penceresini kaydedin ve kapatın, şimdi, belirli gizli sayfaya bağlanan köprüyü tıkladığınızda, gizli sayfa bir kerede açılacaktır.
Gizli sayfayı açmak için köprüyü takip edin ve ardından VBA kodu ile tekrar gizleyin
Bazen gizli sayfayı açmak için köprüyü izlemeniz gerekir ve ana sayfaya geri döndüğünüzde, açılan sayfanın tekrar gizlenmesini istersiniz. Aşağıdaki VBA kodu size bir iyilik yapabilir:
1. Gizli sayfaya giden köprüyü izlemek istediğiniz sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boş Modüle kopyalayıp yapıştırın:
VBA kodu: Geri döndüğünüzde gizli sayfayı açmak için köprüyü izleyin, tekrar gizleyin:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
2. Ardından reklamı kaydedin, kod penceresini kapatın, köprüyü tıkladığınızda bağlantılı gizli sayfa hemen açılır, ancak köprüleri içeren ana sayfaya geri dönerseniz, açılan sayfa tekrar otomatik olarak gizlenir.
not: Bu kodlar yalnızca köprü metninizle eşleşen sayfa adlarına uygulanır.
Demo: Gizli sayfayı VBA kodu ile açmak için köprüyü takip edin
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!
En İyi Ofis Üretkenlik Araçları
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...
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!