加载Excel后，将视图窗口移至特定单元格

Question

我有一个带有日历的excel工作表。但是，该日历从年初开始。我正在尝试设置一个VBA脚本，以便在加载excel时，它会跳到保存今天的列。

当找到该列作为数值时，我已经到达了要点，但似乎无法使其移动到该列。

Private Sub Workbook_Open()

Dim Today As Date: Today = Date
Dim VarianceDate As String: VarianceDate = Today
Dim TargetCell As Range, TargetCol As Integer

Set TargetCell = Rows("2").Find(What:=CDate(VarianceDate), LookIn:=xlFormulas, LookAt:=xlPart)
If Not TargetCell Is Nothing Then TargetCol = TargetCell.Column

Debug.Print TargetCol

End Sub

这将打印出165。

Answer 1

尝试使用Select TargetCell.Select