Ինչպե՞ս Excel- ում աջ սեղմման / համատեքստի ընտրացանկում ավելացնել հարմարեցված կոճակ:

Ինչպես ցույց է տրված սքրինշոթերի ներքևում, շատ մարդիկ հակված են իրենց հաճախ օգտագործվող գործառույթները ավելացնել Excel- ի աջ կտտոցի ընտրացանկում, որպեսզի հետագայում այդ գործառույթներն արագ օգտագործեն ընդամենը մեկ կտտոցով: Այս հոդվածը խոսում է Excel- ում աջ սեղմման ընտրացանկում հարմարեցված կոդ կոճակ ավելացնելու մասին:

VBA կոդով Excel- ում համատեքստային ընտրացանկին ավելացրեք հարմարեցված կոճակ

VBA կոդով Excel- ում համատեքստային ընտրացանկին ավելացրեք հարմարեցված կոճակ

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

Ենթադրելով, որ ձեր 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-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...