Home Excel - Downloads / Areas Restritas Excel VBA - Condicao IIF

Excel VBA - Condicao IIF

  • - Acesso Livre (há alguns arquivos nesta categoria com restrição de acesso - faça o login ou Registre-se)
    Acesso Livre - Registrados (REGISTRE-SE!)
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba condicao if verifica valores Excel vba condicao if verifica valores

    popular!
    Adicionado em: 30/03/2013
    Modificado em: 30/03/2013
    Tamanho: Vazio
    Downloads: 636

    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.



    Excel vba planiha exemplo de funcao IIF Excel vba planiha exemplo de funcao IIF

    popular!
    Adicionado em: 12/02/2012
    Modificado em: 12/02/2012
    Tamanho: Vazio
    Downloads: 911

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


    Função IIf
    Retorna uma das duas partes, dependendo da avaliação de uma expressão.

    Sintaxe

    IIf(expr, truepart, falsepart)

    A sintaxe da função IIf tem os seguintes argumentos nomeados:

    Parte

    Descrição

    expr

    Obrigatória. Expressão que você deseja avaliar.

    truepart

    Obrigatória. Valor ou expressão retornada se expr for True.

    falsepart

    Obrigatória. Valor ou expressão retornada se expr for False.

     

    Comentários

    IIf sempre avalia truepart e falsepart, mesmo que retorne somente uma delas. Em razão disto, você deve observar se ocorrem efeitos colaterais indesejáveis. Por exemplo, se a avaliação de falsepart resultar em um erro de divisão por zero, ocorrerá um erro mesmo se expr for True.
    ' - - - - - - - - - - - - - - - - - - - - - - - - - - -'
    VEJA EXEMPLO PRÁTICO. (NO FINAL DA PÁGINA BAIXE O EXEMPLO DE PLANILHA> Fiquem com Deus, Expedito Marcondes.

    'Saber = IIf(C = 3, 11, C + 4)
    'Saber = 11 (ou coluna "K") Se C = 3

    'Saber = C + 4 (ou coluna "E") se C = 1
    'como também
    'Saber = C + 4 (ou coluna "F") se C = 2...

    'Tudo isso em uma linha graças a IIf ...

    'Sbx = IIf(sbx = 0, "Valor Nullo", "Sbx dentro especificação")
    'veja a sintaxe da função IIF :IIf(expressão, truepart, falsepart)

    Exemplo da função IIf

    Este exemplo usa a função IIf para avaliar o parâmetro TestMe do procedimento CheckIt e retorna a palavra "Grande" se a quantidade for maior que 1000; caso contrário, retorna a palavra "Pequena".

    Function CheckIt (TestMe As Integer)
    CheckIt = IIf(TestMe > 1000, "Grande", "Pequena")
    End Function
    '- - - - - -  - - - - - - - - - -  

    'Outros exemplos para treinamento com VBA - Saberexcel
    Sub instrucao_IFF()
    Set r = Range("B2")
    r = IIf(r = 0, "celula[b2] é igual a zero", "Celula b2 é Maior que zero [ " & Cells(2, 2).Value) & " ]"
    MsgBox r
    End Sub


    Sub instrucao_IFF_2()
    Set r = Range("B2")
    'r = IIf(r = 0, "Valor Nullo", "Sbx dentro especificação") ou adicionar célula e inserir colchetes
    r = IIf(r = 0, "celula b2 = 0 ", "Celula [B2 >0 ] = [ " & Cells(2, 2).Value) & " ]"
    MsgBox r, vbInformation, "Escola Saberexcel VBA Estudos®"
    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.




    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