Excel Avançado - Projeto Agenda - Parte 01

(06/10/2011) - Atenção -
Onde tem um * significa que sofreu alterações na programação. Verificar com o que foi passado anteriormente.

---

01. Primeiramente vamos editar os nomes de duas planilhas e excluir a terceira.


02. Em "Clientes" vamos montar uma pequena tabela. Comece em B1...


03. Na planilha "Controle", na célula A1, apenas acrescente o Rótulo "Clientes"


04. Pressione Alt+F11, para acionar o modo VBA.

05. Vá no menu Inserir / Módulo. Depois Inserir / Procedimento.
Nome: CadCliente
Tipo: Sub
Escopo: Público

Esse procedimento vai servir para o chamar o formulário "Cadastro de Clientes".


06. Menu Inserir / Procedimento
Nome: DelCliente
Tipo: Sub
Escopo: Público


07. Menu Inserir / Procedimento
Nome: DelCliente
Tipo: Sub
Escopo: Público


08. Volte para o Excel, clique na Planilha Clientes, vá no menu Exibir / Barra de Ferramentas / Formulários.
Crie 3 botões, um para cada macro criada no VBA, um botão será "Cadastrar", outro "Excluir" e por fim o "Localizar".


09. No VBA, vá no menu Inserir / UserForm

Propriedades do Formulário
Name: Frm_Cadastro
Caption: Cadastro de Clientes
Height: 100
Width: 240

---

Rótulos


Label1
Caption: Nome:
Height: 10
Left: 6
Top: 6
Width: 40

Label2
Caption: Endereço:
Height: 10
Left: 6
Top: 24
Width: 40

Label3
Caption: Fone:
Height: 10
Left: 6
Top: 42
Width: 40

---

Caixas de Texto


Caixa de Texto
(Name): Txt_Nome
Height: 16
Left: 48
Top: 6
Width: 120

Caixa de Texto
(Name): Txt_Endereco:
Height: 16
Left: 48
Top: 24
Width: 120

Caixa de Texto
(Name): Txt_Fone
Height: 16
Left: 48
Top: 42
Width: 100

---

Botões de Comando


Botão de Comando 1
(Name): Cmd_Adicionar
Accelerator: A
Caption: Adicionar
Default: True
Height: 20
Left: 174
Top: 6
Width: 50

Botão de Comando 2
(Name): Cmd_Ok
Accelerator: O
Caption: OK
Height: 20
Left: 174
Top: 30
Width: 50

---

Iniciando a programação do Formulário.

10. Dê dois cliques no botão Adicionar...
Antes da palavra private declare a variável Clientes...


Volte para dentro do evento Click do botão Adicionar e insira as seguintes linhas de código...



End If






11. Agora vamos dar dois cliques no botão de comando OK.


12. Com o propósito de evitar que o usuário utilize outras planilhas coloque o seguinte código na Pasta de Trabalho.


Depois marque o evento SheetActivate.


Insira a seguinte linha de programação:




13. Vamos limitar o acesso somente ao botão Cadastrar, coloque o seguinte código em Plan1. Dê dois cliques na Plan1(Clientes) na janela Projetos: