Macro pentru a repara hyperlink-uri deteriorate în întreaga carte Excel, Excel macro-uri

Sunteți sigur că aveți pe lista este un hyperlink (albastru subliniat), mai degrabă decât cu formula, de exemplu?

Apăsați pe Ctrl + H (Găsiți și caseta de dialog Replace)
în "Ce să înlocuiască" introduceți AppData \ Local \ LocalSettings \ AppData \ Local \ LocalSettings \ Temp
în „Ce pentru a înlocui“ enter Ok!
și faceți clic pe „Înlocuiește tot“

Am nevoie pentru a scrie

Sub ZamenaIsporchennihGiperssilok ()
On Error Reluare următor
hl Dim Ca Hyperlink, oldString ca șir, newstring ca șir, sh Ca foaie de lucru
„O parte din hyperlink, pe care doriți să îl modificați
oldString = "D: \ bază tehnică de reglementare \ Materiale tipice pentru proiectarea seriilor \ tip \ AppData \ Local \ LocalSettings \ AppData \ Local \ LocalSettings \ Temp"
„Pentru ce să se schimbe
newstring = „D:! \ de reglementare de bază tehnică \ materiale tipice pentru proiectarea seria \ de tip \ Ok“
Pentru fiecare sh In bucla ActiveWorkbook.Worksheets' peste toate foile din registrul de lucru activ
Pentru fiecare hl În iteraŃia sh.Hyperlinks' prin toate hyperlink-uri de pe o foaie
Dacă hl.Address Ca oldString „*“ Atunci
hl.Address = Înlocuiți (hl.Address, oldString, newstring)
End If
următor
Urmatorul sh
end Sub

Cu toate acestea, semnele pozitive ale lucrării nu a depus.

Ei bine, puteți „izola“ ca șiruri - asta numai dacă trebuie să?
Dacă nu știi ce o „selecție“ - de ce o fac?
Acest macro breakpoint. Acesta vă doriți macro să se oprească pe fiecare linie?

Codul a lucrat o dată - atunci problema nu este exact în ea.
Uita-te pentru problema sub hyperlink-uri sens unic, și macro de înlocuire a textului.
Și elimina toate punctele roșii (sau să le plaseze în viitor)

Te rog spune-mi - script-ul doar o singură dată încărcați. Apoi, dintr-un motiv m-am oprit de lucru. M-am dus la „Conectare“ în macro, și este posibil să se selecteze toate liniile de roșu (punct roșu și linia roșie), în plus față de Dim hl Ca Hyperlink, oldString ca șir, newstring ca șir, sh Ca foaie de lucru. Pur și simplu nu se poate trage pe săgeată pentru a depana. Adică, înțeleg script-ul este oprit pe ea. Deși script-ul exact 1 timpul de încărcare. Am salvat documentul, apoi a fost un pic mutat, am schimbat scenariul din nou, după cum este necesar (adică, directorul de destinație) și sa oprit de lucru.

Va multumesc foarte mult! Foarte util! Putem spune, salvat de la seful pedeapsa)))!

În „Schimbarea hyperlink-uri“ de pe stânga există o alegere:
Alocați:
- fișier, pagina web;
- așezați în document;
- un nou instrument;
- prin e-mail.
Tu nu ești greșit.