Amigos, boa noite a todos!
Estou disponibilizando uma Atualização da planilha de exemplos do curso de programação. Clique aqui!
Não deixe de acompanhar as novas atualizações do Blog. Teremos muitas novidades!!!
Para acessar o curso completo Clique aqui
domingo, 27 de abril de 2014
12. ATUALIZANDO DADOS ATRAVÉS DE UM FORMULÁRIO.
12. ATUALIZANDO DADOS ATRAVÉS DE UM FORMULÁRIO.
Convenhamos, buscar informações em uma planilha do Excel pode
ser uma verdadeira Odisseia se houverem muitos registros. Então meu caro, que
tal usarmos as belezocas da ListBox e Combobox? Assim é só buscar o nome e
trazer as demais informações no formulário.
12.1. Retornando os dados no formulário
A melhor forma de exemplificar o que
estou querendo dizer é criarmos um pequeno sistema de cadastro. Para começarmos,
vamos utilizar o formulário do capítulo anterior e inserirmos mais alguns
controles (3 Comboboxs, sendo “Txt_Nome”, “Txt_Sal”, “Txt_Cargo”. Então mãos à
obra.
Após inserido os controles, o
formulário ficará desta forma.
Agora vamos programar o formulário
para retornar os dados para os controles, quando forem selecionados dados na
Combobox ou Listbox.
Vamos criar um procedimento simples
para retornar os dados, veja abaixo.
Sub
RetornaDados()
Dim ShtFunc 'declara a
variável da planilha
Set ShtFunc =
Sheets("Plan4")
'seta a planilha que será utilizada
Lin = PreencheListBox.ListBox1.ListIndex +
2 'defina a linha da planilha onde os
dados serão capturados
With ShtFunc 'retorna os
dados para o formulário
Txt_Nome = ShtFunc.Cells(Lin, 1)
Txt_Sal = ShtFunc.Cells(Lin, 2)
Txt_Cargo = ShtFunc.Cells(Lin, 3)
End With
End Sub
É só inserir a chamada do
procedimento no evento Change da Combobox. Não será necessário fazer o mesmo com
a Listbox, já que igualamos o índice das duas no tópico anterior.
Veja o resultado final.
Para acessar o curso completo Clique aqui
domingo, 20 de abril de 2014
11.4. Interação entre ComboBox e ListBox
11.4. Interação entre ComboBox e ListBox
Trabalhar
somente com uma Combobox ou Listbox em um formulário pode ser algo não muito
prático e dinâmico. Que tal inserirmos as duas e criarmos uma interação
dinâmica entre elas para facilitar nossas buscas?
Para tanto, vamos usar o formulário
da lição anterior e incrementá-lo, adicionando uma Combobox e alterando o
código desta forma.
Private Sub UserForm_Initialize()
Dim Planilha As Worksheet
Dim Linha As Integer
'Você pode usar qualquer planilha.
Neste caso, vou usar uma planilha que já usei neste curso.
'O resto é semelhante ao do item 11.1
Set Planilha = Worksheets("plan4")
Linha = 2
With Planilha
Do While .Cells(Linha,
1).Value > ""
'*********************************************
Me.ComboBox1.AddItem .Cells(Linha, 1).Value '*
'*********************************************
Me.ListBox1.AddItem .Cells(Linha,
1).Value
Linha = Linha + 1
Loop
End With
End Sub
Perceba
que acrescentamos apenas a linha de código em vermelho para preenchermos a
Combobox, simultaneamente à ListBox. Muito rápido e fácil.
Agora o formulário vai ficar com
esta cara.
Agora,
no editor do VBA, dê 2 clicks na Combobox para acessar o evento Change da
mesma. Vamos igualar o índice da ListBox com o da Combobox. Veja.
O mesmo vamos fazer com ListBox,
alterando o seu evento Change.
Pronto, agora se você buscar algum
nome na Combobox, o mesmo será selecionado na ListBox e vice versa. Faça o
teste.
Para acessar o curso completo Clique aqui
sábado, 12 de abril de 2014
11.3 Preenchendo Uma ListBox com dados de uma planilha
11.3 Preenchendo Uma ListBox com dados de uma planilha
Assim como as Comboboxs, as ListBoxs também podem ser preenchidas com as informações que nós interessam. Vamos ver como é isto.
Crie um formulário como este:
Agora, digite o código dentro do
formulário, como mostra a figura abaixo.
Prontinho, agora é só executar o
código, que a listbox será preenchido, com os dados da plan4.
Para acessar o curso completo Clique aqui
Assinar:
Postagens (Atom)