如果从工作表启动，则宏不起作用

Question

我正在尝试使用vba将“X”写入当前日期的列中。 如果我从调试窗口运行代码，在那里我编写代码，它按预期工作，但是当我尝试通过单击我指定给它的矩形来运行它时，它会显示“未找到”。

提前感谢任何帮助或想法。

代码：

Sub Button()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim col As Long
    Dim rng As Range

    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Sheet 2")

    With ws.Cells
        Set rng = .Find(what:=Format(Date))
        If rng Is Nothing Then
            MsgBox "Not found"
            col = 1
        Else
            MsgBox "Found"
            col = rng.Column
        End If
    End With
    ws.Cells(10, col).Value = "X"
    MsgBox "Wrote to Field: " & row & "," & col

End Sub

Answer 1

尝试用CDate（日期）替换格式（日期）