Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս 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 ինտերֆեյս, բջիջի վրա աջ կտտացնելուց հետո կտեսնեք, որ նշված անունով նոր կոճակը ավելացված է աջ կտտացնելու ընտրացանկում, ինչպես ցույց է տրված նկարում: Սեղմեք կոճակը անմիջապես կաշխատի համապատասխան մակրո-ն


Առնչվող հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (15)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Համատեքստի ընտրացանկին ավելացնել VBA կոճակը լավ է աշխատում: Շնորհակալություն։ Ինչպե՞ս կարող եմ ավելի շատ կոճակներ ավելացնել: (ՎԲԱ-ում լավ չէ, հետևաբար հարցը).
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Վիկ,
Հետևյալ VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը, խնդրում ենք փորձել:

Մասնավոր ենթածրագիր ՝ Ակտիվացնել ()
Dim xArrB Որպես տարբերակ
Dim xFNum-ը որպես ամբողջ թիվ
Dim xStr Որպես տող
Ս.թ. սխալի Ռեզյումե Next
Դիմումով
xArrB = զանգված ("MyMacro01", "MyMacro02", "MyMacro03")
xFNum-ի համար = 0 To UBound (xArrB)
xStr = xArrB (xFNum)
.CommandBars("Cell").Controls(xStr).Delete
Հաջորդ xFNum
Վերջ
Սխալի դեպքում GoTo 0
Վերջ Sub

Մասնավոր ենթաօրենսդրական աշխատանքային գրքույկ_շերտBeforeRightClick (ByVal Sh որպես օբյեկտ, ByVal թիրախ որպես միջակայք, Չեղարկել որպես բուլյան)
Dim cmdBtn որպես CommandBarButton
Dim xArrB Որպես տարբերակ
Dim xFNum-ը որպես ամբողջ թիվ
Dim xStr Որպես տող
Ս.թ. սխալի Ռեզյումե Next
xArrB = զանգված ("MyMacro01", "MyMacro02", "MyMacro03")
xFNum-ի համար = 0 To UBound (xArrB)
xStr = xArrB (xFNum)
Դիմումով
.CommandBars("Cell").Controls(xStr).Delete
Սահմանել cmdBtn = .CommandBars("Cell").Controls.Add(Ժամանակավոր:=Ճշմարիտ)
Վերջ
cmdBtn-ով
.Վերնագիր = xStr
.Style = msoButtonCaption
.OnAction = xStr
Վերջ
Հաջորդ xFNum
Սխալի դեպքում GoTo 0
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ինձ մոտ չի աշխատում, ես արել եմ ճիշտ նույնը, ինչ վերը նշված մակրոյից՝ միայն մեկ մենյուով, ուրիշի համար է դա աշխատում, թե ես ինչ-որ բան սխալ եմ անում:

Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մի աշխատեք իմ Excel 2013-ի հետ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Իվ, ես փորձարկել եմ այս կոդը Excel 2013-ում և այն լավ է աշխատում: Ստացե՞լ եք որևէ սխալի հուշում: Ես պետք է ավելի կոնկրետ իմանամ ձեր խնդրի մասին
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն պատասխանի համար, բայց չի աշխատում սեղանի վրա: Նորմալ խցում աշխատում է անթերի։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Իվս, Խնդիրն այժմ պարզ է, և ինձ ժամանակ է պետք այն շտկելու համար: Խնդրում ենք սպասել. Շնորհակալություն արձագանքի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Thanks a lot
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն
Արդյո՞ք դա աշխատում է բոլոր աշխատանքային գրքույկների համար, նույնիսկ Excel-ը վերագործարկելուց հետո, թե՞ միայն ընտրված աշխատանքային գրքույկի համար, որտեղ մակրոն պահպանվել է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Այն աշխատում է միայն աշխատանքային գրքույկի համար, որը պահպանում է մակրոները: Շնորհակալություն մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Размести код в отдельном модуле, для того чтобы это работало для всех документов
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Je déterre le sujet car j'ai un soucis, j'ai récupérer un fichier qui m'a remplacé le menu du click droit et je ne sais pas comment revenir au menu par défaut...
Ça a modifier le menu pour n'importe quel fichier excel. Օգտագործեք Excel 2016 թ.

Je precise que le fichier coupable a un mot de passe pour accéder à son code VBA. Mot de passe qu'évidemment je ne possède pas..

Merci d'avance pour votre aide !!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Օլիվիե,
Կներեք, ես այնքան էլ չեմ հասկանում, թե ինչ նկատի ունեք: Դուք նկատի ունեք վերադառնալ սովորական աջ սեղմումով մենյու:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Zdravím dokázal byste mi prosím někdo poradit s podobným խնդիր? Posledním updatu Office přibyla v excelu po stisknutí pravého tlačítka nad kopírovat a vyjmout volba hledat v nabídkách která mi tam vadí a chtěl bych jí odstranit: Dá se to udělat i obráceně a nějakou funkci odstranit?

děkuji
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Թոմաշ,
Ես այս իրավիճակին չեմ հանդիպել։ Կարո՞ղ եք կցել սքրինշոթ՝ ձեր հանդիպած խնդիրը ավելի պարզ նկարագրելու համար:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից