Kako uporabiti gumb za odpiranje drugega delovnega zvezka v Excelu?
V delovni list lahko vstavimo hiperpovezavo, da povežemo drug delovni zvezek, tako da ga lahko hitro in enostavno odpremo. Ali ste že kdaj poskusili ustvariti gumb za odpiranje drugega delovnega zvezka prek aktivnega delovnega zvezka?
Uporabite gumb, da odprete nov delovni zvezek s kodo VBA
Uporabite gumb, da odprete nov delovni zvezek s kodo VBA
V Excelu lahko vstavimo gumb za obliko in mu nato povežemo kodo. To delo lahko rešite z naslednjimi koraki:
1. Kliknite Vstavi > Oblike > pravokotnik, glej posnetek zaslona:
2. Nato povlecite miško, da narišete gumb za obliko, in ga formatirajte po svojih željah, glejte posnetek zaslona:
3. In nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
4. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Odprite določen delovni zvezek:
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
Opombe: V zgornji kodi morate spremeniti pot in ime datoteke C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx do resnične poti delovnega zvezka, na katerega se želite povezati.
5. Nato shranite in zaprite to okensko okno, z desno miškino tipko kliknite gumb oblike, ki ste ga ustvarili, izberite Dodeli makro iz kontekstnega menija v izpuščenem Dodeli makro v pogovornem oknu kliknite ime makra Openworkbook_Klik pravkar ste vstavili in kliknite OK gumb, glej posnetek zaslona:
6. Zdaj, ko kliknete gumb za obliko:
(1.) Če delovni zvezek ne obstaja, se prikaže naslednje pozivno polje:
(2.) Če delovni zvezek obstaja, se bo takoj odprl, prav tako pa se bo pojavilo pozivno polje, ki vas bo opozorilo:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!