Detalhes de vba decompor e numerar letras numero caracteres

PropriedadeValor
Nome:vba decompor e numerar letras numero caracteres
Descricao:

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompõe determinadas frases em células na vertical, contando o nùmero de carateres e os númerando, usamos a Propriedade Offset(DESLOC) para isso. Espero que o exemplo possa lhe ser útil.
Fique com Deus, Expedito Marcondes


Sub sb_decompor_e_numerar_letras()
Dim sbChave() As Variant
[C4:C200].ClearContents

Cells(3, 3).Activate
vTexto = ActiveCell.Value
vNumeroCaracteres = Len(vTexto)

ReDim sbChave(vNumeroCaracteres - 1)

For i = 0 To vNumeroCaracteres - 1
sbChave(i) = Mid(vTexto, i + 1, 1)
ActiveCell.Offset(1, 0).Value = "[" & i + 1 & "ª.Letra ]..............: " & " " & sbChave(i) & " "
ActiveCell.Offset(1, 0).Select 'offset(funcao desloc) desloca dados nas células
Next i

Columns("C").AutoFit
[C3].Select
End Sub



Essas macros são auxiliares para auxiliar no teste.
Sub sb_visualizar_macros_vbe()
Dim Resposta As String

Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
If Resposta = 6 Then ' 6 é igual a vbyes
Application.Goto reference:="decompor_e_numerar_letras"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub

Sub sb_oc()
Saber1.Shapes("sb").Visible = False
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

 

Nome do arquivo:vba decompor e numerar letras numero caracteres.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 20/02/2011 09:38
Visitas:Todos
Responsavel:Autor
Acessos:991 Acessos
Atualizado em: 20/02/2011 09:39
Site: