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, |
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:
Super DVD Vídeo Aulas - Vídeo Aula sobre VB .NET, ASP .NET e C#