Excel - Pretvori hipervezu u tekstualni format

Problem

Radim s programom Excel 2003.My problem je, moram hraniti bazu podataka sa starim Excel datotekama. Postoje tisuće hiperveza. Hiperpoveznica je pretvorena u "1". Da bih dobio podatke u novu bazu podataka moram uvesti ime u tekstualnom obliku. Kako ga automatski pronaći?

Riješenje

S VBA:

  • Otvorite radnu knjigu,
  • Napravite kopiju (osim kao) i radite na kopiji!
  • U kopiji radne knjige:
  • Pritisnite ALT + F11
  • Insert / Modul
  • Kopirajte / zalijepite ovaj kôd:

 Sub AfficheNomCompletLienHypertexte () Dim Lign As Long, DrLig kao dugo Dim Col kao bajt Dim NomDuLien As String Col = 1 '==> Adapter: n ° de la colonne contenant vos liens hypertextes Sa Sheets ("Feuil1")' Adapter koji je postavio ime sugovornika za zaštitu prava DrLig = Stupci (Col). Find ("*",,,, xlByColumns, xlPrevious) .Row For Lign = 1 Za DrLig Ako .Cells (Lign, Col) .Hyperlinks.Count = 1 Onda NomDuLien = .Cells (Lign, Col) .Hiperlinkovi (1) .Adress .Cells (Lign, Col) .Hyperlinks.Delete. Cells (Lign, Col) .Clear ActiveSheet.Hyperlinks.Add Anchor: =. Lign, Col), Adresa: = NomDuLien; 

Ovaj kôd možete prilagoditi proračunskoj tablici.

Pritisnite ALT + F8, odaberite "AfficheNomCompletLienHypertexte" i pokrenite.

Zahvaljujući Pikajuu za ovaj savjet.

Prethodni Članak Sljedeći Članak

Top Savjeta