Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako ustvariti ključne hiperpovezave v pivot tabeli?

Z lahkoto lahko kliknete hiperpovezavo, da se povežete s svojo spletno stranjo na delovnem listu, vendar če ustvarite pivot tabelo, ki vsebuje hiperpovezave, hiperpovezave ne bodo mogoče klikniti. Ali imate kakšne dobre ideje za rešitev te težave v Excelu?

Ustvari hiperpovezave, ki jih je mogoče klikniti, v pivot tabeli s kodo VBA


puščica modra desno mehurček Ustvari hiperpovezave, ki jih je mogoče klikniti, v pivot tabeli s kodo VBA


Hiperpovezave privzeto ne delujejo v vrtilni mizi, na srečo pa lahko ustvarite kodo VBA, da lahko hiperpovezave kliknete na pivot tabelo.

1. Drži dol ALT + F11 tipke in odpre Okno Microsoft Visual Basic za aplikacije.

2. Nato izberite svoj uporabljeni delovni list z leve Raziskovalec projekta podokno, dvokliknite, da odprete Moduli, nato pa kopirajte in prilepite po kodi VBA v prazno Moduli:

Kodo VBA: ustvarite hiperpovezave, ki jih lahko kliknete, v pivot tabeli

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-klik-pivottable-1

3. Nato shranite in zaprite to kodo, pojdite nazaj na vaš delovni list in zdaj, ko kliknete hiperpovezavo v vaši pivotni tabeli, se bo hiperpovezava aktivirala in povezala na svojo spletno stran.

Opombe: Ta koda je na voljo samo za spletne strani, ki se začnejo s Http: //.



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.
    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