Macros Visual Basic personalizar aplicativos do Microsoft Office , tornando-os mais poderoso com ferramentas especializadas para usuários específicos. Calendário controla usuários de próteses , garantindo a qualidade de seus dados. Gerando um calendário para seleção de data em tempo real requer uma macro do Visual Basic e um controle ActiveX ; ActiveX exibe o calendário e Visual Basic interpreta comandos do usuário no calendário . O exemplo de código neste artigo incidirá sobre a geração de um calendário no Microsoft Excel, mas pode ser adaptado para qualquer aplicação no Microsoft Office Suite. Instruções
1

lançamento Excel , clicando em " Iniciar", " Todos os Programas", "Microsoft Office Suite " e " Excel ".
2

Inicie o Editor do Visual Basic ( VBE ) pressionando "Alt" e " F11 " simultaneamente.
3

criar o livro " personal.xls " se ainda não existir . O livro " personal.xls " contém as macros que são acessíveis a partir de qualquer outro livro no Excel . Na parte superior esquerda da VBE há um painel de navegação. Se " personal.xls " não está listado no painel de navegação do VBE , clique em "Ferramentas", "Macro" e " Gravar Nova Macro ." Uma caixa de diálogo irá aparecer na tela. Selecione "Macro loja em: livro pessoal de macros " e clique em "OK". Clique em " Stop Recording ". O livro " personal.xls " aparecerá no painel de navegação do VBE .
4

Crie o " UserForm " que conterá o calendário. Clique em " personal.xls " para selecionar a pasta de trabalho . Clique em "Inserir " e depois " UserForm ". A caixa de diálogo " UserForm " aparecerá na tela. Existem várias caixas de texto na caixa de diálogo ; " . Selecione uma data " na caixa de texto para "Nome ", altere o texto para " frmCalendar " e na caixa para "Legenda ", altere o texto para
< br > 5

Adicione o controle de calendário para a caixa de ferramentas . Clique em "Exibir ", " Caixa de Ferramentas ", "Tools" e " Controles adicionais . " Uma caixa de diálogo com uma lista de controles aparecerá. Desloque-se para "Calendário de Controle 8.0" (ou a versão mais recente ) , clique para selecioná-lo e clique em "OK".
6

Insira o controle de calendário para o UserForm. Clique no ícone "Calendário de Controle" na caixa de ferramentas e , em seguida, clique no canto superior esquerdo do formulário de usuário. Clique e arraste a imagem do calendário para a posição desejada dentro do UserForm.
7

Criar o botão de saída de calendário de controle. Clique no botão " Controlo de comando " na caixa de ferramentas . Mova o botão "x" para o canto superior esquerdo do formulário de usuário. Em " Propriedades ", altere o nome para " cmdClose " e altere o valor de "Cancelar" para "true". Pressione o botão F7 para acessar o editor de código. Copie e cole o seguinte código no VBE :

Private Sub cmdClose_Click ()

Unload Me End Sub

8

Programa do calendário funcionalidade . Selecione " Calendar1 " a partir do menu drop -down no canto superior esquerdo do VBE . Há um outro menu drop -down para a direita desta lista , selecione "Click" a partir deste menu. Copie e cole o seguinte código no VBE :

Private Sub Calendar1_Click ()

ActiveCell.Value = Calendar1.Value

Unload Me

End Sub
9

Salve a planilha " pessoal.xls " pressionando "Ctrl" e "s" ao mesmo tempo.
10

executar a macro. Clique no "x " no canto superior direito para fechar o VBE . Clique em qualquer célula na planilha. Pressione " Alt" e "F8" simultaneamente. A caixa de diálogo Macros aparecerá. Selecione " OpenCalendar pessoal.xls ! " E depois clique em " Executar". O controle de calendário aparecerá. Clique em qualquer data no calendário para escrever essa data para a célula.