Home Excel - Downloads / Areas Restritas Excel VBA - Estrutura de Decisao

Excel VBA - Estrutura de Decisao

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    Excel planilha vba funcao com varios ses aninhados Excel planilha vba funcao com varios ses aninhados

    popular!
    Adicionado em: 22/08/2011
    Modificado em: 22/08/2011
    Tamanho: Vazio
    Downloads: 1269

    Saberexcel - o site das macros ms excel vba

    Esta função personalizada do Microsoft Excel VBA, tem por finalidade aninhar vários "SE's", de acordo com a necessidade de cada um, fiz esse exemplo para um amigo, os critérios de condição foi limitado na fórmula até 25 condição, isto é SE's Aninhados, na Função Personalizada AninhaSe(). Todos sabemos que só podemos utilizar 7 vezes a função se() dentro de uma fórmula.
    Essa Função Personalizada resolve este problema, onde poderemos utilizar vários "Se's", como mostra a função e formula abaixo.
    O uso da função é muito simples veja como suporta vários SE's

    '=AninhaSe(F11=1;"Um";F11=2;"Dois";F11=3;"Três";F11=4;"Quatro";F11=5;"Cinco";F11=6;"Seis";F11=7;"Sete";
    F11=8;"Oito";F11=9;"Nove";F11=10;"Dez";F11=11;"Onze";F11=12;"Doze";F11=13;"Treze";F11=14;"Quatorze";
    F11=15; "Quinze";F11=16;"Dezesseis";F11=17;"Dezessete";F11=18;"Dezoito";F11=19;"Dezenoves";F11=20;"Vinte";
    F11=21;"Vinte e um";F11=22;"Vinte e dois";F11=23;"Vinte e treis";F11=24;"Vinte e quatro";F11=25;"Vinte e cinco")

    Function AninhaSE(ParamArray a() As Variant) As Variant
    Dim i As Long, n As Long

    n = UBound(a)

    If n Mod 2 = 0 Then
    AninhaSE = a(UBound(a))
    n = n - 1
    Else
    AninhaSE = "Número Inexistente"
    End If


    For i = 0 To n Step 2
    If CBool(a(i)) And i < n Then
    AninhaSE = a(i + 1)
    Exit For
    End If
    Next i
    End Function







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




    Baixe o exemplo de planilha contendo procedimento acima



    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    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