Перемещение по ячейкам щелкая по стрелкам

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Перемещение по ячейкам щелкая по стрелкам (Макросы/Sub)

kNNeR

Дата: Среда, 16.09.2020, 17:02 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 9 ±

Замечаний: 0% ±

Excel 2019

Здравствуйте.
У меня такой вопрос.

На листе между некоторыми ячейками проведены линиями.
Порядок действия макроса:
Если выделить желтую ячейку и щелкнуть по линии - то перенесешься в синюю ячейку (в которой находится один из концов этой линии).
А если выделить синюю ячейку и щелкнуть на линию - то перенесешься в желтую ячейку (в которой находится один из концов этой линии).
Как скриптом - нацепить на все линии в диапазоне F2:Q32 такой макрос?

Есть вот такой макрос, он чем-то похож и может пригодится:
[vba]

Код

Sub Giperssilki_na_strelki()
    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

[/vba]

К сообщению приложен файл: 1432784.xls (38.5 Kb)

Ответить

Перемещение по ячейкам щелкая по стрелкам (Макросы/Sub)

Страница 1 из 1
1