存在其他值时 VBA 突出显示单元格

Question

当在不同的列中输入值时，我希望突出显示电子表格中的某些单元格。我意识到这可以通过条件格式来完成，但是由于公司内部的情况，我必须使用 VBA。 （电子表格被传递到另一个无法读取条件格式的程序）

每当在 L 列中输入 ANYTHING 时，我都会尝试突出显示值范围内的 11 个不同列。例如，当它在 L2 中输入日期时，然后是 C2、J2、K2 等. 以黄色突出显示。

以下是我想出的……不幸的是，当我运行宏时，什么也没有发生。我看到它运行，但我没有得到任何结果 - 甚至没有错误消息。提前感谢您花时间帮助我！

Dim rng As Range, r As Range

Set wb = ThisWorkbook
Set sht1 = wb.Sheets("From GIS")
Set sht2 = wb.Sheets("To MapCall")

Set rng = Intersect(sht2.UsedRange, Range("L:L")).Cells


For Each r In rng
    If r.Value = "" Then
        Cells(r.Row + 1, "C,J,K,Q,AI,AV,AW,AX,AY,AZ,BR").Interior.Color = RGB(255, 255, 0)

    End If
Next r

Answer 1

一种方法是create a union of ranges。

Sub test()

    Dim Rng As Range, r As Range, uRng As Range, row As Long

    Set wb = ThisWorkbook
    Set sht1 = wb.Sheets("From GIS")
    Set sht2 = wb.Sheets("To MapCall")

    Set Rng = Intersect(sht2.UsedRange, Range("L:L")).Cells

    For Each r In Rng
        If r.Value <> "" Then
            row = r.row

            Set uRng = Union(Cells(row, "C"), Cells(row, "J"))  'Etc... Keep going with each column
            uRng.Interior.Color = RGB(255, 255, 0)

        End If
    Next r

End Sub

Answer 2

请尝试一下并将 r.Value = "" 更改为 r.Value "" 因为如果在范围内输入了某些内容而不是在空白时应用颜色。根据您的实际需要对其进行调整。我也不确定你为什么使用 r.Row + 1？这不是您想要的，请将以下代码中的 i = r.Row + 1 替换为 i = r.Row。

同时声明代码中使用的所有变量也是一个好习惯。

Dim wb As Workbook
Dim sht1 As Worksheet, sht2 As Worksheet
Dim rng As Range, r As Range, clrRng As Range
Dim i As Long
Set wb = ThisWorkbook
Set sht1 = wb.Sheets("From GIS")
Set sht2 = wb.Sheets("To MapCall")

Set rng = Intersect(sht2.UsedRange, Range("L:L")).Cells
For Each r In rng
    If r.Value = "" Then
        i = r.Row + 1
        Set clrRng = Union(Range("C" & i), Range("J" & i & ":K" & i), Range("Q" & i), Range("AI" & i), Range("AV" & i & ":AZ" & i), Range("BR" & i))
        clrRng.Interior.Color = RGB(255, 255, 0)
    End If
Next r