Hogyan alkalmazhatunk egy gombot egy másik munkafüzet megnyitásához az Excel programban?
Egy munkalapba beilleszthetünk egy hiperhivatkozást egy másik munkafüzet összekapcsolására, így gyorsan és egyszerűen megnyithatja azt. De próbált már létrehozni egy gombot egy másik munkafüzet megnyitásához az aktív munkafüzet segítségével?
Használjon egy gombot egy másik VBA kódú munkafüzet megnyitásához
Használjon egy gombot egy másik VBA kódú munkafüzet megnyitásához
Az Excelben beilleszthetünk egy alakzatgombot, majd összekapcsolhatunk hozzá egy kódot. Ezt a feladatot a következő lépésekkel oldhatja meg:
1. Kattints betétlap > Alakzatok > téglalap, lásd a képernyőképet:
2. Ezután húzza az egeret egy alakzatgomb rajzolásához, és formázza az igényeinek megfelelően, lásd a képernyőképet:
3. És akkor tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
4. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Nyisson meg egy konkrét munkafüzetet:
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
Megjegyzések: A fenti kódban meg kell változtatnia a fájl elérési útját és nevét C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx a linkelni kívánt munkafüzet valós útjára.
5. Ezután mentse el és zárja be ezt a kódablakot, kattintson a jobb gombbal az alakzat gombra, amelyet létrehozott, majd válassza a lehetőséget Hozzárendelje a Makrót a helyi menüből, a kiugrottban Hozzárendelje a Makrót párbeszédpanelen kattintson a makró nevére Openworkbook_Click éppen beillesztette, és kattintson OK gomb, lásd a képernyőképet:
6. Most, amikor az alakzat gombra kattint:
(1.) Ha a munkafüzet nem létezik, a következő parancsdobozt kapja:
(2.) Ha létezik a munkafüzet, akkor azonnal megnyílik, és megjelenik egy felszólító mező is, amely emlékezteti Önt:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!