Adicionado em: | 16/02/2012 |
Modificado em: | 16/02/2012 |
Tamanho: | Vazio |
Downloads: | 860 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esses procedimentos (macros) do aplicativo Microsoft Excel VBA(Visual Basic Application), limpa todos objetos Textboxes de um determinado objeto Userform, observe que poderá também usar o código, fazer um macro para também limpar os objetos textboxes quando chamados.
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
Private Sub CommandButton1_Click()
Dim T As Control
TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next Z
End Sub
Private Sub CommandButton2_Click()
limpar_todos_textoboxes
MsgBox ("textbox foram limpados com macros"), vbInformation, "Saberexcel"
TextBox1.SetFocus
End Sub
Private Sub Label1_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
veja o macro que voce poderá fazer para chamar a partir de um módulo comum
para diversos userforms.
Sub limpar_todos_textoboxes()
Dim T As Control
UserForm1.TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next T
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 06/02/2011 |
Modificado em: | 06/02/2011 |
Tamanho: | Vazio |
Downloads: | 862 |
Saberexcel o site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox com os ítens contidos na coluna, e expande a lista na comobox,a medida em que os os dados forem sendo digitados na coluna (A).
Prezado Sr. Marcondes
Preciso de um procedimento que carregue uma combobox com os ítens que for sendo digitado na coluna(A), mas tem que ser incrementado toda a vez que for digitado. é possível a sua ajuda.
Obrigado , Jânio - Contabilista - SPaulo
'-----------------------------------------------------'
Prezado Jânio,
fiz esse exemplo rapidnho para você ver como funciona um a auto-incrementação,
observe que usei o Evento Initialize do Userform(quando for executado), poderia ser feito atraves de um range dinâmico também,
para carregar os ítens na propriedade Rowsource, fica bom também .
Aacho que é isso que voce precisa. Espero tê-lo ajudo ,
Obrigado pela Aquisição da Coleção de 15.000 Macros.
Fique com Deus, E_Marcondes
Private Sub UserForm_Initialize()
Usuario = Application.UserName
For i = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem (Range("A" & i))
' If Range("B" & i).Value = Usuario Then u = i
Next i
' ComboBox1.ListIndex = u - 1
End Sub
Private Sub ComboBox1_Change()
Range("D12").Value = ComboBox1.Value
End Sub
Aprenda tudo sobre Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel.
Adicionado em: | 03/03/2011 |
Modificado em: | 03/03/2011 |
Tamanho: | Vazio |
Downloads: | 890 |
Saberexcel - site das Macros
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox somente com dados das folhas de planilhas que o nome começasm com as Letras 'SAB', neste caso específico carregará os dados somente das Folhas de Planilhas "SABEREXCEL" e "SABERPLAN", porque começam com as três letras 'SAB' . Espero que o exemplo seja útil. Fique com Deus. E_Marcondes
'dando saida de um dado para folha de planilha, fiz isso com intuíto didático, para que voce observe como é simples o princípio de um cadastro.
'esse aprendizado sobre a propriedade offset(Desloc), é muito importante no aprendizado MS Excel VBA(Visual Basic Application).
'não deixe de ver nosso Módulo COMO FAZER - Programação MS Excel VBA - (PROPRIEDADE DESLOC(OFFSET))
Private Sub ComboBox2_Change()
Frame1.Caption = ComboBox2.Value
[A65000].End(xlUp).Offset(1, 0).Value = ComboBox2 'localiza a proxima Célula em branco na coluna(A) e insere ítem selecionado combobox
End Sub
Private Sub UserForm_Initialize()
Dim sbx As Long
Set sbDicionario = CreateObject("Scripting.Dictionary")
Dim Wst As Worksheet, vColuna As Integer, vLinha As Long
' Definir a coluna para procura
vColuna = Me.ComboBox2.ListIndex + 1
' determinar para cada palanilha que comece com o nome SAB
For Each Wst In ThisWorkbook.Worksheets
' Se as tres primeiras letras for correspondente ao nome da folha de planiha
If Left(Wst.Name, 3) = "SAB" Then
' para todas as linhas
For sbx = 2 To 4
For vLinha = 2 To 10
'Adicionando o valor da coluna selecionada ao objeto combobox
iValor = Wst.Cells(vLinha, sbx + vColuna)
If iValor <> "" Then sbDicionario.Item(iValor) = iValor
Next vLinha
Next sbx
End If
Next Wst
Me.ComboBox2.List = sbDicionario.items
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos Saberexcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 902 |
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
Adicionado em: | 20/02/2011 |
Modificado em: | 20/02/2011 |
Tamanho: | Vazio |
Downloads: | 909 |
Esses procedimentos do aplicativo microsoft Excel VBA(Visual Basic Application), contém options que preenche os dados da propriedade rowsource do objeto ComboBox, com critério de seleção options.
Private Sub ComboBox1_Click()
'Range("A65536").Offset(1, 0).End(xlUp).Value = ComboBox1.Value
Range("A407").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item inserido..: " & ComboBox1.Value
frm_viagem.Caption = Left(ComboBox1.Value, 5)
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub OptionButton1_Click()
Alimenta_Combo 1
End Sub
Private Sub OptionButton2_Click()
Alimenta_Combo 2
End Sub
Private Sub OptionButton3_Click()
Alimenta_Combo 3
End Sub
Private Sub OptionButton4_Click()
Alimenta_Combo 4
End Sub
Sub Alimenta_Combo(vColuna As Integer)
Dim I As Long
Me.ComboBox1.Clear
With Sheets("Banco_Dados")
For I = 2 To .Cells(65536, vColuna).End(xlUp).Row
Me.ComboBox1 = .Cells(I, vColuna)
If Me.ComboBox1.ListIndex = -1 Then
Me.ComboBox1.AddItem .Cells(I, vColuna)
End If
Next I
End With
Me.ComboBox1.ListIndex = -1
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho,
com baixo custo, praticando com os produtos didáticos SaberExcel
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
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