elimde mevcut bir kodda biraz oynayarak aplication status bara uyarladım. ama çalışma hızıyla ilgili biraz sıkıntılı. bunu nasıl ayarlayabilirim.
Private Sub statusbar()
On Error Resume Next
kelime = "www.excel.web.tr"
ResumeSub:
If c = 2 Then c = 0
Start = Timer * 7
Do
DoEvents
finish = Timer * 7
deg = Format(finish - Start, "0")
If c < 1 Then
Application.statusbar = Mid(kelime, 53 - deg, deg)
Application.statusbar = sbrLeft
End If
If c > 0 Then
Application.statusbar = Mid(kelime, 1, 53 - deg)
Application.statusbar = sbrRight
End If
Loop While finish - Start <= 52
c = c + 1
GoTo ResumeSub:
End Sub
Private Sub statusbar()
On Error Resume Next
kelime = "www.excel.web.tr"
ResumeSub:
If c = 2 Then c = 0
Start = Timer * 7
Do
DoEvents
finish = Timer * 7
deg = Format(finish - Start, "0")
If c < 1 Then
Application.statusbar = Mid(kelime, 53 - deg, deg)
Application.statusbar = sbrLeft
End If
If c > 0 Then
Application.statusbar = Mid(kelime, 1, 53 - deg)
Application.statusbar = sbrRight
End If
Loop While finish - Start <= 52
c = c + 1
GoTo ResumeSub:
End Sub