Descricao: |
Saberexcel - site das macros Esse procedimento do Aplicativo Microsoft Excel VBA, insere na folha de planilha cada frase para cada linha, todas as frases com quebra de linhas que foram carregadas no objeto TextBox pelo evento Initialize do Userform(abaixo). Baixe o exemplo de planilha no final da Página. Esse exemplo faz parte dos Módulos: COMO FAZER - Programação Aplicativo Microsoft Excel VBA- SaberExcel.
Option Explicit
Private Sub cmdEntre_Click() Dim vLinha As Integer Dim vTexto As String
vTexto = txtText.Text vTexto = WorksheetFunction.Substitute(vTexto, vbLf, "")
Do vLinha = vLinha + 1 If InStr(vTexto, vbCr) Then Cells(vLinha, 1).Value = Left(vTexto, InStr(vTexto, vbCr) - 1) vTexto = Right(vTexto, Len(vTexto) - InStr(vTexto, vbCr)) Else Cells(vLinha, 1).Value = vTexto Exit Do End If Loop Unload Me End Sub
'Ao abrir o userform, carregará com as seguintes frases, com quebra de texto, depois executando a macro acima irá inserir cada frase 'em linhas 'diferentes. Private Sub UserForm_Initialize() txtText.Text = _ "Excel VBA Estudos® - Saberexcel" & vbCr & _ "Site das Macros" & vbCr & _ "Ensinando VBA Macros" & vbCr & _ "http://www.saberexcel.com.br" & vbCr & _ "[email protected]" cmdEntre.SetFocus End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel
|