Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

excel-planilha-treinamentos-saberexcel-vba-macros
Excel VBA Planilha Userform Label texto desfila tela
Neste exemplo de Planilha Estes procedimentos Aplicativo Microsoft Excel VBA(Visual Basic Application) temos Userforms label desfila sobre o objeto Userforms, observe que usamos 4 objetos (duas labels, um CommanButton e um objeto image) no ultimo loop vamos verificar determinado número da loop e vamos enviar uma mensagem quando o ultimo objeto estiver deslizando. Perceba que usamos dois objetos para deslizar no mesmo tempo por ultimo.Bons estudos fique com Deus, Expedito Marcondes
Private Sub UserForm_Activate()
Dim x, y, z, sbxTEMPO1, sbxTEMPO2, sbxTEMPO3, sbxTEMPO4
For x = 1 To 427
Me.Label1.Visible = True
sbxTEMPO1 = GetTickCount
Me.Label1.Left = Me.Label1.Left – 1
DoEvents
Do While GetTickCount – sbxTEMPO1 < 15
Loop
Next x
For y = 1 To 300
Me.Label2.Visible = True
sbxTEMPO2 = GetTickCount
Me.Label2.Top = Me.Label2.Top – 1
DoEvents
Do While GetTickCount – sbxTEMPO2 < 20
Loop
Next y
For z = 1 To 280
Me.cmbFECHAR.Visible = True
Me.imgLOGO.Visible = True
sbxTEMPO3 = GetTickCount
Me.cmbFECHAR.Top = Me.cmbFECHAR.Top – 1
Me.imgLOGO.Top = Me.imgLOGO.Top – 1
If z = 230 Then
Dim Resposta As String
Resposta = MsgBox(“deseja conectar com nosso site ?”, vbYesNo + vbQuestion, “Saberexcel – site das macros”)
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink “http://www.saberexcel.com.br/“, , True
End If
End If
DoEvents
Do While GetTickCount – sbxTEMPO3 < 20
Loop
Next z
Unload Me
End Sub
Private Sub cmbFECHAR_Click()
Unload Me
End Sub
Private Sub imgLOGO_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Dim Resposta As String
Resposta = MsgBox(“deseja conectar com nosso site ?”, vbYesNo + vbQuestion, “Saberexcel – site das macros”)
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink “http://www.saberexcel.com.br/“, , True
End If
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
Compre pelo PagSeguro | Compre pelo PayPal | |
![]() |
![]() |
|
Material Didático: Curso Excel VBA Expert |
![]() |
![]() |
![]() |
—- Verifique sua caixa de Itens Excluídos caso não esteja na Caixa de Entrada do Email |