VBA - Agenda de Visitas (Excel)


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...

Referências:


José Carlos Macoratti