如何使用VBA宏突出显示空白/空白单元格

Question

我意识到我很想问我的第一个问题，所以我会最后一次尝试。 我的目标是2个单独工作表中的相同4列，这些工作表具有包含文本或不包含文本的单元格。 工作表1将自动更新，因此我将每天运行此代码以手动更新工作表2。我正在尝试找到一种方法，以使用宏基本找出哪些单元格缺少文本。 我尝试使用在此网站上找到的代码，该代码在包含文本的单元格上设置边框，并清除空白单元格的边框。

Sub BorderForNonEmpty()
Dim myRange As Range
Set myRange = Sheet1.Range("C2:C252")

' Clear Existing Borders
myRange.Borders.Linestyle = xlLineStyleNone

' Test Each Cell and Put a Border Around it if it has content
For Each myCell in myRange
If myCell.Text <> "" Then
myCell.BorderAround (xlContinuous)
End If
Next
End Sub

这段代码有效，但是我想尝试用与清除边框相反的颜色突出显示空白单元格。 这也是我第一次在StackOverflow上发帖，所以我事先表示歉意。 谢谢。

Answer 1

Excel并非循环遍历所有单元格，而是具有内置功能来选择空白单元格。 这应该更快，更可靠。

Sub BorderForNonEmpty()
    Dim myRange As Range
    Set myRange = Sheet1.Range("C2:C252")

    'clear all color
    myRange.Interior.ColorIndex = xlNone

    'color only blank cells
    myRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 6
End Sub

另一种选择是仅使用条件格式（另一种内置功能），但是可能难以控制更改范围。

Answer 2

更换

myCell.BorderAround (xlContinuous)

同

myCell.Interior.Color = RGB(100, 100, 100)

Answer 3

试试看：

Sub BorderForNonEmpty()
    Dim myRange As Range
    Set myRange = Sheet1.Range("C2:C252")
    For Each myCell In myRange
        If myCell.Text = "" Then
            myCell.Interior.ColorIndex = 6
        End If
    Next
End Sub

编辑＃1：

Sub BorderForNonEmpty()
    Dim myRange As Range
    Set myRange = Sheet1.Range("C2:C252")
    For Each myCell In myRange
        If myCell.Text = "" Then
            myCell.Interior.ColorIndex = 6
        Else
            myCell.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

编辑＃2：

使宏“可点击”：

1. 将任何自选图形放在工作表上
2. 格式化自选图形
3. 用鼠标右键单击自选图形并为其分配宏。