| Descricao: |
 Esse procedimento do Aplicativo Microsoft Excel VBA, formata determinada célula se o número digita for menor que zero, insere uma cor de fundo e uma fonte azul.
Private Sub Worksheet_Change(ByVal Target As Range)
'verifica se é número ou string
If IsNumeric(Range("A1").Value) = False Then
MsgBox ("Valor digitado nao númerico"), vbInformation, "Saberexcel.com"
' Range("A2").Interior.ColorIndex = xlNone
Exit Sub
End If
'verifica se é número ou string
If IsNumeric(Range("A2").Value) = False Then
MsgBox ("Valor digitado nao númerico"), vbInformation, "Saberexcel.com"
Range("A2").Interior.ColorIndex = xlNone
Exit Sub
End If
'verifica se maior ou igual a zero
If Range("A1").Value >= 0 Then
Range("A1").Interior.ColorIndex = 35
Else
Range("A1").Interior.ColorIndex = xlNone
End If
'verifica se menor ou igual a zero
If Range("A2").Value <= 0 Then
Range("A2").Interior.ColorIndex = 45
Else
Range("A2").Interior.ColorIndex = xlNone
End If
End Sub
Aprenda tudo sobre Aplicativo Microsoft Excel VBA - SaberExcel
|