Visual Basic - mostrar información en excel

Life is soft - evento anual de software empresarial
   
Vista:

mostrar información en excel

Publicado por Juan (2 intervenciones) el 08/12/2007 13:27:36
Hola !
Quiero que en un formulario, en un label, me salga, cada 5 segundos un resultado que están guardados en la tabla de excel.
Los resultados a mostrar serían las celdas : A1, B1,C1,D1
A2, B2,C2,D2 en este orden
He intentado con este bucle pero se me queda bloqueado

Private Sub UserForm_Initialize()

Dim res1 As Long
Dim res2 As Long
Dim res3 As long
Dim res4 As Long
Dim indice As Long

Label1.Caption = ""

For indice = 1 To 4
res1 = ActiveSheet.Cells(indice, 1)
res2 = ActiveSheet.Cells(indice, 2)
res3 = ActiveSheet.Cells(indice, 3)
res4 = ActiveSheet.Cells(indice, 4)
Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res1
Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res2
Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res3

Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res4
Next indice
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder