[Excel] text -> url's

Pagina: 1
Acties:

  • JaWa
  • Registratie: Juni 2001
  • Laatst online: 14-04 20:42

JaWa

zie hier een icon

Topicstarter
Mijn probleem is dat ik een file heb met duizenden rijen waarvan de rij cellen gevult zijn met text maar dit moeten eingelijk hyperlinks worden want ik moet ze allemaal volgen. Mijn vraag is hoe je in cellen de text kan omvormen naar hyperlinks en dat alles in 1x.

Het mooist zou ook zijn als ik vervolgens alle (of een selectie want alles tegelijk openen trekt mijn computer waarschijnlijk niet) hyperlinks kan openen in firefox tab's of verschillende windows.

met f1 ben ik niet veel wijzer geworden

[ Voor 6% gewijzigd door JaWa op 13-07-2004 12:59 ]

Switched to the Dark Side 2005. Occasional dabbling in photography and coding


  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB/AI

Front verplichte underscores

met f1 ben ik niet veel wijzer geworden
Wel als je in de VBA editor op F1 drukt :Y)
Of makkelijker: druk op de macro-opneemknop:
code:
1
2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.tweakers.net", TextToDisplay:="www.tweakers.net"

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


  • JaWa
  • Registratie: Juni 2001
  • Laatst online: 14-04 20:42

JaWa

zie hier een icon

Topicstarter
code:
1
2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.tweakers.net", TextToDisplay:="www.tweakers.net"



deze macro werkt niet. teneerste moet ik per cel de macro uitvoeren en ten tweede als ik hem uitvoer dan voert hij telkens de url in die ik tijdens het opnemen heb gebruikt.

[ Voor 26% gewijzigd door JaWa op 13-07-2004 14:25 ]

Switched to the Dark Side 2005. Occasional dabbling in photography and coding


  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

JaWa schreef op 13 juli 2004 @ 14:24:
code:
1
2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.tweakers.net", TextToDisplay:="www.tweakers.net"



deze macro werkt niet. teneerste moet ik per cel de macro uitvoeren en ten tweede als ik hem uitvoer dan voert hij telkens de url in die ik tijdens het opnemen heb gebruikt.
Je meent het :)
Misschien helpt het als je er een lusje omheen bouwt?
pseudo
code:
1
2
3
4
for each r in selection
      ActiveSheet.Hyperlinks.Add Anchor:=r, Address:= _
        r.value, TextToDisplay:=r.value
next r

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland


  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB/AI

Front verplichte underscores

offtopic:
Een compleet-af macro zal je in de regel niet meteen krijgen op GoT; het is toch de bedoeling om ook zelf wat te doen ;) Maar goed, inderdaad heeft Niesje een oplossing. Nog mooier is zelf de range vast zetten, scheelt weer selecteren. Maar goed, dat zijn details die niet zo belangrijk zijn voor dit eenmalig gebruik.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)