我增加了一个“今天”按钮,点击这个按钮能定位到今天的事项所在的单元格。 就跟日历软件中的「今天」功能一样。 把Excel工作表名称改为「月历」,然后代码如下: Sub ShowCurrentMonth() Dim currentDate As Date currentDate = Date Dim currentMonth As Integer currentMonth = Month(currentDate) - 1 Sheets("月历").Range("B8").Value = currentMonth Dim todayDay As Integer todayDay = Day(currentDate) Dim searchRange As Range Set searchRange = Sheets("月历").Range("D3:J12") Dim cell As Range Set cell = searchRange.Find(What:=todayDay, LookIn:=xlValues, LookAt:=xlWhole) If Not cell Is Nothing Then cell.Offset(1, 0).Select Else MsgBox "今天的日期未找到!" End If End Sub