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

Вход

Регистрация

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

 

= Мир MS Excel/Перемещение по ячейкам щелкая по стрелкам - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение по ячейкам щелкая по стрелкам (Макросы/Sub)
Перемещение по ячейкам щелкая по стрелкам
kNNeR Дата: Среда, 16.09.2020, 17:02 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 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)
 
Ответить
СообщениеЗдравствуйте.
У меня такой вопрос.

На листе между некоторыми ячейками проведены линиями.
Порядок действия макроса:
Если выделить желтую ячейку и щелкнуть по линии - то перенесешься в синюю ячейку (в которой находится один из концов этой линии).
А если выделить синюю ячейку и щелкнуть на линию - то перенесешься в желтую ячейку (в которой находится один из концов этой линии).
Как скриптом - нацепить на все линии в диапазоне 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]

Автор - kNNeR
Дата добавления - 16.09.2020 в 17:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение по ячейкам щелкая по стрелкам (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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