Я пытаюсь получить все гиперссылки с определенным целевым диапазоном, чтобы активировать процедуру.Хотя сами гиперссылки работают нормально (целевой диапазон адресов («A1») выбирается, когда я нажимаю на гиперссылки), моя процедура не запускается при нажатии на них.
Код ниже находится вSheet1 "модуль моей рабочей книги и целевой диапазон гиперссылок" A1 "на листе" Sheet1 ".Всего в книге 5 других листов.
Я действительно озадачен тем, почему код не запускается.Любая помощь будет принята с благодарностью!
- Проверено, что сами гиперссылки работают и нацелены на диапазон на том же рабочем листе, с которым связана подпрограмма.
- Удалена часть "макроса вызова"код и заменил его простым окном сообщения, чтобы проверить, запускается ли подпрограмма вообще.
- Попытка поместить подпрограмму вместо этого в модуль «ThisWorkbook» - это также не дало никаких результатов.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$A$1" Then
MsgBox ("Yay")
End If
End Sub
Процедура, описанная выше, должна запускаться после нажатия на гиперссылки с целевым диапазоном «A1», что означает, что текст окна сообщения должен отображаться для пользователя.