Hoe een aangepaste knop toevoegen aan het rechtermuisknop/contextmenu in Excel?
Zoals te zien is in de onderstaande schermafbeeldingen, hebben veel mensen de neiging om hun veelgebruikte functies toe te voegen aan het rechtermuisknopmenu in Excel, zodat ze deze functies in de toekomst snel met één klik kunnen gebruiken. Dit artikel gaat over het toevoegen van een aangepaste codeknop aan het rechtermuisknopmenu in Excel.
Aangepaste knop toevoegen aan het contextmenu in Excel met VBA-code
Aangepaste knop toevoegen aan het contextmenu in Excel met VBA-code
Stel dat je een VBA-script genaamd MyMacro hebt gemaakt in je Excel, en nu moet je deze functie toevoegen aan het contextmenu om de code uit te voeren door erop te klikken. Volg de onderstaande stappen.
1. Druk gelijktijdig op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisWorkbook in het linker Projectvenster. Kopieer en plak vervolgens de onderstaande VBA-code in het venster ThisWorkbook (Code).
VBA-code: Aangepaste knop toevoegen 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 “MyMacro” door de naam van de Macro die je in je Excel hebt gemaakt.
3. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Nu keer je terug naar de Excel-interface, na rechts te klikken op een cel, zie je de nieuwe knop met de opgegeven naam die is toegevoegd aan het rechts-klikmenu zoals te zien is in de onderstaande schermafbeelding. Als je op de knop klikt, wordt de bijbehorende Macro onmiddellijk geactiveerd.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Gerelateerde artikelen:
- Hoe automatisch een lege nieuwe rij invoegen met een Opdrachtknop in Excel?
- Hoe een Opdrachtknop gebruiken om het actieve werkblad op te slaan als PDF-bestand in Excel?
- Hoe het actieve werkboek opslaan en sluiten zonder prompt met een Opdrachtknop in Excel?
- Hoe (huidige) datum en tijd bijwerken of invoegen met een Opdrachtknop in Excel?
- Hoe een knop uitschakelen na één keer klikken in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen