VBA - Agenda de Visitas (Excel)


Hoje vamos criar uma agenda de visitas usando os recursos do VBA no Excel 2002.(Pode ser aberto também no Excel 2007)

Abra uma nova planilha no Excel e nas células de A1 a D1 digite o título centralizado: Agenda de Visitas;

A seguir inclua as células de A2 a D2 o seguinte texto:

A2 Data da visita
B2 Responsável
C2 Cliente
D2 Motivo da visita

O leiaute da planilha deverá esta conforme a figura abaixo:

Feito isso salve a planilha com o nome AgendaVisitas.xls.

Agora vamos abrir o editor do Visual Basic para criar o formulário de registro de visitas;

Pressione as teclas Alt+F11 e a seguir no menu Inserir selecione UserForm;

O formulário UserForm1 será apresentado no editor conforme a figura abaixo:

Em seguida usando a Caixa de Ferramentas inclua os seguintes controles no formulário:

Para incluir o controle Calendário clique com o botão direito do mouse sobre a caixa de ferramentas e selecione controle adicionais;

Na janela Controles Adicionais procure e marque o item Calendar Control 8.0 (você poderá ter uma versão mais atual do controle pois no Excel 2007 a versão é a versão 12.0) e clique em OK;

Agora vamos formatar os controles :

Para incluir um título do formulário selecione o mesmo e pressione F4 para exibir a caixa de propriedades do formulário;

A janela de propriedades exibe todas as propriedades do formulário;

Podemos alterar qualquer propriedade que desejarmos;

Vamos alterar a propriedade Caption para Agenda de Visitas que exibirá

o título no formulário.

Obs: Cada controle possui as suas propriedades acessadas da mesma forma,
basta selecionar o controle e pressionar F4.

A seguir para alterar o texto dos demais controles apenas clique sobre eles e digite os textos posicionando os controles conforme o leiaute abaixo}:

Vamos agora alterar o nome do controle CommandButton; selecione o controle e pressione F4;

A seguir altere a propriedade Name para cmdAgendarVisitas;

Obs:Não vou alterar os nomes dos demais controles mas é recomendável adotar esta prática para facilitar o entendimento e a manutenção do código.

Agora vamos incluir o código VBA no botão cmdAgendarVisitas; Clique duas vezes sobre este botão para abrir a janela de código;

A seguir digite o código abaixo no evento Click do botão:

Agora vamos voltar para nossa planilha pressionando Alt+Q ou no menu Arquivo-> Fechar e voltar para o Microsoft Excel;

Na planilha vamos incluir um botão para carregar o formulário que acabamos de criar;

Para isso vamos ativar a barra de ferramentas do Visual Basic na planilha. Para isso selecione no menu Exibir a opção Barras de Ferramentas e selecione Visual Basic;

Em seguida selecione o Botão de comando na barra de ferramentas e inclua na planilha.

Selecione o controle e pressione F4 e altere a sua propriedade Caption para Agendar Visitas;

Falta agora incluir o código no botão da planilha para abrir o formulário;

Clique duas vezes sobre o botão Agendar Visitas; será aberta a janela de código , digite o código conforme abaixo no evento Click do botão:

Abrindo a planilha podemos clicar no botão Agendar Visitas e dar início ao registro dos agendamentos.

Um programa simples, simples assim mas muito legal...

Pegue o projeto completo aqui: AgendaVisitas.zip

Eu sei é apenas VBA, mas eu gosto...

Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:


José Carlos Macoratti