Como criar formulários com o Excel

Crie um formulário no Excel usando os controles agrupados em um quadro, que produzirão campos de texto simples nos quais o usuário pode inserir suas informações. Crie três botões de comando no formulário que afetarão as informações no formulário quando o usuário clicar com o mouse. É muito fácil criar um formulário que lista funcionários ou gerentes e verifique seu status.

Abra uma pasta de trabalho no Excel. Se você sabe em qual livro deseja que seu formulário seja, agora é a hora de abri-lo. Use o menu Arquivo para acessar o livro.

Clique no menu “Ferramentas”, selecione “Macro” e clique em “Editor do Visual Basic”.

Clique em “Inserir” e selecione “UserForm”.

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

Nomeie os botões e rótulos de comando. Clique em “Exibir” e “Janela Propriedades”. Clique em um dos botões de comando que você colocou no formulário.

Nomeie o botão de comando que lerá “Aceitar” clicando nas configurações de nome na janela Propriedades e digitando “cmdOK”. Clique na configuração “Legenda” na janela Propriedades e digite “OK”.

Clique em outro botão de comando. Digite o nome “cmdCancel” e defina o título para “Cancelar” na janela Propriedades.

Clique no terceiro botão de comando e chame-o de “cmdClearForm” e altere as configurações do título para ler “Excluir formulário”

Pressione a tecla “F7” no teclado para exibir a janela de código.

Clique na lista suspensa na parte superior da janela de código. Clique na lista no canto superior esquerdo para abrir o subprocedimento chamado “Formulário do usuário” e clique na outra lista suspensa para selecionar “Iniciar”.

Exclui o subprocedimento mencionado acima: Procedimento UserForm_Click ().

Escreva o seguinte código na janela de código (não escreva sobre texto azul, basta adicionar o texto preto): Private Sub UserForm_Initialize () txtName.Value = “” txtPhone.Value = “” Com cboDepartment .AddItem ” “.AddItem” Managers “Terminam com YourCourse.Value =” “optIntroduction = True chkWork = Falso chkVacation = Falso txtName.SetFocus End Sub

Digite o código no botão Cancelar. Clique duas vezes no botão Cancelar para abrir a janela de código. Digite seu código para ler a janela de código: Private Sub cmdCancel_Click () Descarregar-me End Sub

Abra a janela de código para o botão Limpar formulário. Lembre-se de clicar duas vezes no “Excluir formulário”.

Digite seu código na janela de código para ler: Private Sub cmdClearForm_Click () Ligue para UserForm_Initialize End Sub

Clique duas vezes no botão “OK” para adicionar o seguinte código na janela de código: Private Sub cmdOK_Click () ActiveWorkbook.Sheets (“YourWork”). Ative o intervalo (“A1”). Selecione Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0). Selecione Finalizar loop até IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment .Value ActiveCell.Offset (0, 3) = cboCourse.Value Se optIntroduction = True e ActiveCell.Offset (0, 4) .Value = “Digite” ElseIf optIntermediate = True e ActiveCell.Offset (0, 4) .Value = ” Intermed “Else ActiveCell.Offset (0, 4) .Value =” Adv “End If If chkLunch = True Então ActiveCell.Offset (0, 5) .Value =” Yes “Else ActiveCell.Offset (0, 5) .Value = “Não”End If If chkWork = True, em seguida, ActiveCell.Offset (0, 6) .Value = “Yes” Else If chkVacation = False then ActiveCell.Offset (0, 6) .Value = “” Else ActiveCell.Offset (0, 6). Valor = “Não” Fim Se Fim Se Intervalo (“A1”). Selecione Fim Sub

Referências

 

Você pode estar interessado:

Deixe um comentário