Preskoči na glavno vsebino

Kako hiperpovezati ukazni gumb na naslov URL v Excelu?

V Excelu je morda enostavno ustvariti hiperpovezavo za gumb oblike, vendar, ali ste že poskusili ustvariti hiperpovezavo do ukaznega gumba? Ko kliknete ukazni gumb, bo po potrebi preusmerjen na določeno spletno mesto URL. V tem članku bom predstavil nekaj hitrih in enostavnih trikov za reševanje te naloge v Excelu.

Hiperpovežite ukazni gumb na naslov URL s kodo VBA


puščica modri desni mehurček Hiperpovežite ukazni gumb na naslov URL s kodo VBA

Če želite hiperpovezati ukazni gumb, naredite naslednje:

1. Kliknite Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX)in nato narišite gumb, kot je prikazano na sliki:

doc hiperpovezava ukazni gumb 1

2. Ko vstavite ukazni gumb, ga kliknite z desno miškino tipko in izberite Nepremičnine iz kontekstnega menija v Nepremičnine pogovorno okno, kliknite Kategorizirani in vnesite celoten naslov spletnega mesta, na katerega želite povezati napis besedilno polje, glej posnetek zaslona:

doc hiperpovezava ukazni gumb 2

3. Nato zaprite pogovorno okno in z desno miškino tipko kliknite zavihek lista, ki vsebuje ukazni gumb, in izberite Ogled kode v priročnem meniju in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazen modul:

Koda VBA: hiperpovezava do ukaznega gumba:

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

doc hiperpovezava ukazni gumb 3

Opombe: V zgornji kodi, Ukazni gumb1 je ime ustvarjenega ukaznega gumba, ga spremenite po svojih željah.

4. Nato shranite kodo in zapustite Način oblikovanja, zdaj, ko kliknete ukazni gumb, bo odprla določeno spletno stran.

nasveti: Če napis v ukaznem gumbu ni naslov URL, je le besedilni niz, kot je prikazano na sliki spodaj:

doc hiperpovezava ukazni gumb 4

Za doseganje lahko uporabite spodnjo kodo VBA:

Koda VBA: hiperpovezava do ukaznega gumba:

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

doc hiperpovezava ukazni gumb 5

Opombe: V zgornji kodi, Ukazni gumb1 je ime ustvarjenega ukaznega gumba in zamenjajte naslov spletnega mesta https://www.extendoffice.com na svoj naslov URL.

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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