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 SubNodyn: 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:
- How i fewnosod rhes newydd wag yn awtomatig gan Command Button yn Excel?
- Sut i ddefnyddio Botwm Gorchymyn i gadw taflen waith weithredol fel ffeil PDF yn Excel?
- Sut i arbed a chau llyfr gwaith gweithredol heb ei annog gan Botwm Gorchymyn yn Excel?
- Sut i ddiweddaru neu fewnosod dyddiad ac amser (cyfredol) gan Botwm Gorchymyn yn Excel?
- Sut i analluogi botwm ar ôl clicio unwaith yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
