Home Excel - Dicas Microsoft Excel VBA Excel VBA - Condicao IIF Excel vba condicao if verifica valores

Excel vba condicao if verifica valores

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esses macros do aplicativo Microsoft Excel VBA(Visual Basic Application), contém a instrução If...ElseIF,  que compara faixa de números,
retorna uma mensagem na Coluna seguinte e colore os interiores das células com cores personalizadas de acordo com faixa.
Espero que o exemplo seja util.
Fique com Deus, Expedito Marcondes

Sub verifica_numeros_faixa()
Range("C3:C" & Range("a5000").End(xlUp).Row).Clear
copiar_valores
For i = 3 To Cells(Rows.Count, "a").End(xlUp).Row
   If Cells(i, "a").Value > 100 And Cells(i, "a").Value < 200 Then
       Cells(i, "c").Value = "entre 100 e 200"
       Cells(i, "c").Interior.ColorIndex = 4
   ElseIf Cells(i, "a").Value > 200 And Cells(i, "a").Value < 300 Then
       Cells(i, "c").Value = "entre 200 e 300"
          Cells(i, "c").Interior.ColorIndex = 36
   ElseIf Cells(i, "a").Value > 300 And Cells(i, "a").Value < 400 Then
       Cells(i, "c").Value = "entre 300 e 400"
        Cells(i, "c").Interior.ColorIndex = 33
   ElseIf Cells(i, "a").Value > 400 And Cells(i, "a").Value < 500 Then
       Cells(i, "c").Value = "entre 400 e 500"
        Cells(i, "c").Interior.ColorIndex = 33
   ElseIf Cells(i, "a").Value > 500 And Cells(i, "a").Value < 600 Then
       Cells(i, "c").Value = "entre 500 e 600"
       Cells(i, "c").Interior.ColorIndex = 35
   ElseIf Cells(i, "a").Value > 600 And Cells(i, "a").Value < 700 Then
       Cells(i, "c").Value = "entre 600 e 700"
        Cells(i, "c").Interior.ColorIndex = 40
   ElseIf Cells(i, "a").Value > 700 And Cells(i, "a").Value < 800 Then
       Cells(i, "c").Value = "entre 700 e 800"
       Cells(i, "c").Interior.ColorIndex = 45
    ElseIf Cells(i, "a").Value > 800 And Cells(i, "a").Value < 900 Then
       Cells(i, "c").Value = "entre 800 e 900"
       Cells(i, "c").Interior.ColorIndex = 39
   Else
      Cells(i, "c").Value = "acima de 900"
      Cells(i, "c").Interior.ColorIndex = 10
   End If
Next i
End Sub
Sub copiar_valores()
    Range("I3:I25").Copy [a3]
    Range("a3:a25").Value = Range("a3:a25").Value
    Range("A3:A25").NumberFormat = "0.00"
End Sub

Sub cores_vba()
For i = 1 To 55
  Cells(i, "a").Interior.ColorIndex = i
  Cells(i, "b").Value = i
Next i
End Sub
Sub limpa_cores()
  Cells.Clear
End Sub
Sub visualiza_macro()
    ActiveSheet.Shapes.Range(Array("macro")).Select
    Selection.Verb Verb:=xlPrimary
    Range("e1").Select
 End Sub

 
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo os macros acima

Última atualização em Sáb, 30 de Março de 2013 09:34  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA