Home Excel - Dicas Microsoft Excel VBA Excel VBA - Decompoe palavras Excel planiha vba decompoe frases na horizontal e conta caracteres

Excel planiha vba decompoe frases na horizontal e conta caracteres

E-mail Imprimir PDF

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




Baixe o exemplo de planiha contendo os macros acima
Excel planilha vba decompor e numerar letras numero caracteres (28.38 KB)

 

Última atualização em Sex, 17 de Julho de 2015 18:57  

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_counterHoje591
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32646
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9888
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432717
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