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

Procedimentos do Aplicativo MS Excel VBA, usando objetos textbox, no final da digitação dia, mes e ano, formata automaticamente o texto em uma outra textbox e também retorna o valor data para folha de planilha, no formato data(dd/mmm/aaaa).
1 - Userform
4 - Textbox
1 - CommandButton


Dim Dia As Integer
Dim Mês As Integer
Dim Ano As Integer

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
If Len(TextBox1) = 2 Then
Dia = TextBox1
TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
If Len(TextBox2) = 2 Then
Mês = TextBox2
TextBox3.SetFocus
End If
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
If Len(TextBox3) = 4 Then
Ano = TextBox3
Call Validando_data
End If
End Sub

Private Sub Validando_data()
If Dia < 1 Or Dia > 31 Then
MsgBox "Dia Inválido"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox1.SetFocus
Exit Sub
End If

If Mês < 1 Or Mês > 12 Then
MsgBox "Mês Inválido"
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox2.SetFocus
Exit Sub
End If

If Ano < 1990 Or Ano > 2011 Then
MsgBox "Mês Inválido"
TextBox3 = ""
TextBox4 = ""
TextBox3.SetFocus
Exit Sub
End If

TextBox4 = Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
Sheets(1).Range("b5") = TextBox4

If IsError(Sheets(1).Range("B8")) Then
MsgBox "Data Inválida"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""

Sheets(1).Range("B5").Value = Format(Now, "DD/MM/YYYY")
TextBox1.SetFocus
End If
'Frame1.Caption = "Data: " & TextBox1.Value & "/" & TextBox2.Value & "/" & TextBox3.Value 'ou
Frame1.Caption = "Data Digitada: " & Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
End Sub


Aprenda tudo sobre o Aplicativo MS Excel VBA com SaberExcel

Publicidade:
Compre com Segurança, garantia e ótimos preços nas lojas submarino

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere dados em uma combobox.
Há um passo-a-passo no exemplo de planilha da macro abaixo, explicando onde voce deverá aplicar o macro para que não ocorra um erro de compilação quando usamos a instrução Me. Você poderá observar a importancia de aprendermos sobre Membros de Objetos e suas hierarquia no Visual Basic. Baixe o exemplo de planilha no final da página com o passo a passo.



Sub Como_preencher_combobox_na_planilha()
Dim vContarLinhas

Me.ComboBox1.Clear
For vContarLinhas = 11 To 19
Me.ComboBox1.AddItem Plan2.Range("K" & vContarLinhas)
Next
[C4].Value = "Dados inseridos na Combobox"
End Sub

Sub limpar_combo_teste()
Me.ComboBox1.Clear
[C4].Value = "Dados Deletados da Combobox"
End Sub

Private Sub ComboBox1_Click()
[C2].Value = "Voce Selecionou o ítem: [ " & Me.ComboBox1.Value & " ]"
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel

Publicidade:
Compre com segurança, garantia e preços baixos nas lojas SubMarino

Saberexcel - o site das macros
Exemplo de planilha do Aplicativo Microsoft Excel VBA usando spinbutton relacionado a duas tabelas buscando dados.




Aprenda microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros
Exemplo de procedimentos do Aplicativo Microsoft Excel VBA, contendo oito(8) exemplos de Listbox, muito bom para usarmos em nossos projetos e trabalhos do dia-a-dia. Espero que isso possam ajudá-los. Fiquem com Deus, E_Marcondes






Imagem do exemplo da listbox 1


Option Explicit

Private Sub cmbOK_Click()

If ListBox1.ListIndex = -1 Then
MsgBox "Nenhuma lista valor selecionado!", vbCritical
Exit Sub
End If

Cells(2, 1).Value = ListBox1.Value

Unload Me
End Sub

Private Sub cmFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vaManad As Variant

vaManad = Array("Janeiro", "Fevereiro", "Março", "Abril", _
"Maio", "Junho", "Julho", "Agosto", _
"Setembro", "Outubro", "Novembro", _
"Dezembro")

With ListBox1
.Clear
.List = vaManad
.ListIndex = -1
.TextAlign = fmTextAlignCenter
End With

End Sub

'...............................'

Abaixo Imagem e procedimentos do exemplo da Listbox2

Option Explicit

Private Sub cmbOK_Click()
If ListBox2.ListIndex = -1 Then
MsgBox "Nennhum valor da lista foi selecionado!", vbCritical, "Saberexcel - o site das macros"
Exit Sub
End If

Cells(2, 3).Value = ListBox2.Value

Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vGrupos, iValores As Variant
Dim stLista() As String
Dim i As Integer

vGrupos = VBA.Array("AA", "BB", "CC")
iValores = VBA.Array("10", "20", "30")

ReDim stLista(0 To UBound(vGrupos), 0 To 1)

For i = 0 To UBound(vGrupos)
stLista(i, 0) = vGrupos(i)
stLista(i, 1) = iValores(i)
Next i

With ListBox2
.Clear
.BoundColumn = 2
.ColumnCount = 2
.List = stLista
.ListIndex = -1
End With
End Sub

Private Sub mdFechar_Click()
Unload Me
End Sub



'...............................'

Abaixo Imagem e procedimentos do exemplo da Listbox3

Option Explicit

Private Sub cmbOK_Click()
Dim i As Integer
Dim rnCell As Range

Set rnCell = Sheets("ListBox3").Range("A1")

If ListBox3.ListIndex = -1 Then
MsgBox "Nenhum valor da lista foi selecionado!", vbCritical, "Saberexcel - o site das macros"
Exit Sub
End If

For i = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(i) Then _
rnCell.Offset(i, 0).Value = ListBox3.List(i)
Next i

Unload Me
End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vLista, iValores As Variant
Dim stLista() As String
Dim i As Integer

vLista = VBA.Array("AA", "BB", "CC")
iValores = VBA.Array("10", "20", "30")

ReDim stLista(0 To UBound(vLista), 0 To 1)

For i = 0 To UBound(vLista)
stLista(i, 0) = vLista(i)
stLista(i, 1) = vaAndra(i)
Next i

With ListBox3
.Clear
.BoundColumn = 2
.ColumnCount = 2
.List = stLista
.ListIndex = -1
.MultiSelect = fmMultiSelectMulti
.TextAlign = fmTextAlignCenter
End With

End Sub





'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox4

Option Explicit

Private Sub cmbOK_Click()
Dim i As Integer
Dim rnCell As Range

Set rnCell = Sheets("ListBox4").Range("A1")

If ListBox2.ListIndex = -1 Then
MsgBox "Insira o valor na lista!", vbCritical
Exit Sub
End If

rnCell.Value = ListBox2.Value

Unload Me
End Sub

Private Sub ListBox1_Click()
Dim vaJan, vaFev, VaMar, vaAbril As Variant

vaJan = VBA.Array("1", "2", "3")
vaFev = VBA.Array("10", "20", "30")
VaMar = VBA.Array("100", "200", "300")
vaAbril = VBA.Array("1000", "2000", "3000")

Select Case ListBox1.Value
Case "Janueiro"
ListBox2.List = vaJan
Case "Fevereiro"
ListBox2.List = vaFev
Case "Março"
ListBox2.List = VaMar
Case "Abril"
ListBox2.List = vaAbril
End Select

End Sub

Private Sub UserForm_Initialize()
Dim vaLista1 As Variant

vaLista1 = VBA.Array("Janeiro", "Fevereiro", "Março", "Abril")

With ListBox1
.Clear
.List = vaLista1
End With
End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox5

Option Explicit

Private Sub cmbOK_Click()
Dim i, j As Integer
Dim rnCell As Range

Set rnCell = Sheets("ListBox5").Range("A1")

If ListBox5.ListIndex = -1 Then
MsgBox "Nenhum valor foi seleciona nesta lista!", vbCritical, "Saberexcel - o site das macros"
Exit Sub
End If

j = 0
For i = 0 To ListBox5.ListCount - 1
If ListBox5.Selected(i) Then
j = j + 1
rnCell.Offset(j, 0).Value = ListBox5.List(i, 0)
rnCell.Offset(j, 1).Value = ListBox5.List(i, 1)
End If
Next i

Unload Me
End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim iValores, vaAndra As Variant
Dim stLista() As String
Dim i As Integer

iValores = VBA.Array("AA", "BB", "CC")
vaAndra = VBA.Array("10", "20", "30")

ReDim stLista(0 To UBound(iValores), 0 To 1)

For i = 0 To UBound(iValores)
stLista(i, 0) = iValores(i)
stLista(i, 1) = vaAndra(i)
Next i

With ListBox5
.Clear
.BoundColumn = 2
.ColumnCount = 2
.List = stLista
.ListIndex = -1
.MultiSelect = fmMultiSelectMulti
End With

End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox6

Option Explicit

Private Sub UserForm_Initialize()
Dim vCelula, vIntervalo As Range

Set vIntervalo = Worksheets("Listbox6").Range("B2:G2")

For Each vCelula In vIntervalo
ListBox6.AddItem vCelula.Value
Next vCelula

End Sub

Private Sub cmbOK_Click()
Unload Me
End Sub



'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox7

Private Sub UserForm_Initialize()
Dim rnLista, rnCell As Range
Dim wkData As Worksheet

Set wkData = ThisWorkbook.Sheets("ListBox7")

Set rnLista = Union(wkData.Range("A2:A4"), wkData.Range("E2:E4"))

For Each rnCell In rnLista
ListBox7.AddItem rnCell.Value
Next rnCell

End Sub

Private Sub cmbOK_Click()
Unload Me
End Sub

'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox8

Option Explicit

Private Sub cmbOK_Click()
Dim iDados, vLista As Integer
Dim i, j As Integer
Dim vTemp As String

iDados = 0
vLista = ListBox8.ListCount - 1

For i = iDados To vLista - 1
For j = i + 1 To vLista
If ListBox8.List(i) > ListBox8.List(j) Then
vTemp = ListBox8.List(j)
ListBox8.List(j) = ListBox8.List(i)
ListBox8.List(i) = vTemp
End If
Next j
Next i

End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vMeses As Variant
vMeses = Array("Jan", "Fev", "Mar", "Abr", _
"Mai", "Jun", "Jul", "Ago", _
"Set", "Out", "Nov", _
"Dez")

With ListBox8
.Clear
.List = vMeses
.ListIndex = -1
End With

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel