Вы всегда можете добавить 100 условий форматирования на основе значения после Q=
in E=0.0,Q=99
. Вот макрос, который будет делать это для всех выбранных вами ячеек, сравнивая каждое пустое значение ячейки с 1 до 100 напрямую или сравнивая его со значением после, Q=
если первое сравнение приводит к ошибке.
Вы можете удалить макрос после запуска, чтобы вам не нужно было сохранять файл как XLSM. Раскомментируйте Selection.FormatConditions.Delete
строку, удалив апостроф, если вы также хотите удалить текущие условия формата.
Предполагается, что ваше число всегда является целым числом от 1 до 100 (либо в качестве пустого значения ячейки, либо после Q=
). Это не будет работать для десятичных значений.
Sub FormatMe() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False 'Selection.FormatConditions.Delete Dim addr As String addr = Replace(Selection.Cells(1).Address, "$", "") For i = 1 To 100 With Selection.FormatConditions.Add(xlExpression, Formula1:= _ "=OR(" & addr & " = " & i & ", IFERROR(RIGHT(" & addr & _ ", LEN(" & addr & ") - FIND(""Q"", " & addr & ", 2) - 1) = """ & i & """, FALSE))") .Interior.Color = RGB(255, 255 - Int(i / 100 * 255), 0) End With Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub