Здравствуйте.
У меня такой вопрос.
На листе между некоторыми ячейками проведены линиями.
Как заставить макрос выполнять следующие операции? :
Если выделить желтую ячейку и щелкнуть по линии - то перенесешься в синюю ячейку (в которой находится один из концов этой линии).
А если выделить синюю ячейку и щелкнуть на линию - то перенесешься в желтую ячейку (в которой находится один из концов этой линии).
Есть следующий макрос, он чем-то похож и может пригодится:
Вот - тоже мой вопрос:
Ответов по нему - ноль.
У меня такой вопрос.
На листе между некоторыми ячейками проведены линиями.
Как заставить макрос выполнять следующие операции? :
Если выделить желтую ячейку и щелкнуть по линии - то перенесешься в синюю ячейку (в которой находится один из концов этой линии).
А если выделить синюю ячейку и щелкнуть на линию - то перенесешься в желтую ячейку (в которой находится один из концов этой линии).
Есть следующий макрос, он чем-то похож и может пригодится:
| Код |
|---|
Sub Макрос1() Dim adr$ For Each Sh In ActiveSheet.Shapes If Sh.TopLeftCell.Column >= 28 And Sh.BottomRightCell.Column <= 30 Then If Sh.VerticalFlip Then adr = Sh.TopLeftCell.Offset(, Sh.BottomRightCell.Column - Sh.TopLeftCell.Column + 1).Address Else adr = Sh.BottomRightCell.Offset(, 1).Address End If ActiveSheet.Hyperlinks.Add Anchor:=Sh, Address:="" Sh.Hyperlink.SubAddress = ActiveSheet.Name & "!" & adr End If Next End Sub |
Вот - тоже мой вопрос:
Ответов по нему - ноль.
