Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/странный вид подсказки для ссылки - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
странный вид подсказки для ссылки
карандаш Дата: Пятница, 12.07.2013, 17:17 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
Здравствуйте!

Помогите, пожалуйста, понять _как_ делается подобная визуализация:
- в столбце со ссылками при наведении мышки на ячеку всплывает подсказка нестандартного вида.
Не обнаружил ни макросов, ни формул, ни кода VBA.
И это не примечание.

прикрепил файлы (исходный и в 2010).
Если файл после открытия сохранить в 2003/2007, то эффект пропадает
Но ведь исходно он в .xls, а при попытке сохранить эксел вообще предлагает формат 95 (там тем более этот эффект не сохраняется)
К сообщению приложен файл: new_7.zip (18.3 Kb) · new_7_open_save.xlsx (22.8 Kb)


Сообщение отредактировал карандаш - Пятница, 12.07.2013, 17:18
 
Ответить
СообщениеЗдравствуйте!

Помогите, пожалуйста, понять _как_ делается подобная визуализация:
- в столбце со ссылками при наведении мышки на ячеку всплывает подсказка нестандартного вида.
Не обнаружил ни макросов, ни формул, ни кода VBA.
И это не примечание.

прикрепил файлы (исходный и в 2010).
Если файл после открытия сохранить в 2003/2007, то эффект пропадает
Но ведь исходно он в .xls, а при попытке сохранить эксел вообще предлагает формат 95 (там тем более этот эффект не сохраняется)

Автор - карандаш
Дата добавления - 12.07.2013 в 17:17
_Boroda_ Дата: Пятница, 12.07.2013, 21:27 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16916
Репутация: 6617 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Это подсказка для гиперссылки. Саму ГС можно посмотреть, нажав прав кн мыши на ячейке и выбрав "Изменить гиперссылку"


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто подсказка для гиперссылки. Саму ГС можно посмотреть, нажав прав кн мыши на ячейке и выбрав "Изменить гиперссылку"

Автор - _Boroda_
Дата добавления - 12.07.2013 в 21:27
карандаш Дата: Вторник, 16.07.2013, 10:57 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
спасибо
разобрался с вашей помошью
действительно, это оказалась подсказка для гиперссылки, а не для ячейки
и текст подсказки пишется отдельно в отдельном поле в форме вручную

возможно ли заполнение текста подсказки гиперссылки в "автоматическом режиме"? например, через макрос, написанный на VBA ?
 
Ответить
Сообщениеспасибо
разобрался с вашей помошью
действительно, это оказалась подсказка для гиперссылки, а не для ячейки
и текст подсказки пишется отдельно в отдельном поле в форме вручную

возможно ли заполнение текста подсказки гиперссылки в "автоматическом режиме"? например, через макрос, написанный на VBA ?

Автор - карандаш
Дата добавления - 16.07.2013 в 10:57
_Boroda_ Дата: Вторник, 16.07.2013, 11:08 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16916
Репутация: 6617 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата (карандаш, 16.07.2013 в 10:57, в сообщении №4)
текст подсказки пишется отдельно в отдельном поле в форме вручную

Изначально текст пишется автоматом. А если очень хочется, то его можно поменять вручную.
А макросом примерно так:
[vba]
Код
Sub Макрос1()
     Range("A1").Hyperlinks(1).ScreenTip = "Ручная_подсказка_1"
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата (карандаш, 16.07.2013 в 10:57, в сообщении №4)
текст подсказки пишется отдельно в отдельном поле в форме вручную

Изначально текст пишется автоматом. А если очень хочется, то его можно поменять вручную.
А макросом примерно так:
[vba]
Код
Sub Макрос1()
     Range("A1").Hyperlinks(1).ScreenTip = "Ручная_подсказка_1"
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 16.07.2013 в 11:08
карандаш Дата: Среда, 17.07.2013, 09:08 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
спасибо!
 
Ответить
Сообщениеспасибо!

Автор - карандаш
Дата добавления - 17.07.2013 в 09:08
SeDoV Дата: Пятница, 04.04.2014, 22:34 | Сообщение № 6
Группа: Гости
спасибо
а если гиперссылка задаётся формулой ГИПЕРССЫЛКА можно к ней тоже добавить подсказку?
 
Ответить
Сообщениеспасибо
а если гиперссылка задаётся формулой ГИПЕРССЫЛКА можно к ней тоже добавить подсказку?

Автор - SeDoV
Дата добавления - 04.04.2014 в 22:34
Stormy Дата: Суббота, 05.04.2014, 12:18 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
SeDoV,
К ней нет.
Подробнее про гиперссылку тут http://www.excelworld.ru/publ/hacks/hyperlink/add_hyperlink/67-1-0-44


Место для рекламы.
 
Ответить
СообщениеSeDoV,
К ней нет.
Подробнее про гиперссылку тут http://www.excelworld.ru/publ/hacks/hyperlink/add_hyperlink/67-1-0-44

Автор - Stormy
Дата добавления - 05.04.2014 в 12:18
AndreiSMT Дата: Пятница, 18.07.2025, 10:22 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2019
Форумчане, подскажите пожалуйста что нужно поправить в коде макроса, который предложил выше господин _Boroda_
Не работает. При вызове макроса вылетает ошибка: Run-time error '9': Subscript out of range
К сообщению приложен файл: hyperlinks_v0.xlsb (18.4 Kb)


Сообщение отредактировал AndreiSMT - Пятница, 18.07.2025, 10:22
 
Ответить
СообщениеФорумчане, подскажите пожалуйста что нужно поправить в коде макроса, который предложил выше господин _Boroda_
Не работает. При вызове макроса вылетает ошибка: Run-time error '9': Subscript out of range

Автор - AndreiSMT
Дата добавления - 18.07.2025 в 10:22
Nic70y Дата: Пятница, 18.07.2025, 10:45 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 9152
Репутация: 2427 ±
Замечаний: 0% ±

Excel 2010
Не работает
1) в ячейке нет гиперссылки
2) если Вы применяете With, тогда надо ставить точку перед ячейкой
[vba]
Код
Sub Макрос1()
  With ThisWorkbook.Worksheets("Sheet1")
    .Range("A1").Hyperlinks(1).ScreenTip = "Ручная_подсказка_1"
  End With
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение
Не работает
1) в ячейке нет гиперссылки
2) если Вы применяете With, тогда надо ставить точку перед ячейкой
[vba]
Код
Sub Макрос1()
  With ThisWorkbook.Worksheets("Sheet1")
    .Range("A1").Hyperlinks(1).ScreenTip = "Ручная_подсказка_1"
  End With
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 18.07.2025 в 10:45
AndreiSMT Дата: Пятница, 18.07.2025, 10:57 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2019
Nic70y,
1) в ячейке нет гиперссылки

А как сделать чтобы макрос сам создавал подсказку на ячейку? Но важно чтобы вид подсказки был такой же как на гиперссылке.
 
Ответить
СообщениеNic70y,
1) в ячейке нет гиперссылки

А как сделать чтобы макрос сам создавал подсказку на ячейку? Но важно чтобы вид подсказки был такой же как на гиперссылке.

Автор - AndreiSMT
Дата добавления - 18.07.2025 в 10:57
_Boroda_ Дата: Пятница, 18.07.2025, 11:17 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16916
Репутация: 6617 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Посмотрите, вот так у Вас будет работать?
К сообщению приложен файл: orneropa.xlsx (9.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПосмотрите, вот так у Вас будет работать?

Автор - _Boroda_
Дата добавления - 18.07.2025 в 11:17
AndreiSMT Дата: Пятница, 18.07.2025, 12:00 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2019
_Boroda_, подсказка работает конечно же, но меня интересует именно макрос. Вы приложили файл xlsx, но в нём же макросы не сохраняются.
Дело в том что в самом макросе можно прописывать подсказку с переходами на следующую строку, а вручную так сделать не получается.
 
Ответить
Сообщение_Boroda_, подсказка работает конечно же, но меня интересует именно макрос. Вы приложили файл xlsx, но в нём же макросы не сохраняются.
Дело в том что в самом макросе можно прописывать подсказку с переходами на следующую строку, а вручную так сделать не получается.

Автор - AndreiSMT
Дата добавления - 18.07.2025 в 12:00
AndreiSMT Дата: Пятница, 18.07.2025, 12:07 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2019
_Boroda_, Оказывается вы на ячейку картинку прозрачную положили.
Но картинка меня не устраивает. Мне нужен макрос, который будет добавлять подсказку на ячейку, а не на картинку.


Сообщение отредактировал AndreiSMT - Пятница, 18.07.2025, 12:07
 
Ответить
Сообщение_Boroda_, Оказывается вы на ячейку картинку прозрачную положили.
Но картинка меня не устраивает. Мне нужен макрос, который будет добавлять подсказку на ячейку, а не на картинку.

Автор - AndreiSMT
Дата добавления - 18.07.2025 в 12:07
Nic70y Дата: Пятница, 18.07.2025, 13:12 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 9152
Репутация: 2427 ±
Замечаний: 0% ±

Excel 2010
AndreiSMT, такую подсказку просто на ячейку не сделать
подсказку с переходами на следующую строку
а вот тут поподробнее пжл.
какие действия Вы выполняете и когда нужна подсказка?


ЮMoney 41001841029809
 
Ответить
СообщениеAndreiSMT, такую подсказку просто на ячейку не сделать
подсказку с переходами на следующую строку
а вот тут поподробнее пжл.
какие действия Вы выполняете и когда нужна подсказка?

Автор - Nic70y
Дата добавления - 18.07.2025 в 13:12
AndreiSMT Дата: Пятница, 18.07.2025, 22:30 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2019
Nic70y, почему не сделать? Вот же:
[vba]
Код
Sub bb()
  With ThisWorkbook.Worksheets("Sheet1")
    .Hyperlinks.Add .Range(.Cells(1, 1), .Cells(1, 3)), "", "", " 1. Импортировать данные." & " " & ChrW(128) & Chr(10) & " 2. Проверить на наличие ошибок." & " " & ChrW(128)
  End With
End Sub
[/vba]
К сообщению приложен файл: hyperlinks_v1.xlsb (18.4 Kb)
 
Ответить
СообщениеNic70y, почему не сделать? Вот же:
[vba]
Код
Sub bb()
  With ThisWorkbook.Worksheets("Sheet1")
    .Hyperlinks.Add .Range(.Cells(1, 1), .Cells(1, 3)), "", "", " 1. Импортировать данные." & " " & ChrW(128) & Chr(10) & " 2. Проверить на наличие ошибок." & " " & ChrW(128)
  End With
End Sub
[/vba]

Автор - AndreiSMT
Дата добавления - 18.07.2025 в 22:30
Nic70y Дата: Суббота, 19.07.2025, 07:37 | Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 9152
Репутация: 2427 ±
Замечаний: 0% ±

Excel 2010
Вот же:
ну так этож с гиперссылкой


ЮMoney 41001841029809
 
Ответить
Сообщение
Вот же:
ну так этож с гиперссылкой

Автор - Nic70y
Дата добавления - 19.07.2025 в 07:37
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!