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)