请求协助修改Excel VBA代码：高亮不符合下拉验证规则的单元格

没问题，我帮你调整了代码，现在它不仅会弹出错误消息提示违规单元格的地址，还能自动把这些单元格的背景色设为黄色，让你一眼就能找到需要修改的地方。另外我还优化了一些细节，比如提前清除之前的高亮标记，避免旧的标记干扰，同时调整了错误单元格地址的拼接逻辑，避免开头多余的逗号。

修改后的完整代码如下：

Sub TestValidation()
    Dim myRng As Range
    Dim ErrorMsg As String
    Dim NoErrorMsg As String
    Dim FoundCells As String
    Dim cell As Range
    
    ' 设置目标区域
    Set myRng = Sheets("Portfolio Tracker").Range("D3:AK5000")
    
    ' 先清除区域内之前的高亮，避免残留
    myRng.Interior.ColorIndex = xlColorIndexNone
    
    ErrorMsg = "You've entered something in a drop-down box cell that isn't a drop-down box option. Please change: "
    NoErrorMsg = "No cells that do not abide to validation rules."
    FoundCells = ""
    
    For Each cell In myRng
        ' 检查单元格是否符合验证规则
        On Error Resume Next ' 跳过没有设置数据验证的单元格
        If Not cell.Validation.Value Then
            ' 标记黄色背景
            cell.Interior.Color = vbYellow
            ' 拼接错误单元格地址（避免开头逗号）
            If FoundCells = "" Then
                FoundCells = cell.Address
            Else
                FoundCells = FoundCells & ", " & cell.Address
            End If
        End If
        On Error GoTo 0 ' 恢复错误处理
    Next cell
    
    ' 弹出提示消息
    If FoundCells <> "" Then
        MsgBox ErrorMsg & vbNewLine & FoundCells, vbExclamation, "Validation Error"
    Else
        MsgBox NoErrorMsg, vbInformation, "Validation Check Complete"
    End If
    
    Set myRng = Nothing
End Sub

关键改动说明： #

• 添加高亮功能：在检测到不符合规则的单元格时，通过cell.Interior.Color = vbYellow将背景设为黄色
• 清除旧高亮：遍历前先执行myRng.Interior.ColorIndex = xlColorIndexNone，清除区域内之前的黄色标记，保证每次运行都是最新的结果
• 优化地址拼接：通过判断FoundCells是否为空来决定是否添加逗号，避免了原代码开头多余的逗号问题
• 错误处理优化：加入On Error Resume Next和On Error GoTo 0，跳过那些没有设置数据验证的单元格，防止代码报错中断
• 消息框优化：添加了换行符vbNewLine让错误地址显示更清晰，同时给消息框加上了标题，体验更好

这样调整后，你运行代码就能同时得到弹窗提示和视觉高亮，定位问题单元格会高效很多。

内容的提问来源于stack exchange，提问作者allthem