根据条件值突出显示单元格范围答案

【问题标题】：Highlight range of cells based on conditional value根据条件值突出显示单元格范围
【发布时间】：2019-04-08 08:13:43
【问题描述】：

如果“AB”列中的单元格具有“Elective”值，我正在尝试找到一个 VBA 代码，该代码将突出显示“A7:AD100”范围内的适当行。

Sub highlight()    
    Dim cell As Range
    Range(Range("AB7"), Range("AB7").End(xlDown)).Select
    For Each cell In Selection
        If cell = "Elective" Then Cells.Range($A7, $AD7).Interior.ColorIndex = 10
    Next cell
End Sub

只有第 1、11、21、23 行被突出显示，因为它们的 Admit Type = "Elective"。仅在“A:AD”范围内突出显示的行（我不希望突出显示整行）。

【问题讨论】：

标签： excel vba

【解决方案1】：

我发现这段代码对我有用

子 HighlightCells()

Dim rngMyCell  As Range
Dim lngLastRow As Long

Application.ScreenUpdating = False

lngLastRow = Cells(Rows.Count, "AB").End(xlUp).Row

For Each rngMyCell In Range("AB7:AB" & lngLastRow)
    If StrConv(rngMyCell, vbProperCase) = "Elective" Then
        Range("A" & rngMyCell.Row & ":AD" & rngMyCell.Row).Interior.Color = RGB(240, 240, 240)
    End If
Next rngMyCell

Application.ScreenUpdating = True

结束子

【讨论】：