Excel Çalışma Kitabında her zaman görünür olması için bir sayfa konumunu nasıl kilitleyebilirim?
Bir çalışma kitabında birden çok sayfa varsa, son bir sayfaya geçtiğinizde, ilk sayfa aşağıda gösterildiği gibi sayfa sekmesi çubuğunda gizlenecektir. Şimdi bir ana sayfanın konumunu her zaman görünür olacak şekilde kilitlemek istiyorsunuz, bunu nasıl halledebilirsiniz?
VBA ile sayfa konumunu kilitle
VBA ile sayfa konumunu kilitle
Burada, bu işi halletmeniz için iki VBA kodu sunuyoruz.
Sayfaya git
1. Basın Alt + F11 etkinleştirmek için anahtarlar Windows için Microsoft Visual Basic.
2. tık Ekle > modül, ardından aşağıdaki kodu kopyalayıp komut dosyasına yapıştırın.
VBA: Ana sayfaya atlayın
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End Sub
not: Kod diliminde E-Tablolar ("Ana"). Etkinleştirolarak değiştirebilirsiniz. usta İhtiyacınız olan herhangi bir sayfa adına.
3. Ardından bu kodu kaydedin ve çalışma kitabına geri dönün, Geliştirici > Makrolar.
4. içinde Makro iletişim kutusu, şimdi girdiğiniz kod adını seçin, tıklayın Opsiyonlar, bu kodu çalıştırmak için bir kısayol oluşturun.
5. tık OK ve kapat Makro iletişim.
Şu andan itibaren, oluşturduğunuz kısayola basarken, hangi sayfayı kullanırsanız kullanın, ana sayfa etkinleştirildi.
Sayfayı her zaman önde tutun
1. Basın Alt + F11 etkinleştirmek için anahtarlar Windows için Microsoft Visual Basic.
2. Çift tıklama Bu Çalışma Kitabı itibaren Proje-VBAProject bölmesini açın ve aşağıdaki kodu kopyalayıp komut dosyasına yapıştırın.
VBA: Sayfayı her zaman önde tutun
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
Dim xSheet As Worksheet
Application.EnableEvents = False
Set xSheet = Sheets("master")
If Sh.Name <> xSheet.Name Then
Sh.Move , xSheet
xSheet.Activate
Sh.Activate
End If
Application.EnableEvents = True
End Sub
3. Kodu kaydedin ve VBA penceresini kapatın. Şu andan itibaren, hangi sayfayı tıklarsanız tıklayın, ana sayfa her zaman sekme çubuğunun önünde kalır.
Not: Yukarıdaki kodda, “Ana” görünür kalmasını istediğiniz sayfa adıdır, ihtiyaç duyduğunuzda değiştirin.
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!