..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Pokaži hyperlinke kot besedilo

Pomoč pri delu z MS Excelom

Pokaži hyperlinke kot besedilo

OdgovorNapisal/-a odisej » To sep 16, 2014 12:23 pm

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
odisej
 
Prispevkov: 2
Pridružen: To sep 16, 2014 12:09 pm



Matjazev.NET
 

Re: Pokaži hyperlinke kot besedilo

OdgovorNapisal/-a admin » To sep 16, 2014 12:52 pm

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
admin
Site Admin
 
Prispevkov: 3466
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Pokaži hyperlinke kot besedilo

OdgovorNapisal/-a odisej » To sep 16, 2014 1:06 pm

Super ste, hvala.
odisej
 
Prispevkov: 2
Pridružen: To sep 16, 2014 12:09 pm


Vrni se na Excel

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost