Ինչպե՞ս Excel- ում աջ սեղմման / համատեքստի ընտրացանկում ավելացնել հարմարեցված կոճակ:
Ինչպես ցույց է տրված սքրինշոթերի ներքևում, շատ մարդիկ հակված են իրենց հաճախ օգտագործվող գործառույթները ավելացնել Excel- ի աջ կտտոցի ընտրացանկում, որպեսզի հետագայում այդ գործառույթներն արագ օգտագործեն ընդամենը մեկ կտտոցով: Այս հոդվածը խոսում է Excel- ում աջ սեղմման ընտրացանկում հարմարեցված կոդ կոճակ ավելացնելու մասին:
VBA կոդով Excel- ում համատեքստային ընտրացանկին ավելացրեք հարմարեցված կոճակ
VBA կոդով Excel- ում համատեքստային ընտրացանկին ավելացրեք հարմարեցված կոճակ
Ենթադրելով, որ ձեր Excel- ում ստեղծել եք MyMacro անունով VBA գրություն, և այժմ կոդը գործարկելու համար հարկավոր է այս գործառույթն ավելացնել համատեքստային ընտրացանկում ՝ պարզապես սեղմելով այն: Խնդրում եմ, արեք հետևյալ կերպ.
1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս գործառույթը ձախում Նախագիծ պատուհան Եվ ապա պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Այս աշխատանքային գիրքը (ծածկագիր) պատուհան.
VBA կոդ. Excel- ում համատեքստային ընտրացանկում ավելացրեք հարմարեցված կոճակ
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
.CommandBars("Cell").Controls("MyMacro").Delete
End With
On Error GoTo 0
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cmdBtn As CommandBarButton
On Error Resume Next
With Application
.CommandBars("Cell").Controls("MyMacro").Delete
Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
End With
With cmdBtn
.Caption = "MyMacro"
.Style = msoButtonCaption
.OnAction = "MyMacro"
End With
On Error GoTo 0
End Sub
ՆշումԿոդում խնդրում ենք փոխարինել բոլորը «MyMacro» ձեր Excel- ում ստեղծած մակրո անվանմամբ:
3. Սեղմեք ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այժմ դուք վերադառնում եք Excel ինտերֆեյս, բջիջի վրա աջ կտտացնելուց հետո կտեսնեք, որ նշված անունով նոր կոճակը ավելացված է աջ կտտացնելու ընտրացանկում, ինչպես ցույց է տրված նկարում: Սեղմեք կոճակը անմիջապես կաշխատի համապատասխան մակրո-ն
Առնչվող հոդվածներ:
- HExcel- ում հրամանի կոճակի միջոցով ավտոմատ կերպով տեղադրե՞լ դատարկ նոր տող:
- Ինչպե՞ս օգտագործել հրամանի կոճակը ՝ Excel- ում ակտիվ աշխատանքային թերթը որպես PDF ֆայլ պահելու համար:
- Ինչպե՞ս պահպանել և փակել ակտիվ աշխատանքային գիրքը առանց Excel- ում հրամանի կոճակի հուշման:
- Ինչպե՞ս թարմացնել կամ տեղադրել (ընթացիկ) ամսաթիվը և ժամանակը Excel- ում հրամանի կոճակի միջոցով:
- Ինչպե՞ս անջատել կոճակը Excel- ում մեկ անգամ կտտացնելուց հետո:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: