Criar um contador utilizando o Visual Basic for Applications (VBA ) pode ser facilmente realizado usando uma interface de usuário (UI) ou um formulário . VBA é uma linguagem de programação de computadores usados em qualquer um dos aplicativos do Microsoft Office , como o Excel . No Excel , você pode criar um formulário com controles, como rótulos e botões para iniciar, parar , continuar e acabar com um contador. A melhor maneira de criar um timer é usando um " For ... Loop" e atualizar um rótulo com a mais tempo até que o usuário decide parar ou acabar com o balcão. Coisas que você precisa
Microsoft Office Excel
Show Mais instruções
1
Abra o Microsoft Office Excel , clique na guia "Desenvolvedor" e clique em " Visual Basic" para o lançamento do VB janela editor. Clique no menu "Inserir" e clique em " UserForm " para adicionar um novo formulário. Clique em " Rótulo " no painel " Ferramentas " e clique no formulário para adicionar um novo rótulo . Clique em " botão de comando " e clique no formulário para adicionar um novo botão . Adicione mais três botões de comando usando a mesma técnica .
2
direito do mouse no formulário e clique em "View Code " para visualizar o módulo de código . Adicione o seguinte código para criar seis variáveis globais para este módulo :
stp Pública As Boolean
OldH pública
Pública OldM
Pública Olds
OLDMLN Pública
3
Copie e cole o seguinte código para criar um novo evento , clique em " CommandButton1 " para iniciar o temporizador :
stp = False < br >
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = False
H = 0
Para M = 0 para 59
Para S = 0 a 59
Para MLN = 0 To 59
t = Temporizador
Do Until timer - t> = 1 /60
DoEvents
loop
Se stp = True Then GoTo X
Label1.Caption = _
Format ( H, "00" ) & " :" & Format ( M, "00" ) _
& " :" & Format ( S, "00" ) & " :" & Format ( MLN , "00" )
Próxima MLN
Próxima S
Próximo M
H = H + 1
X :
OldH = H
OldM = M
Olds = S
OLDMLN = MLN
stp = False
4
Copiar e cole o seguinte código para criar um evento de clique de " CommandButton2 " que permitirá " CommandButton1 " e " CommandButton3 : "
Private Sub CommandButton2_Click ()
CommandButton1.Enabled = True
CommandButton2.Enabled = False
CommandButton3.Enabled = True
stp = True End Sub
5
Copie e cole o seguinte código para criar um evento de clique de " CommandButton3 " para retomar o timer :
Private Sub CommandButton3_Click ()
CommandButton3.Enabled = False
CommandButton2.Enabled = True < br >
CommandButton1.Enabled = False
stp = False
H = OldH
Para M = OldM Para 59
Para S = Olds Para 59
Para MLN = OLDMLN Para 59
t = Temporizador
Do Until timer - t> = 1/60
DoEvents
Circuito
Se stp = True Then GoTo X
Label1.Caption = _
Format ( H, "00" ) & " :" & Format ( M, "00" ) _
& " :" & Format ( S, "00" ) & " :" & Format ( MLN , "00" )
Próxima MLN
Próxima S
Próximo M
H = H + 1
X :
OldH = H
OldM = M < br > Olds
= S
OLDMLN = MLN
stp = False End Sub
6
Criar um evento de clique de " CommandButton4 " para fechar o programa :
Private Sub CommandButton4_Click ()
Unload Me
End of End Sub
7
Adicione o seguinte código para definir as legendas para o rótulo e os botões durante a inicialização:
Private Sub UserForm_Initialize ()
CommandButton1.Enabled = True
CommandButton1.Caption = " Start Timer "
CommandButton2.Enabled = False
CommandButton2.Caption =" Stop "
CommandButton3.Enabled = False
CommandButton3.Caption =" Resume Temporizador "
CommandButton4.Caption =" Cancelar "
Label1.Caption =" 00:00:00:00 "
End Sub
8
Adicione o seguinte código para finalizar o programa :
Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode as Integer)
Se CloseMode = 0 Then Cancel = True End
Sub
9
duplo clique em " UserForm1 " do "Object Explorer" janela e pressione " F5" para executar o programa . Clique em " Start Timer " para iniciar o contador , clique em " Stop" para pará-lo, e clique em " Continuar timer " para retomar o balcão. Clique em " Cancelar" para terminar o programa.
