ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос, изменяющий название гиперссылки
4 сообщений из 4, страница 1 из 1
Макрос, изменяющий название гиперссылки
    #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:29
| Ответить | Цитировать | Написать  
Макрос, изменяющий название гиперссылки
    #39027286
Takayavot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Takayavot
Гость
Также прилагаю Excel файл
...
Рейтинг: 0 / 0
11.08.2015, 17:31
| Ответить | Цитировать | Написать  
Макрос, изменяющий название гиперссылки
    #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:52
| Ответить | Цитировать | Написать  
Макрос, изменяющий название гиперссылки
    #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
11.08.2015, 17:55
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос, изменяющий название гиперссылки
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=43&tid=2173401]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 28ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 300ms
total:  427ms
созд. / загр.: 427ms
x
x
Закрыть


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