Hoe voegt u een aangepaste knop toe aan het contextmenu (rechtermuisklik) in Excel?
Zoals in de onderstaande schermafbeeldingen te zien is, voegen veel gebruikers hun meest gebruikte functies toe aan het rechtermuisklikmenu van Excel, zodat ze deze in de toekomst met slechts één klik snel kunnen gebruiken. Dit artikel behandelt het toevoegen van een aangepaste codeknop aan het rechtermuisklikmenu in Excel.
Voeg een aangepaste knop toe aan het contextmenu in Excel met VBA-code
Voeg een aangepaste knop toe aan het contextmenu in Excel met VBA-code
Stel dat u een VBA-script met de naam MyMacro hebt gemaakt in uw Excel-bestand en u deze macro eenvoudig wilt uitvoeren via het contextmenu met slechts één klik. Volg dan de onderstaande stappen.
1. Druk tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications in het linkerdeelvenster op ThisWorkbook in het deelvenster Project. Plak vervolgens de onderstaande VBA-code in het venster ThisWorkbook (Code).
VBA-code: Voeg een aangepaste knop toe aan het contextmenu in 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 SubOpmerking: Vervang in de code alle exemplaren van „MyMacro” door de naam van de macro die u in uw Excel-bestand hebt gemaakt.
3. Druk op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
U keert nu terug naar de Excel-interface. Wanneer u met de rechtermuisknop op een cel klikt, ziet u de nieuwe knop met de opgegeven naam in het contextmenu verschijnen, zoals in de onderstaande schermafbeelding is te zien. Een klik op de knop voert onmiddellijk de bijbehorende macro uit.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- H oe voegt u automatisch een lege nieuwe rij in met een opdrachtknop in Excel?
- Hoe gebruikt u een opdrachtknop om het actieve werkblad op te slaan als PDF-bestand in Excel?
- Hoe sla ik het huidige werkboek op en sluit ik het zonder melding via een opdrachtknop in Excel?
- Hoe voegt u de huidige datum en tijd in of werkt u deze bij met een opdrachtknop in Excel?
- Hoe schakelt u een knop na één klik uit in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins