Sempre é possível adicionar 100 condições de formato com base no valor após o Q=
em E=0.0,Q=99
. Aqui está uma macro que fará isso para você com qualquer célula selecionada, comparando cada valor de célula nua de 1 a 100 diretamente, ou comparando-a com o valor após o Q=
se essa primeira comparação gerar um erro.
Você pode excluir a macro depois de executá-la para não precisar salvar o arquivo como XLSM. Remova o comentário da linha Selection.FormatConditions.Delete
, removendo o apóstrofo, se você também deseja remover as condições de formato atuais.
Isso pressupõe que seu número seja sempre um número inteiro entre 1 e 100 (como valor da célula nua ou após o Q=
). Não funcionará para valores decimais.
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