Forum 3Dnews Tech - Показать сообщение отдельно

Nesta_dima · 14.08.2013, 09:48

PHP код:


			
Sub rep()

If ActiveSheet.Hyperlinks.Count = 0 Then

    MsgBox "no URLs"

    Exit Sub

End If

For i = 1 To ActiveSheet.Hyperlinks.Count

    ActiveSheet.Hyperlinks(i).Address = "http://cdn1.sima-land.ru/items/" & Mid(ActiveSheet.Hyperlinks(i).Address, 26, 3) & "/" & Mid(ActiveSheet.Hyperlinks(i).Address, 26, 6) & "/0/700.jpg"

Next

End Sub

запускать только один раз! т.к. на втором и следующем запусках - покоцает ссылки.... мне лень делать проверку)

Сделано на основе http://forum.ixbt.com/topic.cgi?id=23:33826

Добавлено через 5 минут

Функция Mid (Visual Basic): http://msdn.microsoft.com/ru-ru/libr...(v=vs.90).aspx
Оператор &: http://msdn.microsoft.com/ru-ru/libr.../gg264104.aspx

Отличный ответ спасибо. А подскажите пожалуйста если в url ячейки нет ссылки, а требуется из значения ссылки ее сделать, как это реализовать. Например :
Есть ячейка в колонке с числом 552578, нужно для это ячейки сделать гипперссылку и в url написать http://cdn3.sima-land.ru/items/552/552578/0/700.jpg
если число 552579 - то ссылка будет выглядеть http://cdn4.sima-land.ru/items/552/552579/0/700.jpg
т.е. менять автоматом у всех выбранных ячейках столбца
Подскажите с макросом.

14.08.2013, 09:48	Вверх #499
Nesta_dima Новенький Регистрация: 02.08.2013	замена URL Цитата (garniv) » PHP код: `Sub rep() If ActiveSheet.Hyperlinks.Count = 0 Then MsgBox "no URLs" Exit Sub End If For i = 1 To ActiveSheet.Hyperlinks.Count ActiveSheet.Hyperlinks(i).Address = "http://cdn1.sima-land.ru/items/" & Mid(ActiveSheet.Hyperlinks(i).Address, 26, 3) & "/" & Mid(ActiveSheet.Hyperlinks(i).Address, 26, 6) & "/0/700.jpg" Next End Sub` запускать только один раз! т.к. на втором и следующем запусках - покоцает ссылки.... мне лень делать проверку) Сделано на основе http://forum.ixbt.com/topic.cgi?id=23:33826 Добавлено через 5 минут Функция Mid (Visual Basic): http://msdn.microsoft.com/ru-ru/libr...(v=vs.90).aspx Оператор &: http://msdn.microsoft.com/ru-ru/libr.../gg264104.aspx Отличный ответ спасибо. А подскажите пожалуйста если в url ячейки нет ссылки, а требуется из значения ссылки ее сделать, как это реализовать. Например : Есть ячейка в колонке с числом 552578, нужно для это ячейки сделать гипперссылку и в url написать http://cdn3.sima-land.ru/items/552/552578/0/700.jpg если число 552579 - то ссылка будет выглядеть http://cdn4.sima-land.ru/items/552/552579/0/700.jpg т.е. менять автоматом у всех выбранных ячейках столбца Подскажите с макросом.