Excel

Disponível somente no TrabalhosFeitos
  • Páginas : 4 (789 palavras )
  • Download(s) : 0
  • Publicado : 22 de agosto de 2012
Ler documento completo
Amostra do texto
Tutorial de criar o formulário de cadastro:
1° Abra uma Planilha qualquer no qual queira criar o formulário:
No meu exemplo peguei a planilha de controle de cheques emitidos:


2° Clique naguia Desenvolvedor (caso não esteja aparecendo, vá em opções do Excel e habilite a mesma .
Insira um Botão
3° Digite a descrição que aparecera no botão
4° Aperte Alt+f11
5°Clique com o botãodireito do mouse em cima da pasta principal e selecione importar arquivo e importe os dois arquivos que está na pasta que disponibilizei para baixar! ( o formulário e o modulo que chama o formulário) oucrie um vocês mesmo atráves da opção inserir> Userform e Módulo.

6° Edite a gosto e depois de dois cliques em qualquer parte do formulário desenhado!
7° Aparecerá o codigo:
Option Explicit
‘ Arotina privada buttonAdd_Click é acionada
‘ sempre que o botão de nome buttonAdd é
‘ clicado. Você pode acionar rotinas em outros
‘ eventos combinando o formato abaixo:

‘ [objeto]_[evento]

‘Onde [objeto] é o nome do objeto em questão
‘ e [evento] é um dos eventos na lista visível
‘ no drop-down na parte superior direita desta
‘ janela.
Private Sub buttonAdd_Click()
‘ Exibe umamensagem de erro se o usuário
‘ não tiver preenchido os campos inputNome
‘ e inputEmail. Em seguida, encerra a
‘ execução da rotina.
If inputNome.Value = Empty Or inputEmail = Empty Then
MsgBox “Vocêdeve fornecer os dados para cadastrar.”
Exit Sub
End If
Dim i As Integer
‘ Percorre a região definida como tabela
‘ de registros (A9:A900) e adiciona os
‘ valores de inputNome e inputEmail à
‘primeira linha vazia. Se isto for feito,
‘ encerra a execução do formulário (com a
‘ instrução Unload Me.
For i = 9 To 9000
If Cells(i, 1).Value = Empty And Cells(i, 13).Value = Empty ThenCells(i, 1).Value = inputNome.Value
Cells(i, 2).Value = inputEmail.Value
Cells(i, 3).Value = TextBox1.Value
Cells(i, 5).Value = TextBox2.Value
Cells(i, 6).Value = TextBox3.Value
Cells(i, 7).Value =...
tracking img