Okręt podwodny redirectLink ()
Ciemnawy rng Pasmo
Dla ActiveSheet.UsedRange.Cells rng W ActiveSheet.UsedRange.Cells
Jeżeli rng. Hyperlinks.Count = (1) Wtedy
Z rng. Hyperlinks (1)
. Adres = Zamieniać (. Adres, "ServerX", "ServerY", (1), vbTextCompare)
.TextToDisplay = Zamieniać (.TextToDisplay, "ServerX", "ServerY", (1), vbTextCompare)
Końcówka Z
Kończyć Jeżeli
Następnie
Końcówka Okręt podwodny
|