Ինչպե՞ս կիրառել կոճակը Excel- ում մեկ այլ աշխատանքային գիրք բացելու համար:
Աշխատաթերթում մենք կարող ենք ներդնել հիպերհղում `մեկ այլ աշխատանքային գրքույկ կապելու համար, որպեսզի այն արագ և հեշտորեն բացվի: Բայց երբևէ փորձե՞լ եք ստեղծել ակտիվ աշխատանքային գրքի միջոցով մեկ այլ աշխատանքային գիրք բացելու կոճակ:
Կիրառեք կոճակ ՝ VBA կոդով մեկ այլ աշխատանքային գիրք բացելու համար
Կիրառեք կոճակ ՝ VBA կոդով մեկ այլ աշխատանքային գիրք բացելու համար
Excel- ում մենք կարող ենք զետեղել ձևի կոճակը, այնուհետև կոդ կապել դրան: Դուք կարող եք լուծել այս աշխատանքը հետևյալ քայլերով.
1: Սեղմեք Տեղադրել > Ձեւավորում > Ուղղանկյունի, տես նկարի նկարը.
2, Դրանից հետո մկնիկը քաշեք ՝ ձևի կոճակ նկարելու համար և ձևաչափեք այն ըստ ձեր պահանջի, տես նկարի նկարը.
3, Եվ ապա պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
4: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Բացեք հատուկ աշխատանքային գրքույկ.
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
ՆշումՎերոհիշյալ կոդում դուք պետք է փոխեք ֆայլի ուղին և անունը C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx դեպի աշխատանքային գրքի իրական ուղին, որին ուզում եք կապել:
5, Դրանից հետո պահեք և փակեք այս ծածկագրի պատուհանը, աջով կտտացրեք ձեր ստեղծած ձևի կոճակին, ընտրեք Նշանակեք մակրո համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Նշանակեք մակրո երկխոսության տուփ, կտտացրեք մակրո անունը Openworkbook_ Սեղմեք դուք տեղադրեցիք հենց հիմա և կտտացրեք OK կոճակը, տես նկարի նկարը.
6, Այժմ, երբ կտտացնում եք ձևի կոճակը ՝
(1.) Եթե աշխատանքային գիրքը գոյություն չունի, դուք կստանաք հետևյալ արագ տուփը.
(2.) Եթե աշխատանքային գիրքը գոյություն ունի, այն միանգամից կբացվի, և դուրս կգա նաև հուշման տուփ ՝ հիշեցնելու համար.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: