excel - 如何显示错误信息和停止宏

Question

我是编码 VBA 的新手。我想添加一个弹出框，其中显示“找不到今天的日期”消息，如果在 K 列中找不到今天的日期，则停止宏。不知道该怎么做以及代码应该在哪里。

' Find the last row on the count sheet and the next row on the archieve sheet

lastRow = countSheet.Cells(countSheet.Rows.count, "K").End(xlUp).Row
nextRow = archieveSheet.Cells(countSheet.Rows.count, "K").End(xlUp).Row + 1

' Look at all rows in the count sheet
For thisRow = 1 To lastRow

    ' Check if column K contains today's date
    If countSheet.Cells(thisRow, "K").Value = Date Then

        ' Copy the entire row to the archieve sheet
        countSheet.Cells(thisRow, "K").EntireRow.Copy Destination:=archieveSheet.Cells(nextRow, "A")

        ' Move to the next row on the archieve sheet
        nextRow = nextRow + 1
    End If
Next thisRow

Answer 1

在开头添加一些简单的代码将使一切变得简单

If Application.WorksheetFunction.CountIf(countsheet.Range("K:K"), Date) = 0 Then
    MsgBox "Today's Date Not Found"
    Exit Sub
End If