Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Excel VBA USF Label texto desfila tela

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

 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.




 u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
  icon SBL Excel VBA USF Label texto desfila tela (55.82 kB)