Home Excel - Dicas Microsoft Excel VBA Excel VBA - Estrutra de Decisao Excel vba planilha funcao aninha-ses aninha varios Ses

Excel vba planilha funcao aninha-ses aninha varios Ses

E-mail Imprimir PDF

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

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

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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3973
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23479
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37208
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460037
Aprenda MS Excel VBA

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