Jak zastosować przycisk, aby otworzyć inny skoroszyt w programie Excel?
W arkuszu roboczym możemy wstawić hiperłącze, aby połączyć inny skoroszyt, dzięki czemu można go szybko i łatwo otworzyć. Ale czy kiedykolwiek próbowałeś utworzyć przycisk do otwierania innego skoroszytu za pośrednictwem aktywnego skoroszytu?
Zastosuj przycisk, aby otworzyć inny skoroszyt z kodem VBA
Zastosuj przycisk, aby otworzyć inny skoroszyt z kodem VBA
W programie Excel możemy wstawić przycisk kształtu, a następnie połączyć z nim kod. Możesz rozwiązać to zadanie, wykonując następujące czynności:
1. Kliknij wstawka > Kształty > Prostokątzobacz zrzut ekranu:
2. Następnie przeciągnij myszą, aby narysować przycisk kształtu i sformatuj go zgodnie z potrzebami, patrz zrzut ekranu:
3. A następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
4. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Otwórz określony skoroszyt:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
Note: W powyższym kodzie należy zmienić ścieżkę i nazwę pliku C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx do rzeczywistej ścieżki skoroszytu, do którego chcesz utworzyć łącze.
5. Następnie zapisz i zamknij to okno kodu, kliknij prawym przyciskiem myszy przycisk kształtu, który utworzyłeś, wybierz Przypisz makro z menu kontekstowego w wyskakującym pliku Przypisz makro kliknij nazwę makra Otwórz skoroszyt_Kliknij właśnie wstawiłeś i kliknij OK przycisk, zobacz zrzut ekranu:
6. Teraz po kliknięciu przycisku kształtu:
(1.) Jeśli skoroszyt nie istnieje, pojawi się następujące okno zachęty:
(2.) Jeśli skoroszyt istnieje, zostanie otwarty od razu i pojawi się również okienko zachęty przypominające:
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!