Excel vba planilha funcao aninha-ses aninha varios Ses

Seg, 22 de Agosto de 2011 12:11 Expedito Marcondes
Imprimir

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
Excel planilha vba funcao com varios ses aninhados (22.83 KB)



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

Tags:
Última atualização em Seg, 22 de Agosto de 2011 19:47