Pytanie : Zamieniać sznurek w Hyperlink Adres

Kochany Ekspert:

The AKTYWNY Worksheet zawierać mnóstwo hyperlinks w che the następujący sznurek. \ My%20Product \… tworzyć część the Hyperlink adres.
I polubić ten sznurek "My%20Product" z właśnie "MyProduct" gdziekolwiek ono być część the hyperlink address.

After ten operacja być I polubić the ten sam procedura z the wystawiać imię the hyperlink.

Help dużo doceniać. Dziękować ty bardzo mocno w postęp.

Regards, Andreas

Odpowiedź : Zamieniać sznurek w Hyperlink Adres

Kochany Andreas,

Zadawalać próba z the dołączać kod.

Wspominać ono być przez wszystkie the hyperlinks w the activesheet, i zamieniać the sznurek ty wspominać w 2 atrybut:

1. Adres - być odpowiedzialny dla the połączenie
2. TextToDisplay - być odpowiedzialny dla the tekst ty widzieć w the prześcieradło.

Funkcja który robić the zastępstwo być Zamieniać.

Zadawalać notatka ty można właśnie "%20" gdy sznurek i" "(przestrzeń) gdy the zastępstwo praca w inny część the adres.

Zadawalać także notatka kopia twój worksheet przed jakaś kod.

Uwzględnienie
fakest

(1): 2: 3: 4: 5: 6: 7: 8: 9: 10:

Ciemnawy string_to_change Jako Sznurek, string_replacement Sznurek string_to_change = "\ My%20Products \" string_replacement = "\ Mój Produkt \" Ciemnawy hl Jako Hyperlink Dla ActiveSheet.Hyperlinks hl W ActiveSheet.Hyperlinks hl. Adres = Zamieniać (hl. Adres, string_to_change, string_replacement) hl.TextToDisplay = Zamieniać (hl.TextToDisplay, string_to_change, string_replacement) Następnie