| Descricao: |
 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.
|