vba excel如何检查单元格是否为空并对整行着色？

Question

我有 VBA 代码，可以将用户输入的日期与当前日期进行比较，并用适当的颜色填充背景。一切正常。

现在我需要让系统检查所选行 F 列中的单元格是否不为空 我需要为 D 列着色， E,F 为灰色。

代码：

Private Sub CommandButton1_Click()

    Dim i As Integer

    For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'

        If IsEmpty(Cells(i, 3)) Then
            Cells(i, 3).Interior.Color = xlNone

        ElseIf (VBA.CDate(Cells(i, 3)) - VBA.Date()) < 0 Then
            Cells(i, 3).Interior.Color = vbGreen

        ElseIf (VBA.CDate(Cells(i, 3)) - VBA.Date()) = 0 Then
            Cells(i, 3).Interior.Color = vbYellow

        ElseIf (VBA.CDate(Cells(i, 3)) - VBA.Date()) >= 1 And (VBA.CDate(Cells(i, 3)) - VBA.Date()) <= 4 Then
            Cells(i, 3).Interior.Color = vbRed

        ElseIf (VBA.CDate(Cells(i, 3)) - VBA.Date()) >= 5 And (VBA.CDate(Cells(i, 3)) - VBA.Date()) <= 10 Then
            Cells(i, 3).Interior.Color = vbCyan

        Else
            Cells(i, 3).Interior.ColorIndex = xlNone

        End If

    Next

End Sub

我将不胜感激任何帮助

Answer 1

您还需要检查Trim(Range("F" & i).Value) <> "" 是否符合相关条件。

我还修改了您当前代码的逻辑，使其运行起来更短、更快（切换到 Select Case 等）

代码

Private Sub CommandButton1_Click()

Dim i As Long
Dim NumofDays As Long

For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
    Cells(i, 3).Interior.Color = xlNone ' set as inital color, only change if all criterias are met

    NumofDays = CDate(Cells(i, 3)) - Date

    Select Case NumofDays
        Case Is < 0
            Cells(i, 3).Interior.Color = vbGreen

        Case 0
            Cells(i, 3).Interior.Color = vbYellow

        Case 1 To 4
            Cells(i, 3).Interior.Color = vbRed

        Case 5 To 10
            Cells(i, 3).Interior.Color = vbCyan

    End Select

    ' your 2nd criteria to color the entire row if "F" is not empty
    If Trim(Range("F" & i).Value) <> "" Then Range("D" & i & ":F" & i).Interior.Color = ... ' selectyourcolor 
Next i

End Sub

Answer 2

条件格式最简单，只需a few clicks。

1. 首先选择要更改其背景颜色的单元格。
2. 通过单击主页选项卡上的条件格式 > 新规则... 创建新的格式规则。
3. 在“开始”选项卡上，单击“条件格式”>“新建规则”... 在打开的“新建格式规则”对话框窗口中，选择“使用 确定要格式化的单元格的公式”并输入以下内容 “格式化此公式为真值的值”字段中的公式： =$C2>4
4. 打开“新建格式规则”对话框并输入所需的公式。而不是 C2，您输入一个包含您想要的值的单元格 检查您的表格并输入您需要的数字而不是 4。并且 当然，您可以使用小于 (
5. 另外，请注意单元格地址前的美元符号$，您需要在公式时使用它来保持列字母相同 跨行复制。实际上，这就是诀窍和 根据给定单元格中的值对整行应用格式设置。
6. 单击“格式...”按钮并切换到填充选项卡以选择背景颜色。如果默认颜色不够用，请单击 “更多颜色...”按钮选择您喜欢的颜色，然后单击 确定两次。