Criar um formulário no Excel , utilizando controles agrupados em um quadro, que irá produzir os campos de texto simples, onde o usuário pode inserir suas informações . Crie três botões de comando no formulário que terão um efeito sobre as informações no formulário quando o usuário executa um clique do botão esquerdo com o mouse. É simples de criar um formulário que irá listar os funcionários ou gerentes , e verificar o seu estado . Instruções
1

Abra uma pasta de trabalho no Excel. Se você sabe qual pasta de trabalho que você deseja que o seu formulário de pertencer a , então agora é a hora de abri-lo. Utilize o menu Arquivo para acessar a pasta de trabalho.
2

Clique no menu "Ferramentas" , selecione "Macro" e clique em " Editor do Visual Basic ".
3

Clique em "Inserir " e, em seguida, selecione " UserForm ".
4

Arraste um botão de comando para o formulário. Você precisa de pelo menos três destes para este exemplo.
5

Coloque nomes em seus botões de comando e rótulos. Clique em "Exibir " e " Janela de Propriedades ". Clique em um dos botões de comando que você colocou no formulário.
6

Nomeie o botão de comando que vai ler "OK" , clicando sobre a configuração do nome na janela Propriedades e digitando " cmdOK " . Clique no botão " Caption " configuração na janela Propriedades e digite " OK" .
7

Clique em outro botão de comando. Nome este " cmdCancel ", e definir a legenda para ler " Cancelar" na janela de propriedades .
8

Clique no terceiro botão de comando , o nome " cmdClearForm " e altere a configuração de legenda para ler "Formulário de Clear. "
9

Bata a tecla de função " F7 " no teclado para abrir a janela de código.
10

Clique nas listas suspensas em a parte superior da janela de código. . " Inicializar " Clique na lista superior esquerdo para abrir o OnFilterComboChange chamado "Formulário de Usuário" e clique em outra lista drop-down para selecionar
11

Exclua o OnFilterComboChange listados acima que diz: UserForm_Click . () procedimento
12

digite o seguinte código na janela de código (não digite sobre o texto azul , basta adicionar o texto a preto) : Private Sub UserForm_Initialize () txtName.Value = "" txtPhone . Value = " " Com cboDepartment.AddItem "Colaboradores " . AddItem " Gerentes " End With

YourCourse.Value = "" optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13

Digite o código para o botão Cancelar. Dê um duplo clique no botão Cancelar para abrir a janela de código. Digite o seu código para que a janela de código lê: Private Sub cmdCancel_Click () Unload MeEnd Sub
14

Abra a janela de código para o botão Limpar formulário . Lembre-se dar um duplo clique no botão "Limpar formulário"
15

Digite o seu código na janela de código para que ele lê : . Private Sub cmdClearForm_Click ( ) Chamada UserForm_InitializeEnd Sub
16

Dê um duplo clique no botão " OK " para adicionar o seguinte código na janela de código : .

Private Sub cmdOK_Click ( ) ActiveWorkbook.Sheets ( " YourWork " ) ActivateRange ( "A1") SelectDoIf IsEmpty ( . ActiveCell ) = FalseThenActiveCell.Offset ( 1 , 0 ) . SelectEnd IfLoop Até EstáVazio ( ActiveCell ) = TrueActiveCell.Value txtName.ValueActiveCell.Offset = ( 0 , 1 ) = txtPhone.ValueActiveCell.Offset ( 0 , 2 ) = cboDepartment.ValueActiveCell . Deslocamento ( 0, 3) = cboCourse.ValueIf optIntroduction = True ThenActiveCell.Offset ( 0, 4). Value = " Intro " ElseIf optIntermediate = True ThenActiveCell.Offset ( 0, 4). Value = " Intermed " ElseActiveCell.Offset (0 , 4). Value = " Adv " Fim IFIF chkLunch = True ThenActiveCell.Offset ( 0, 5). Value = " Yes" ElseActiveCell.Offset ( 0, 5). Value = " Não" End IFIF chkWork = True ThenActiveCell.Offset ( 0, 6). Value = " Yes" ElseIf chkVacation = ThenActiveCell.Offset False (0 , 6). Value = " " ElseActiveCell.Offset ( 0, 6). Value = " Não" End IfEnd IfRange ( "A1") . SelectEnd Sub