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

Sut i ychwanegu botwm arfer at y ddewislen clicio ar y dde / cyd-destun yn Excel?

Fel isod sgrinluniau a ddangosir, mae llawer o bobl yn tueddu i ychwanegu eu swyddogaethau a ddefnyddir yn aml at ddewislen clic dde Excel er mwyn defnyddio'r swyddogaethau hyn yn gyflym gyda dim ond un clic yn y dyfodol. Mae'r erthygl hon yn sôn am ychwanegu botwm cod arferiad i'r ddewislen clic dde yn Excel.

Ychwanegwch botwm arfer i'r ddewislen cyd-destun yn Excel gyda chod VBA


Ychwanegwch botwm arfer i'r ddewislen cyd-destun yn Excel gyda chod VBA


Gan dybio eich bod wedi creu sgript VBA o'r enw MyMacro yn eich Excel, ac yn awr mae angen ichi ychwanegu'r swyddogaeth hon at y ddewislen cyd-destun ar gyfer rhedeg y cod dim ond trwy ei glicio. Gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y chwith Prosiect cwarel. Ac yna copïwch a gludwch y cod VBA isod i'r Y Llyfr Gwaith hwn (Cod) ffenestr.

Cod VBA: Ychwanegu botwm arfer i'r ddewislen cyd-destun yn 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

Nodyn: Yn y cod, disodli'r cyfan “FyMacro” gyda'r enw Macro rydych chi wedi'i greu yn eich Excel.

3. Gwasgwch y Alt + Q allweddi i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Nawr eich bod yn dychwelyd i'r rhyngwyneb Excel, ar ôl clicio ar dde ar gell, fe welwch fod y botwm newydd gyda'r enw penodedig yn cael ei ychwanegu i'r ddewislen clicio ar y dde fel y dangosir isod y screenshot. Bydd clicio'r botwm yn sbarduno'r Macro cyfatebol ar unwaith.


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (15)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae ychwanegu botwm VBA i ddewislen cyd-destun yn gweithio'n dda. Diolch. Sut ydw i'n ychwanegu mwy o fotymau? (ddim yn dda am VBA, dyna pam y cwestiwn).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Vic,
Gall y cod VBA canlynol eich helpu i ddatrys y broblem, rhowch gynnig arni.

Is-lyfr Preifat Preifat_Deactivate ()
Dim xArrB Fel Amrywiad
Dim xFNum Fel Cyfanrif
Dim xStr Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
Gyda Cais
xArrB = Array("MyMacro01", "MyMacro02", "MyMacro03")
Ar gyfer xFNum = 0 I UBound(xArrB)
xStr = xArrB(xFNum)
.CommandBars("Cell").Rheolau(xStr).Dileu
xFNum nesaf
Diwedd Gyda
Ar Gwall Ewch i 0
Is-End

Is-lyfr Gwaith Preifat_Taflen Cyn CywirClic(ByVal Sh Fel Gwrthwynebu, Targed ByVal Fel Ystod, Canslo Fel Boole)
Dim cmdBtn Fel CommandBarButton
Dim xArrB Fel Amrywiad
Dim xFNum Fel Cyfanrif
Dim xStr Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
xArrB = Array("MyMacro01", "MyMacro02", "MyMacro03")
Ar gyfer xFNum = 0 I UBound(xArrB)
xStr = xArrB(xFNum)
Gyda Cais
.CommandBars("Cell").Rheolau(xStr).Dileu
Gosod cmdBtn = .CommandBars("Cell").Controls.Add(Dros Dro:=Gwir)
Diwedd Gyda
Gyda cmdBtn
.Caption = xStr
.Style = msoButtonCaption
.OnAction = xStr
Diwedd Gyda
xFNum nesaf
Ar Gwall Ewch i 0
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio i mi, rwyf wedi gwneud yn union yr un fath â'r macro uchod gyda dim ond un ddewislen, Ydy e'n gweithio i unrhyw un arall neu ydw i'n gwneud rhywbeth o'i le?

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Peidiwch â gweithio gyda fy Excel 2013
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Yves, profais y cod hwn ar Excel 2013 ac mae'n gweithio'n derfynol. A gawsoch unrhyw anogwr gwall? Mae angen i mi wybod mwy penodol am eich mater
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich atebOnd nid yw'n gweithio ar fwrdd. Ar gell arferol mae gwaith yn berffaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r broblem yn glir nawr, ac mae angen amser arnaf i'w drwsio. Arhoswch os gwelwch yn dda. Diolch i chi am eich adborth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch
A yw hynny'n gweithio i bob llyfr gwaith hyd yn oed ar ôl ailgychwyn Excel, neu dim ond ar gyfer y llyfr gwaith dethol a arbedodd y macro i mewn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Dim ond ar gyfer y llyfr gwaith sy'n cadw'r macro ynddo y mae'n gweithio. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Размести код в отдельном модуле, для того чтобы это работало для всех документов
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour,

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. Defnyddiwch excel 2016.

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

Merci d'avance pour votre aide!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Olivier,
Mae'n ddrwg gennyf nad wyf yn deall yn iawn beth rydych chi'n ei olygu. Ydych chi'n bwriadu dychwelyd i'r ddewislen clicio dde arferol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Zdravím dokázal byste mi prosím někdo poradit s podobným problémem? Po 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 i udělat i obráceně a nějakou funkci odstranit?

děkuji
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Tomáš,
Nid wyf wedi dod ar draws y sefyllfa hon. Allwch chi atodi ciplun i ddisgrifio'r broblem y daethoch chi ar ei thraws yn gliriach.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir