Jak zablokować pozycję arkusza, aby była zawsze widoczna w skoroszycie programu Excel?
Jeśli skoroszyt zawiera wiele arkuszy, po przełączeniu się na ostatni arkusz pierwszy arkusz zostanie ukryty na pasku kart arkuszy, jak pokazano poniżej. Teraz chcesz zablokować pozycję arkusza wzorcowego, aby była zawsze widoczna, jak sobie z tym poradzić?
Zablokuj położenie arkusza za pomocą VBA
Zablokuj położenie arkusza za pomocą VBA
Tutaj przedstawiam dwa kody VBA do obsługi tej pracy.
Przejdź do arkusza
1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic dla Windows.
2. kliknij wstawka > Moduł, a następnie skopiuj i wklej poniższy kod do skryptu.
VBA: Przejdź do arkusza wzorcowego
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End Sub
Note: W fragmencie kodu Arkusze("Master").Aktywuj, możesz zmienić Mistrz do dowolnej nazwy arkusza według potrzeb.
3. Następnie zapisz ten kod i wróć do skoroszytu, kliknij Deweloper > Makra.
4. w Macro wybierz nazwę kodową, którą właśnie wpisałeś i kliknij Opcje, utwórz skrót do uruchomienia tego kodu.
5. kliknij OK i zamknij Macro dialog.
Od tej chwili, gdy naciśniesz utworzony skrót, arkusz wzorcowy zostanie aktywowany niezależnie od tego, którego arkusza użyjesz.
Trzymaj prześcieradło zawsze z przodu
1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic dla Windows.
2. Podwójne kliknięcie Ten zeszyt z Projekt-VBAProjekt okienko, a następnie skopiuj i wklej poniższy kod do skryptu.
VBA: Trzymaj arkusz zawsze z przodu
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. Zapisz kod i zamknij okno VBA. Od tej chwili, niezależnie od tego, który arkusz klikniesz, arkusz wzorcowy zawsze będzie znajdować się z przodu paska kart.
Uwaga: W powyższym kodzie "mistrz" to nazwa arkusza, którą chcesz zachować widoczną, zmień ją według potrzeb.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!