打开excel，找到目标表格，选中，无法实现，急求指出问题

猪仔2019

代码如下所示，我想实现打开excel表格，自动跳转到当日日历对应的表格那个格子上，无法实现，一直显示对象变量未设置，求大家帮忙！
Private Sub Workbook_Open()
    Dim a, b, c As Integer, f As Date
    a = Year(Now)
    b = Month(Now)
    c = Day(Now)
    Sheets(b).Activate
    f = Format(Now(), "yyyy-mm-dd")
    ActiveSheet.UsedRange.Find(f, lookat:=xlWhole).Select
End Sub

西瓜9527

可能是FIND方法出问题了

Sub aa()
    Dim a, b, c As Integer, f As Date
    a = Year(Now)
    b = Month(Now)
    c = Day(Now)
    Sheets(b & " 月").Activate
    f = Format(Now(), "yyyy-mm-dd")
    For Each Rng In Range("B3:H13")
        If Rng.Value = f Then
            Rng.Offset(1, 0).Select
        End If
    Next
   
End Sub

猪仔2019

西瓜9527 发表于 2019-5-19 22:26
可能是FIND方法出问题了

Sub aa()

多谢回复，还是想知道find方法用错在哪里哈