|
 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
|