Question

我希望有人可以帮助我使用一些代码突出显示特定范围内的空单元格，我在网站上发现了类似的主题，但是我无法让它们适用于我的场景，可能是由于我的VBA经验不足或者他们可能是错误的起点。

我有一个用户将完成的问题类型表，我想确保一旦他们完成所有字段已经完成的所有问题，然后才能查看结果，需要完成的单元格有点随机在位置方面而不是在直线范围内，我也有空行和出于美学原因的列，所以我显然不想将它们包括在突出显示为空白。

我有代码将光标移动到需要答案的下一个单元格，所以当完成时我想运行代码来检查空白，突出显示红色的边框并弹出一个消息框请求他们完成所有操作字段，然后在字段完成后删除红色边框。

这是我的细胞范围的一部分，我想包括E5，E7，H5，H7，L5，L7，J11，因为你可以看到它们有点随机。

希望这一切都有道理，你们其中一个好人可以帮助我

非常感谢

Twaddy

Answer 1

使用此

Sub test()
    Dim oCell As Range, Trigger%
    Trigger = 0
    For Each oCell In [E5,E7,H5,H7,L5,L7,J11]
        If oCell.Value = Empty Then
            With oCell.Borders
                .LineStyle = xlContinuous
                .Color = vbRed
            End With
            Trigger = Trigger + 1
        Else
            oCell.Borders.LineStyle = xlNone
        End If
    Next
    If Trigger = 1 Then
        MsgBox "Mandatory field not filled"
    ElseIf Trigger > 1 Then
        MsgBox "Mandatory fields (" & Trigger & ") not filled"
    End If
End Sub

VBA代码突出显示特定的空白单元格

1 个答案: