打开Excel文件时如何跳转到具有当前日期的单元格

Question

我对打开Excel文件时如何跳转到具有当前日期的单元格有疑问。

下面是指向我文件的链接。

https://drive.google.com/file/d/1_5H6x6pA53OcbOyvtpRfXm6oLVnT1vVa/view

我尝试使用下面的VBA宏，但是没有用。

Private Sub Workbook_Open()
    Worksheets(“Sheet1”).Select
    x = Day(Date)
    Worksheets(“Sheet1”).Columns(2).Find(What:=x, LookIn:=xlValues).Activate
End Sub

请告知。

Answer 1

如果您已经能够找到/选择要“跳转到”的单元格，则只需使用Range.Show method即可将其滚动到视图中。例如

Private Sub Workbook_Open()
    Dim CellToShow AS Range
    Worksheets("Sheet1").Select
    x = Day(Date)
    Set CellToShow = Worksheets("Sheet1").Columns(2).Find(What:=x, LookIn:=xlValues)
    If CellToShow Is Nothing Then
        MsgBox "No Cell for day " & x & " found.", vbCritical
    Else
        With CellToShow
            .Select
            .Show 'Scroll the window to show the cell
        End With
    End If
End Sub