sklo
Дата: Пятница, 08.02.2019, 18:03 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Здравствуйте! Поискал по форуму, но ответа на свой вопрос не нашел. Есть таблица, один из столбцов которой содержит гиперссылки видаhttp://mysite.ru/files/0001 http://mysite.ru/files/0002 http://mysite.ru/files/0003 и так далее. Гиперссылки были созданы через стандартное меню: правый клик мыши на ячейке - Гиперссылка То есть в ячейках написан некий текст, который является гиперссылками по вышеуказанным адресам. Задача состоит в том, чтобы изменить все эти гиперссылки в ячейках, добавив к концу каждой гиперссылки ".pdf" То есть была гиперссылка http://mysite.ru/files/0002, стала гиперссылка http://mysite.ru/files/0002.pdf. И так для каждой гиперссылки. Нашел макрос замены текста в гиперссылке на другой текст, проверил, работает. Обработал все ссылки как мне нужно, заменив адреса. Но вот добавить 4 знака в конце каждой ссылки не знаю как. Подскажите, пожалуйста! Лучше готовым макросом, сам не силен в этих делах( Спасибо!
Здравствуйте! Поискал по форуму, но ответа на свой вопрос не нашел. Есть таблица, один из столбцов которой содержит гиперссылки видаhttp://mysite.ru/files/0001 http://mysite.ru/files/0002 http://mysite.ru/files/0003 и так далее. Гиперссылки были созданы через стандартное меню: правый клик мыши на ячейке - Гиперссылка То есть в ячейках написан некий текст, который является гиперссылками по вышеуказанным адресам. Задача состоит в том, чтобы изменить все эти гиперссылки в ячейках, добавив к концу каждой гиперссылки ".pdf" То есть была гиперссылка http://mysite.ru/files/0002, стала гиперссылка http://mysite.ru/files/0002.pdf. И так для каждой гиперссылки. Нашел макрос замены текста в гиперссылке на другой текст, проверил, работает. Обработал все ссылки как мне нужно, заменив адреса. Но вот добавить 4 знака в конце каждой ссылки не знаю как. Подскажите, пожалуйста! Лучше готовым макросом, сам не силен в этих делах( Спасибо! sklo
Сообщение отредактировал sklo - Пятница, 08.02.2019, 18:13
Ответить
Сообщение Здравствуйте! Поискал по форуму, но ответа на свой вопрос не нашел. Есть таблица, один из столбцов которой содержит гиперссылки видаhttp://mysite.ru/files/0001 http://mysite.ru/files/0002 http://mysite.ru/files/0003 и так далее. Гиперссылки были созданы через стандартное меню: правый клик мыши на ячейке - Гиперссылка То есть в ячейках написан некий текст, который является гиперссылками по вышеуказанным адресам. Задача состоит в том, чтобы изменить все эти гиперссылки в ячейках, добавив к концу каждой гиперссылки ".pdf" То есть была гиперссылка http://mysite.ru/files/0002, стала гиперссылка http://mysite.ru/files/0002.pdf. И так для каждой гиперссылки. Нашел макрос замены текста в гиперссылке на другой текст, проверил, работает. Обработал все ссылки как мне нужно, заменив адреса. Но вот добавить 4 знака в конце каждой ссылки не знаю как. Подскажите, пожалуйста! Лучше готовым макросом, сам не силен в этих делах( Спасибо! Автор - sklo Дата добавления - 08.02.2019 в 18:03
Karataev
Дата: Пятница, 08.02.2019, 19:25 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
Изменение на всем листе:
[vba]
Код
Sub Добавить_pdf_весь_лист() Dim objHyp As Hyperlink Application.ScreenUpdating = False For Each objHyp In ActiveSheet.Hyperlinks objHyp.Address = objHyp.Address & ".pdf" Next objHyp MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Изменение в столбце "A":
[vba]
Код
Sub Добавить_pdf_столбец_A() Dim objHyp As Hyperlink Application.ScreenUpdating = False For Each objHyp In Columns("A").Hyperlinks objHyp.Address = objHyp.Address & ".pdf" Next objHyp MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Изменение на всем листе:
[vba]
Код
Sub Добавить_pdf_весь_лист() Dim objHyp As Hyperlink Application.ScreenUpdating = False For Each objHyp In ActiveSheet.Hyperlinks objHyp.Address = objHyp.Address & ".pdf" Next objHyp MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Изменение в столбце "A":
[vba]
Код
Sub Добавить_pdf_столбец_A() Dim objHyp As Hyperlink Application.ScreenUpdating = False For Each objHyp In Columns("A").Hyperlinks objHyp.Address = objHyp.Address & ".pdf" Next objHyp MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Karataev
Сообщение отредактировал Karataev - Пятница, 08.02.2019, 19:32
Ответить
Сообщение Изменение на всем листе:
[vba]
Код
Sub Добавить_pdf_весь_лист() Dim objHyp As Hyperlink Application.ScreenUpdating = False For Each objHyp In ActiveSheet.Hyperlinks objHyp.Address = objHyp.Address & ".pdf" Next objHyp MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Изменение в столбце "A":
[vba]
Код
Sub Добавить_pdf_столбец_A() Dim objHyp As Hyperlink Application.ScreenUpdating = False For Each objHyp In Columns("A").Hyperlinks objHyp.Address = objHyp.Address & ".pdf" Next objHyp MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Автор - Karataev Дата добавления - 08.02.2019 в 19:25
sklo
Дата: Пятница, 08.02.2019, 21:09 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Спасибо огромное!!! Это то, что нужно!
Спасибо огромное!!! Это то, что нужно! sklo
Ответить
Сообщение Спасибо огромное!!! Это то, что нужно! Автор - sklo Дата добавления - 08.02.2019 в 21:09