Como criar formas usando o excel

Abrir um livro no Excel. Se você sabe qual livro que pretende a sua forma de pertencer a, então agora é a hora de abri-lo. Utilize o menu Arquivo para acessar a pasta de trabalho.

Clique no "Ferramentas" Menu, selecione "macro" e clique em "Editor do Visual Basic."

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

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

Colocar nomes em seus botões de comando e etiquetas. Clique "Visão" e "Janela de Propriedades." Clique em um dos botões de comando que você colocou no formulário.

Nome do botão de comando que vai ler "Está bem" clicando sobre a configuração do nome na janela Propriedades e digitando "cmdOK". Clique no "Rubrica" ajuste na janela de propriedades e tipo "Está bem".

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

Clique no terceiro botão de comando, nomeá-lo "cmdClearForm" e altere a configuração de legenda para ler "Forma limpa."

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

Clique nas listas drop-down no topo da janela de código. Clique na lista top-esquerda para abrir o subprocedimento chamado "formulário de utilizador" e clique em outra lista drop-down para selecionar "Inicializar."

Excluir o subprocedimento listados acima daquele lê: procedimento UserForm_Click ().

Digite o seguinte código na janela de código (não escreva sobre o azul texto- basta adicionar o texto preto):
Private Sub UserForm_Initialize ()

txtName.Value = ""
txtPhone.Value = ""
com cboDepartment
.Adicionar Item "funcionários"
.Adicionar Item "gestores"
End With
YourCourse.Value = ""
optIntroduction = True
chkWork = false
chkVacation = False
txtName.SetFocus

End Sub

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

unload Me

End Sub

Abra a janela de código para o botão Limpar formulário. Lembre-se de clicar duas vezes no "Forma limpa" botão.

Digite o código na janela de código para que ele lê:
Private Sub cmdClearForm_Click ()

Chamada UserForm_Initialize

End Sub

Clique duas vezes no "Está bem" botão para adicionar o seguinte código na janela de código:

Private Sub cmdOK_Click ()

ActiveWorkbook.Sheets ("Seu trabalho").Ativar
Alcance("A1") .Select
Faz
Se IsEmpty (ActiveCell) = FalseThen
ActiveCell.Offset (1, 0) .Select
Fim se
Loop Until 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 Then
ActiveCell.Offset (0, 4) = .Value "Intro"
ElseIf optIntermediate = True Then
ActiveCell.Offset (0, 4) = .Value "Intermed"
Outro
ActiveCell.Offset (0, 4) = .Value "adv"
Fim se
Se chkLunch = True Then
ActiveCell.Offset (0, 5) = .Value "sim"
Outro
ActiveCell.Offset (0, 5) = .Value "Não"
Fim se
Se chkWork = True Then
ActiveCell.Offset (0, 6) = .Value "sim"
Outro
Se chkVacation = False Then
ActiveCell.Offset (0, 6) = .Value ""
Outro
ActiveCell.Offset (0, 6) = .Value "Não"
Fim se
Fim se
Alcance("A1") .Select

End Sub