Массовое изменение внешнего вида URL в Microsoft Excel

Question

Я хочу изменить внешний вид URL-адресов на листе Microsoft Excel. В настоящее время текущий URL выглядит примерно так: http://www.example.com/101010101010101010101010101 . Я знаю, как изменить текст привязки URL-адресов, щелкнув правой кнопкой мыши по рабочему листу и щелкнув по «гиперссылке», однако это работает далеко не идеально при работе с рабочими листами с тысячами URL-адресов.

Я хотел бы удалить полный текст привязки URL-адреса и заменить его на ASCII ✔ но в больших масштабах и убедиться, что ссылки по-прежнему работают.

Резюме вопросов

Как изменить внешний вид тысячи URL-адресов в Microsoft Excel?

Answer 1

Попробуйте этот небольшой макрос VBA :

Sub HyperFixer()
    Dim h As Hyperlink, r As Range
    For Each h In ActiveSheet.Hyperlinks
        Set r = h.Parent
        h.TextToDisplay = "a"
        r.Font.Name = "Marlett"
    Next h
End Sub

Макросы очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. откройте окно VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы использовать макрос из Excel:

1. ALT-F8
2. Выберите макрос
3. Нажмите RUN

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Макросы должны быть включены, чтобы это работало!