如何让工作表在打开时始终在某个位置启动？

Question

我有一张GANTT图表（组织工作表），因为我有很多内容，所以在到达当天之前我总是要向右滚动里程。我无法删除所有旧的东西，所以我想知道是否有办法在工作表的某个部分打开它。提前谢谢。

Answer 1

你可以试试这个，它假设日期是第1行的标题：

    Private Sub Workbook_Open()
        For Each col In Worksheets(1).Cells(1, 1).CurrentRegion.Columns
            If col.Cells(1, 1).Value = [Today()] Then
                col.Cells(1, 1).Select
                Exit For
            End If
        Next
    End Sub