Detalhes de Excel planilha vba funcao com varios ses aninhados

PropriedadeValor
Nome:Excel planilha vba funcao com varios ses aninhados
Descricao:

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

Nome do arquivo:Excel planilha vba funcao com varios ses aninhados.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:Escola Saberexcel VBA Estudos®
Criado em: 22/08/2011 19:38
Visitas:Todos
Responsavel:Autor
Acessos:1269 Acessos
Atualizado em: 22/08/2011 19:40
Site: