Excel w praktyce

Twój współpracownik miał za zadanie przepisanie do arkusza kilkudziesięciu adresów emailowych klientów. Niestety zostały one zamienione na hiperłącza i kliknięcie dowolnego adresu powoduje otworzenie programu pocztowego. Utrudnia to pracę, więc należałoby zamienić łącza na tekst. Czy musisz w związku z tym klikać każdy link z osobna i z menu podręcznego wybierać polecenie Usuń hiperłącze? Niekoniecznie! Zastosuj makro, które zrobi to za Ciebie!

W tym celu:
1. Otwórz Edytor VBA za pomocą kombinacji klawiszy lewy Alt + F11.
2. Z menu Insert wybierz polecenie Module.
3. W oknie po prawej wpisz kod widoczny na rysunku.

4. Zapisz i zamknij Edytor VBA.

Makro jest gotowe i możesz je uruchomić.

W tym celu:
5. Wciśnij kombinację klawiszy lewy Alt + F8, aby otworzyć okno dialogowe Makro.
6. Na liście makr zaznacz usun_hiperlacza i kliknij przycisk Uruchom.

Wskazówka
W obecnej postaci makro usuwa hiperłącza tylko z zakresu komórek C2:C7. Jeżeli swoim działaniem miałoby objąć inny obszar, np. F2:F200, zmodyfikuj kod w następujący sposób:

Range(“F2:F200“).Hyperlinks.Delete

W ten oto sposób bez wysiłku usunąłeś wszystkie zbędne hiperłącza z zestawienia. Jeśli pojawią się kolejne, dostosuj kod makra i ponownie je uruchom.