SaberExcel - o site das macros Essas macros do Aplicativo Microsoft Excel VBA, impede a formatação em células que contém fórmulas, aqui fiz um pequeno exemplo de como fazer um simples formatação em células que contém e ou não contém formulas. Poderá ser útil. Fique com Deus, E_Marcondes.
Sub Testar_Formulas() Inserir_formato_branco [C7].Font.ColorIndex = 5 'formata cor fonte azul Range("C7").FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)" For Each cell In Range("C1:C8") If cell.HasFormula = False Then cell.Interior.Color = vbRed End If Next [E7].Value = "Observe que EXITE FÓRMULA, portanto, macro impediu a formatação do interior da célula" End Sub
Sub Inserir_formato_branco() Range("C1:C8").Select Selection.Interior.ColorIndex = 2 [C7].Font.ColorIndex = 1 'formata cor fonte preto Range("L6").Select [E7].Value = "Limpamos toda a formatação existente no range[C1:C8]" End Sub
Sub Formatacao_sem_fórmulas() [C7].Value = "12345" 'aqui quando voce executa a macro, automaticamente já apaga as formulas e insere o número para o teste [C7].Font.ColorIndex = 2 'formata cor fonte branco For Each cell In Range("C1:C8") If cell.HasFormula = False Then cell.Interior.Color = vbRed 'poderá ser a cor que desejar. End If Next [E7].Value = "Veja: NAO EXISTE fórmula, macro INSERIU formatação no interior da célula" End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA
|