Pokaži hyperlinke kot besedilo

Pomoč pri delu z MS Excelom
Odgovori
odisej
Prispevkov: 2
Pridružen: To Sep 16, 2014 12:09 pm

Pokaži hyperlinke kot besedilo

Odgovor Napisal/-a odisej »

Iz neta sem nekje naredi copy/paste html dokumenta v Excel. V celicah sedaj piše Spletna stran, v ozadju pa seveda je link. Kako te linke dobiti kot besedilo, ker bi jih rad nekam shranil.

Grega
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Pokaži hyperlinke kot besedilo

Odgovor Napisal/-a admin »

Pozdravljeni,

Za vsako povezavo lahko vidite kam kaže tako, da v celici kliknete desni miškin gumb. Odpre se hitri meni, kjer izberete opcijo Hiperpovezava in odpre se vam okno, kjer lahko vidite kam kaže povezava.

Spodaj pa sem vam napisal tudi makro, ki to naredi za več celic hkrati. Označite poljubno območje celic in izvedite makro, ki vam bo - če bo našel povezave na označenem območju(!) - odprl nov list in vam na novem listu v kolon A zapisal besedilo celice, v kolon B pa povezavo, na katero vsebina te celice kaže:

Koda: Izberi vse

Sub DobiVsePovezave()
  Dim list As Worksheet: Set list = Nothing
  
  Dim celica As Range
  Dim r As Long: r = 1
  Dim l As Integer
  For Each celica In Selection
    If (celica.Hyperlinks.Count > 0) Then
      If (list Is Nothing) Then Set list = Worksheets.Add
      
      For l = 1 To celica.Hyperlinks.Count
        list.Cells(r, 1) = celica.Value2
        list.Cells(r, 2) = celica.Hyperlinks(l).Address
        r = r + 1
      Next
    End If
  Next
End Sub
lp,
Matjaž Prtenjak
Administrator
odisej
Prispevkov: 2
Pridružen: To Sep 16, 2014 12:09 pm

Re: Pokaži hyperlinke kot besedilo

Odgovor Napisal/-a odisej »

Super ste, hvala.
Odgovori