什么更新将打开我的工作簿到今天的date？

我希望我的工作簿在今天的date单元格上打开。 2017年的date列在第10行。我的macros在下面列出，但在'x = Format（Date，“Short Date”）'行中包含语法错误

Private Sub Workbook_OpenDate() Dim wb As Workbook, wb1 As Workbook Dim LastRow As Long Set wb = Workbooks("2017 Capacity Planner.xlsm") Worksheets("Dashboard").Select x = Format(Date, "Short Date") On Error Resume Next Worksheets(“Dashboard”).Row(10).Find(What:=x, LookIn:=xlValues).Activate Application.Goto Selection, True End Sub 

Answer 1

你仍然在使用魔术引号。 即使你删除，你会错误438行.Row（10）。 然后在find另一个错误正在等待什么时候没有found.Change你的代码是这样的：

 Sub test() Dim rng As Range Dim x As String Dim wb As Workbook, wb1 As Workbook Dim LastRow As Long Set wb = Workbooks("2017 Capacity Planner.xlsm") Worksheets("Dashboard").Select x = (Format(Date, "Short Date")) Set rng = Worksheets("Dashboard").Rows(10).Find(What:=x, LookIn:=xlValues) If Not rng Is Nothing Then rng.Parent.Activate rng.Select End If End Sub