Sub HighlightCells() If Not WorksheetExists("胜诉执行案件报表") Then MsgBox "工作表""胜诉执行案件报表""不存在！" Exit Sub End If Dim lastRow As Long Dim i As Long Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("胜诉执行案件报表") '将“A”替换为你的工作表名称 lastRow = ws.Cells(ws.Rows.Count, "胜诉执行案件报表").End(xlUp).Row '获取最后一行 For i = 5 To lastRow If ws.Cells(i, "AT").Value > 0 And ws.Cells(i, "BB").Value = "" Then ws.Cells(i, "BB").Interior.Color = vbRed '将符合条件的单元格标为红色 End If Next i End Sub判断BB3单元格如果不等于扣收日期则退出，否则继续执行

您的问题是如何在 VBA 代码中判断 BB3 单元格是否等于扣收日期，如果不等于则退出代码，否则继续执行。

您可以在代码中添加如下语句来实现：

If ws.Range("BB3").Value <> 扣收日期 Then
    MsgBox "BB3单元格的值不等于扣收日期！"
    Exit Sub
End If

其中，`ws` 是您要操作的工作表对象，`扣收日期` 是您需要比较的日期值，可以根据实际情况进行替换。如果 BB3 单元格的值不等于扣收日期，则会弹出一条信息提示并退出代码；如果 BB3 单元格的值等于扣收日期，则代码会继续执行。

相关问题

Sub ClearColumns() '提示框 If MsgBox("是否继续执行？", vbYesNo) = vbNo Then Exit Sub End If '原有代码 Dim lastRow As Long Dim i As Long lastRow = Worksheets("A").Cells(Rows.Count, "AT").End(xlUp).Row For i = 2 To lastRow If Worksheets("A").Cells(i, "AT").Value > 0 And Year(Worksheets("A").Cells(i, "BB").Value) <> Year(Date) Then Worksheets("A").Cells(i, "AU").ClearContents Worksheets("A").Cells(i, "AV").ClearContents End If Next i End Sub判断工作表A是否存在，存在则执行，不存在则退出

您可以在 Sub 的开头添加一个判断语句来实现这个功能，代码如下：

Sub ClearColumns()
    '判断工作表"A"是否存在
    If Not WorksheetExists("A") Then
        MsgBox "工作表""A""不存在！"
        Exit Sub
    End If
    
    '提示框
    If MsgBox("是否继续执行？", vbYesNo) = vbNo Then
        Exit Sub
    End If
    
    '原有代码
    Dim lastRow As Long
    Dim i As Long
    lastRow = Worksheets("A").Cells(Rows.Count, "AT").End(xlUp).Row
    For i = 2 To lastRow
        If Worksheets("A").Cells(i, "AT").Value > 0 And Year(Worksheets("A").Cells(i, "BB").Value) <> Year(Date) Then
            Worksheets("A").Cells(i, "AU").ClearContents
            Worksheets("A").Cells(i, "AV").ClearContents
        End If
    Next i
End Sub

'判断工作表是否存在的函数
Function WorksheetExists(shtName As String) As Boolean
    WorksheetExists = False
    On Error Resume Next
    WorksheetExists = (Worksheets(shtName).Name <> "")
End Function

在代码中，我们首先添加了一个判断语句，使用 `WorksheetExists` 函数判断工作表"A"是否存在，如果不存在，则弹出一个提示框，并使用 `Exit Sub` 语句退出 Sub。如果存在，则继续执行后面的代码。

需要注意的是，我们还需要在代码末尾添加一个名为 `WorksheetExists` 的函数，用于判断工作表是否存在。在函数中，我们使用了一个 `On Error Resume Next` 语句来忽略任何可能出现的错误，如果能够成功获取工作表的名称，则说明工作表存在，返回值为 `True`，否则返回 `False`。