☰

Excel如何自动移动到突出显示的单元格

tag-icon • tag-icon microsoft-excel worksheet-function charts
Excel如何自动移动到突出显示的单元格

我一直在研究甘特图模板并编辑了一些内容。我注意到的一个缺点是，当我更改单元格“E4”中的日期时。左侧部分的单元格将被突出显示但不会自动移动。

当我将日期更改为 2017 年 2 月 2 日时。日期列将突出显示，但我必须手动滚动到该日期。

问题：有没有什么方法可以让 Excel 自动将工作表移动到选定的日期？

甘特图

答案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])为您输入日期后想要“跳转”到的日期范围。

相关内容