Гиперссылка на форму.

Старая форма входа

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

Гиперссылка на форму. (Макросы/Sub)

rotten41

Дата: Вторник, 17.01.2017, 23:09 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

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

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

Excel 2013

Добрый вечер.
Помогите разобраться с проблемой.

Как создать гиперссылку на Форму?
Разумеется понятно, что на саму Форму - гиперссылку создать наверное нельзя. Я имею ввиду ссылку на ячейку - которая находится примерно на уровне геометрического центра Формы.

Форма меняет свое место положение (ее можно перетаскивать) - и в соответствии с этим - должна меняться и ссылка на ячейку (поскольку геометрический центр Формы - будет уже на уровне другой ячейки).

Событие обновления адреса ячейки - Calculate

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

Ответить

bmv98rus

Дата: Среда, 18.01.2017, 11:51 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 4113

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

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

Excel 2013/2016

rotten41,

Без обработки ошибок, так как форма может находится за пределами рабочего окна, без учете размеров ячейки больше чем форма и объединеных ячеек, и при активной форме, конда её положение известно. Хотя когда формы нет, все лучше чем ожидал, ссылка просто не работает. Ну и тупым перебором.

Упппс. не учел скролинг рабочией области. Заменил.

Код

=HYPERLINK("#" & getCentrForm();"центр")

[vba]

Код

Function getCentrForm() As String
    With Application
        R = ActiveWindow.VisibleRange.Row
        Do While Cells(R, 1).Top < UserForm1.Top + UserForm1.Height / 2 - .Height + .UsableHeight
          R = R + 1
        Loop
        C = ActiveWindow.VisibleRange.Column
        Do While Cells(1, C).Left < UserForm1.Left + UserForm1.Width / 2 - .Width + .UsableWidth
            C = C + 1
        Loop
        getCentrForm = Cells(R - 1, C - 1).Address
    End With
End Function

[/vba]