Sub Chay()
Application.Cursor = xlWait
Application.Interactive = False
'Đoạn code cần chay.
''''''''''''''''''''''''''''''
Application.DisplayAlerts = True
Application.Cursor = xlDefault
End sub
Xem ví dụ này:
Public Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Public Declare Function GetCursor Lib "user32" () As Long
Public Declare Function CopyIcon Lib "user32" (ByVal hcur As Long) As Long
Public Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Public lngNewAniCursor As Long, lngDefaultHourglassCursor As Long
Public Const OCR_WAIT = 32514Public Sub DoCursor(Optional CursorFile As String)
If CursorFile = "" Then
SetSystemCursor lngDefaultHourglassCursor, OCR_WAIT
lngDefaultHourglassCursor = 0
Application.Cursor = xlDefault
Else
Application.Cursor = xlWait
If lngDefaultHourglassCursor = 0 Then lngDefaultHourglassCursor = CopyIcon(GetCursor())
lngNewAniCursor = LoadCursorFromFile(CursorFile)
SetSystemCursor lngNewAniCursor, OCR_WAIT
End If
End SubSub Test()
Dim i As Long
DoCursor "D:\Trong.ani" '<--- Thay doi duong dan cho phu hop
For i = 1 To 60000
Cells(i, 1) = i
Next
DoCursor
End SubLà sao ta? Em hổng có hiểu... Cursor là cursor, "ăn nhậu" gì với MsgBox nhỉ?
Em e rằng không được quá (không dám chắc). Vì thiết nghĩ nếu MsgBox hiện ra, nó sẽ chờ ta bấm gì đó thì code mới làm tiếp được chứ
Google 1 phát có ngay, đem code về chỉnh sửa lại, miễn chạy được là tốt rồi... Có khi cũng không cần hiểu vì bây giờ không hiểu thì.. sau này sẽ hiểu
