Hoe een opdrachtknop koppelen aan een URL-adres in Excel?

In Excel is het misschien eenvoudig om een hyperlink te maken voor een vormknop, maar heb je ooit geprobeerd om een hyperlink te maken naar een opdrachtknop? Wanneer je op de opdrachtknop klikt, ga je naar de opgegeven URL-website zoals je nodig hebt. In dit artikel introduceer ik enkele snelle en gemakkelijke trucs om deze taak in Excel uit te voeren.

Een opdrachtknop koppelen aan een URL-adres met VBA-code

Een opdrachtknop koppelen aan een URL-adres met VBA-code

Om een opdrachtknop te koppelen, volg de volgende stappen:

1. Klik op Ontwikkelaar > Invoegen > Opdrachtknop (ActiveX Control), en teken vervolgens een knop zoals in de volgende schermafbeelding wordt weergegeven:

2. Nadat je de opdrachtknop hebt ingevoegd, klik er met de rechtermuisknop op en kies Eigenschappen in het contextmenu. Voer in het dialoogvenster Eigenschappen, onder het tabblad Categorized, het volledige websiteadres in dat je wilt koppelen in het tekstvak Bijschrift, zie onderstaande schermafbeelding:

3. Sluit vervolgens het dialoogvenster en klik met de rechtermuisknop op het werkbladtabblad dat de opdrachtknop bevat, en selecteer Weergave Code in het contextmenu. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege Module:

VBA-code: hyperlink naar een opdrachtknop:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub

Opmerking: In de bovenstaande code is CommandButton1 de naam van de gemaakte opdrachtknop. Pas deze aan naar jouw behoefte.

4. Sla vervolgens de code op en verlaat de Ontwerpmodus. Nu, wanneer je op de opdrachtknop klikt, gaat het naar de specifieke webpagina.

Tips: Als het bijschrift in de opdrachtknop niet het URL-adres is, maar slechts een tekststring zoals in de volgende schermafbeelding wordt weergegeven:

Je kunt de volgende VBA-code gebruiken om dit te bereiken:

VBA-code: hyperlink naar een opdrachtknop:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub

Opmerking: In de bovenstaande code is CommandButton1 de naam van de gemaakte opdrachtknop, en je moet het websiteadres https://www.extendoffice.com vervangen door je eigen URL-adres.