Como criar formulários com o Excel

Abra um livro no Excel. Se você sabe em qual livro você quer que seu formulário seja, então 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 para este exemplo.

Dê nomes aos botões de comando e rótulos. Clique em "Visualizar" 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á "OK" clicando nas configurações de nome na janela Propriedades e digitando "cmdOK". Clique na configuração "Legenda" na janela Propriedades e digite "OK".

Clique no outro botão de comando. Coloque o nome de "cmdCancel" e defina o título para ler "Cancelar" na janela Propriedades.

Clique no terceiro botão de comando e nomeie-o como "cmdClearForm" e altere as configurações de título para "Excluir Formulário"

Pressione a tecla "F7" no seu teclado para abrir 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 "User Form" e clique na outra lista suspensa para selecionar "Start".

Remova o subprocedimento acima mencionado que lê: procedimento UserForm_Click ().

Escreva o seguinte código na janela de código (não escreva no texto azul, apenas adicione o texto em preto): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Com cboDepartment .AddItem "Funcionários Administradores ".AddItem" "End With YourCourse.Value =" "optIntroduction = Verdadeiro chkWork = False chkVacation = False 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 que a janela de código leia: Private Sub cmdCancel_Click () Unload Me End Sub

Abra a janela de código para o botão Excluir formulário. Lembre-se de clicar duas vezes no "Delete Form".

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

Clique duas vezes no botão "Aceitar" para adicionar o seguinte código na janela de código: Private Sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Ativar Range ("A1"). Selecione Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0) .Selecione End If Loop Until IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment Valor ActiveCell.Offset (0, 3) = cboCourse.Value Se optIntroduction = True Then ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True Então ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Valor =" 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 Então ActiveCell.Offset (0, 6) .Value = "Yes" Else Se chkVacation = False Então ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "Não" End If End If Range ("A1"). Selecione End Sub