Гиперссылки с прокруткой вверх

Дата: Вторник, 27.03.2018, 16:16 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

Добрый день!

Есть ли возможность с помощью макроса, можно и без, осуществить переход гиперссылкой со 2 листа на ячейку №45 (теплый пол) со скроллом вверх экрана?

К сообщению приложен файл: 0853756.xlsx (13.6 Kb)

Сообщение отредактировал Fshnmnml - Вторник, 27.03.2018, 16:24

Дата: Вторник, 27.03.2018, 17:41 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

В модуль Лист2
[vba]

Код

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Вторник, 27.03.2018, 18:23 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

RAN, Большое спасибо. Все получилось, всех благ.

Дата: Вторник, 27.03.2018, 19:01 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

RAN, а есть такая возможность, чтобы перемещение было не в самый верх, а со сдвигом 1 строчки вниз для размещения сверху возвратной гиперссылки? То есть перемещение на 2 строчку сверху.

Дата: Вторник, 27.03.2018, 19:04 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Арихметика, она что ныне, что у Архимеда...

[vba]

Код

ActiveCell.Row -1

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Вторник, 27.03.2018, 19:06 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

RAN, Пробовал так, что то не так выходит. P.S новичок, 1й час с макросами дружу)

Дата: Вторник, 27.03.2018, 19:10 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

RAN, Странно, еще раз тоже самое прописал, получилось) спасибо

Дата: Вторник, 27.03.2018, 19:21 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

RAN, Извиняюсь за свои мучения, но проделав все, есть 1 ошибка - то есть с кодом "ActiveCell.Row -1" на 1 строчку нельзя установить свойство. Есть ли возможность поставить условие, что если ссылка на 1 строчку, выполнялось равенство ActiveCell.Row, в остальных оставалось ActiveCell.Row -1?

Дата: Вторник, 27.03.2018, 19:50 | Сообщение № 9

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

RAN,
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row - 1
If ActiveWindow.ScrollRow = 1 Then ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Получилось так... вроде заработало.

Дата: Вторник, 27.03.2018, 20:10 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

1. Быстренько бежим читать правила, и оформляем код, как полагается.
2. Слегка включаем думалку, и вот оно, долгожданное...
[vba]

Код

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If ActiveCell.Row = 1 Then
        ActiveWindow.ScrollRow = ActiveCell.Row
    Else
        ActiveWindow.ScrollRow = ActiveCell.Row - 1
    End If
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Вторник, 27.03.2018, 22:51 | Сообщение № 11

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2016

RAN, да, заметил, что листы перепутаны были в ссылках, поэтому и "работало". Вам огромное спасибо за помощь, в целом появился интерес к макросам, какую бы литература для новичка порекомендовали? Нужны для упрощения различных технических расчетов, таблиц с данными и прайсов по работе.

Дата: Вторник, 27.03.2018, 22:57 | Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Для начала - сообщение №10, п.1

Быть или не быть, вот в чем загвоздка!