Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос, изменяющий название гиперссылки / 4 сообщений из 4, страница 1 из 1
11.08.2015, 17:29
    #39027281
Takayavot
Takayavot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, изменяющий название гиперссылки
Доброго всем дня!
Прошу помощи в написании небольшого макроса

С столбце А следующая структура данных
- Название 1
- Название 2
- Название 3
- Гиперссылка с постоянным названием (Current Page)

и так далее..(пример ниже)

Необходимо, чтобы название гиперссылки менялось на Название 1. То есть нужно присвоить имени гиперссылки значение ячейки, расположенной на 3 строки выше, чем сама гиперссылка.

Верю, что код несложный для умелых. Может кто поможет? Буду очень признательна

Прилагаю пример:


TOTAL PLANT BASED DRINKS - VOLUME
Default Report
HIDE NA MARKETS
Current Page

OTHER PLANT BASED DRINKS - VOLUME
Default Report
HIDE NA MARKETS
Current Page

SOY CREAM - VOLUME
Default Report
HIDE NA MARKETS
Current Page

SOY DESSERT - VOLUME
Default Report
HIDE NA MARKETS
Current Page
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2015, 17:31
    #39027286
Takayavot
Takayavot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, изменяющий название гиперссылки
Также прилагаю Excel файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2015, 17:52
    #39027316
hclubmk
hclubmk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, изменяющий название гиперссылки
Takayavot, типа такого?:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Sub Foo()
For Each cell In Range("C:C")
    If Not IsEmpty(cell.Value) Then
        cell.Value = cell.Offset(-3, -1).Value
    End If
Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2015, 17:55
    #39027323
Takayavot
Takayavot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, изменяющий название гиперссылки
hclubmkTakayavot, типа такого?:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Sub Foo()
For Each cell In Range("C:C")
    If Not IsEmpty(cell.Value) Then
        cell.Value = cell.Offset(-3, -1).Value
    End If
Next
End Sub



Вы гений! Я почему-то думала, что нужно с объектом гиперссылка заморачиваться и ничего не получалось. Огромное спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос, изменяющий название гиперссылки / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]