Gå til hovedindhold

Sådan hyperlinkes en kommandoknap til en URL-adresse i Excel?

I Excel kan det være let for os at oprette et hyperlink til en formknap, men har du nogensinde prøvet at oprette et hyperlink til en kommandoknap? Når du klikker på kommandoknappen, går den til det angivne webadresse efter behov. Denne artikel vil jeg introducere nogle hurtige og nemme tricks til at håndtere denne opgave i Excel.

Hyperlink en kommandoknap til en URL-adresse med VBA-kode


pil blå højre boble Hyperlink en kommandoknap til en URL-adresse med VBA-kode

For at hyperlinke en kommandoknap skal du gøre følgende:

1. Klik Udvikler > indsatte > Kommando-knap (ActiveX-kontrol), og træk derefter en knap som vist på følgende skærmbillede:

doc hyperlink kommandoknap 1

2. Når du har indsat kommandoknappen, skal du højreklikke på den og vælge Ejendomme fra genvejsmenuen i Ejendomme dialogboksen, klik kategoriseret fanen, og indtast den komplette webadresse, du vil linke til Caption tekstboks, se skærmbillede:

doc hyperlink kommandoknap 2

3. Luk derefter dialogen, og højreklik på arkfanen, der indeholder kommandoknappen, og vælg Vis kode fra genvejsmenuen og i det åbnede Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modul:

VBA-kode: hyperlink til en kommandoknap:

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

doc hyperlink kommandoknap 3

Bemærk: I ovenstående kode, KommandoKnap1 er navnet på den oprettede kommandoknap, skal du ændre den til dit behov.

4. Og gem derefter koden, og afslut Design Mode, nu, når du klikker på kommandoknappen, går den til den specifikke webside.

Tips: Hvis billedteksten i kommandoknappen ikke er URL-adressen, er det kun tekststreng som vist på følgende skærmbillede:

doc hyperlink kommandoknap 4

Du kan anvende nedenstående VBA-kode for at opnå det:

VBA-kode: hyperlink til en kommandoknap:

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

doc hyperlink kommandoknap 5

Bemærk: I ovenstående kode, KommandoKnap1 er navnet på den oprettede kommandoknap, og du skal erstatte webstedets adresse https://www.extendoffice.com til din egen URL-adresse.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kan je dit ook gebruiken om met een druk van de knop naar bovenaan een sheet te gaan?
This comment was minimized by the moderator on the site
Hello, Raver,
To click a button to go the top of the worksheet, please apply the below code:
Private Sub CommandButton1_Click()
ActiveSheet.Range("A1").Select
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you very much.
This comment was minimized by the moderator on the site
Gracias me sirvió full.
This comment was minimized by the moderator on the site
Thank you, can you show how you could link the URL from a cell on a sheet?
This comment was minimized by the moderator on the site
¿Cómo se podría hacer con un cuadro de texo? Es decir, que cualquier dirección web que se ponga en un cuadro de texto se puede abrir con un boton
Gracias
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations