Home Excel - Dicas Microsoft Excel VBA Excel VBA - Permutas Excel planilha vba interacoes e permutas palavras

Excel planilha vba interacoes e permutas palavras

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender macros Microsoft excel VBA

Esses macros do Aplicativo Microsoft Excel VBA, realizam interações de permuta entre caracteres de uma determinada palavra digitada em uma inputbox(Entrada de dados)  na coluna (A), na folha de planilha. Mostra também o número de interações realizadas a palavra escolhida e o número de caracteres, esse valor retorna em uma célula na folha de planilha principal

Dim LinhaCorrente

Sub Letra_para_permutacoes()
    Dim vPalavra As String
    vPalavra = InputBox("Entre com sua palavra para permuta:", "Saberexcel - site das Macros", "saberexcel")
    If Len(vPalavra) < 2 Then Exit Sub
    If Len(S) >= 8 Then
        MsgBox "Digite um nome maior que dois e Menor que 8!", vbInformation, "Saberexcel - site das Macros"
        Exit Sub
    Else
        ActiveSheet.Columns(1).Clear
        LinhaCorrente = 1
        Call Permutacoes("", vPalavra)
    End If
End Sub

Sub Permutacoes(X As String, Y As String)
'   The source of this algorithm is unknown
    Dim i As Integer, j As Integer
    On Error GoTo SaberExcel_Err
    j = Len(Y)
    If j < 2 Then
        Cells(LinhaCorrente, 1) = X & Y
        LinhaCorrente = LinhaCorrente + 1
        [c6].Value = "Interações realizadas [ " & LinhaCorrente & " ]" _
                   & " com a palavra [ " & [a1].Value & " ] - Núm de caracteres: [" & [G1].Value & " ] - [Saberexcel - O site das macros ]"
        Else
        For i = 1 To j
            Call Permutacoes(X + Mid(Y, i, 1), _
            Left(Y, i - 1) + Right(Y, j - i))
        Next
    End If
    Exit Sub
SaberExcel_Err:     MsgBox ("Maximo de linhas usadas use ms excel 2010"), vbInformation, "Saberexcel Site das Macros"
End
End Sub

--- BAIXE O EXEMPLO DE PLANIHA NO FINAL DA PÁGINA:--------


Essa planilha faz parte do Módulo COMO FAZER - Trabalhando com Loops
INSTRUÇÕES LOOP \While...Wend\Do...While...Loop\Do...Loop...While\Do...until..Loop\Do...Loop...until\For...Next\For...Each...next
'--------------------'
1 - INSTRUÇÃO: WHILE...WEND   - Enquanto ... Faça Loop Wend Enquanto a condição for atendida,      o loop novamente '
--------------------'
2 - INSTRUÇÃO: DO...WHILE...LOOP   - Enquanto ... Loop Wend Enquanto a condição for atendida,      o loop é executado
'--------------------'
3 - INSTRUÇÃO: DO...LOOP...WHILE   - Loop Do ... Loop While O loop é executado,      em seguida, repita até que a condição é satisfeita '
--------------------'
4 - INSTRUÇÃO: DO...UNTIL..LOOP   - Loop Do Until ... Loop Até que a condição é alcançada,      o loop é executado
'--------------------'
5 - INSTRUÇÃO: DO...LOOP...UNTIL   - Loop Do ... Loop Until     O loop é executado, então se repete até que a condição for atendida
'--------------------'   
 6 - INSTRUÇÃO: FOR...NEXT     Instrução Loop - Repete uma série de instruções de um número de vezes 7 - INSTRUÇÃO: FOR..EACH...NEXT     
O laço For Each ... Próximo     Repete um bloco de instruções para cada objeto em uma coleção      ou cada elemento de um array '
--------------------'

INSTRUÇÕES LOOP - ESTUDADAS  NAS 100 Planilhas exemplos
Adquira já as planilhas para treinamento com Loops -  http://www.microsoftexcel.com.br
1 - WHILE...WEND
2 - DO...WHILE...LOOP
3 - DO...LOOP...WHILE
4 - DO...UNTIL..LOOP
5 - DO...LOOP...UNTIL
6 - FOR...NEXT
7 -FOR..EACH...NEXT


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.





  Baixe o exemplo de planilha contendo os macros acima
Excel planilha vba interações e permutas palavras (88.97 KB)

Última atualização em Qui, 13 de Outubro de 2011 08:02  

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_counterHoje925
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30689
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44418
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467247
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