Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe klikbare hyperlinks in draaitabellen te maken?

U kunt eenvoudig op een hyperlink klikken om naar zijn webpagina in een werkblad te linken, maar als u een draaitabel maakt die hyperlinks bevat, kunnen de hyperlinks niet worden aangeklikt. Heb je goede ideeën om dit probleem in Excel op te lossen?

Creëer klikbare hyperlinks in draaitabel met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Creëer klikbare hyperlinks in draaitabel met VBA-code


De hyperlinks werken standaard niet in de draaitabel, maar gelukkig kunt u een VBA-code maken om de hyperlinks in de draaitabel klikbaar te maken.

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Kies vervolgens uw gebruikt werkblad aan de linkerkant Projectverkenner deelvenster, dubbelklik erop om a te openen moduleen kopieer en plak vervolgens de VBA-code in de lege map module:

VBA-code: maak klikbare hyperlinks in draaitabel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update 20140814
If Target.Cells.Count <> 1 Then Exit Sub
On Error Resume Next
Application.ActiveWorkbook.FollowHyperlink Address:=CStr(Target.Value), NewWindow:=True
End Sub

doc-make-hyperlink-click-draaitabellijst-1

3. Sla deze code vervolgens op en sluit deze, ga terug naar uw werkblad en klik nu op de hyperlink in uw draaitabel om de hyperlink te activeren en naar zijn webpagina te linken.

Notes: Deze code is alleen beschikbaar voor de koppelingen naar de webpagina die beginnen met Http: //.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rayo123000 · 6 months ago
    Muchas gracias. A mi me ha funcionado con enlaces a peliculas de mi disco duro, que tenia una base de datos de mis pelis. Asi que no solo funciona con http... o al menos a mi me ha servido.
  • To post as a guest, your comment is unpublished.
    D · 7 months ago
    I tried the oce but it doesn't work. I someone willing to take a look at my document ?
  • To post as a guest, your comment is unpublished.
    marion · 1 years ago
    I have two types of data in my pivot table that would use a hyperlink: 1. a hyperlink to a document located on a shared drive. 2. an email address that I would like to use the mailto link to open an email. The macro above works for the document, but I can't figure out how to make it work for the email. Any ideas?
  • To post as a guest, your comment is unpublished.
    VKing · 2 years ago
    This works very well, but I'm trying to figure out how to have a shorter friendly name to click on rather than a long URL. I have 3 columns of different links and they all run together visually. A symbol or even a friendly name based on a previous cell in that row would be excellent.
  • To post as a guest, your comment is unpublished.
    Robin Keim · 2 years ago
    What about Hyperlinking documents within the pivot table?
  • To post as a guest, your comment is unpublished.
    Ryan · 2 years ago
    This will make it so it works across all workbooks. Enter this into "ThisWorkbook" rather than individual sheets.

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' MsgBox Sh.Name
    ' MsgBox Target.Address
    If Target.Cells.Count = 1 Then
    On Error Resume Next
    ActiveWorkbook.FollowHyperlink Address:=CStr(Target.Value), NewWindow:=True
    On Error GoTo 0
    End If
    End Sub