条件格式化VBA不会突出显示工作表中特定单元格中的单元格
我对我的代码的条件格式部分有一个简单的问题，
其余的代码工作完美，但是当我到达条件格式部分，我想突出显示的行不。 我希望基于copysheet区域上单元格H5上的值突出显示该行。
单元格H5具有在范围L中find最大值的formala = MAX（IF（ISERROR（“L8：L2500，”，“L8：2500”））
有什么办法来应用条件格式来search最大值？
Sub Search() Dim vCrit As Variant Dim filtersheet As Worksheet Dim copysheet As Worksheet Dim rngCrit As Range Dim rngList As Range Set filtersheet = Worksheets("Datalog") Set copysheet = Worksheets("Line Inquiry") filtersheet.Unprotect Set rngCrit = filtersheet.Range("$A$7:$L$2500").CurrentRegion Set rngList = copysheet.Range("B5") vCrit = Sheets("Datalog").Range("O3") copysheet.Range("A8:K2500").Clear With filtersheet rngCrit.AutoFilter _ Field:=3, _ Criteria1:=Application.Transpose(vCrit), _ Operator:=xlFilterValues rngCrit.SpecialCells(xlCellTypeVisible).Copy copysheet.Range("A7").PasteSpecial xlPasteFormulasAndNumberFormats Application.CutCopyMode = False Application.ScreenUpdating = False filtersheet.AutoFilterMode = False filtersheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True copysheet.Range("A8:L2500").FormatConditions.Delete With copysheet.Range("$A8:$L8").FormatConditions.Add( _ Type:=xlExpression, _ Formula1:="=$H$5=$L8") .Interior.Color = RGB(198, 239, 206) .Font.Color = RGB(0, 97, 0) End With End With 'returning to original sheet copysheet.Range("B5").Select End Sub 你可以在你的代码中进行格式化。 像这样的东西。
if somecondition then copysheet.Range("I" & lRow).Font.ColorIndex = 3 End if