Как Excel может автоматически перемещаться в выделенную ячейку

Question

Я поигрался с шаблоном диаграммы Ганта и отредактировал некоторые материалы. Один из недостатков, которые я заметил, это то, что когда я меняю дату в ячейке "E4". Ячейка в левой части будет выделена, но не будет перемещена автоматически.

Когда я меняю дату на 2.02.2017. Столбец с датой будет выделен, но мне нужно вручную прокрутить до этой даты.

Вопрос: есть ли способ, которым Excel может автоматически переместить лист на выбранную дату?

Answer 1

Вы можете использовать событие Worksheet_Change() для этого. В листе, на котором вы хотите это запустить, добавьте этот код. (Щелкните правой кнопкой мыши вкладку листа и перейдите к "Просмотреть код"):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dateCell As Range

If Target.Address = "$E$4" Then
    Set dateCell = Range("A49:A50").Find(what:=Target.Value)
    If dateCell Is Nothing Then
        MsgBox ("Date not found")
    Else
        dateCell.Select
    End If
End If
End Sub

Примечание. Настройте параметр Set dateCell = Range([this range]) чтобы он соответствовал диапазону дат, к которому вы хотите "перейти" после ввода даты.