Khi bạn có macro / mã vba lớn cần chạy trong nhiều phút, bạn có thể thay đổi con trỏ thành đồng hồ cát hoặc con trỏ chờ (dựa trên cài đặt hệ thống của bạn) trong khoảng thời gian macro đang chạy. Sau khi hoàn thành macro, con trỏ có thể được khôi phục trở lại con trỏ mặc định.

Đây là mã mẫu cho thấy cách bạn có thể thay đổi con trỏ.

Option Explicit

_Sub macro1 () _

Application.Cursor = xlWait

‘Code here

Application.Cursor = xlDefault

End Sub Sau các câu lệnh mờ (mã mẫu này chưa có bất kỳ câu lệnh nào), chúng tôi đặt Application.Cursor = xlWait * ở đầu mã.

  • Sau đó, bạn có thể bao gồm bất kỳ mã nào bạn cần để chạy. Nếu bạn cần gọi nhiều đăng ký / thủ tục, bạn có thể thực hiện tại đây hoặc chỉ cần nhập toàn bộ mã tại đây.

Sau đó, ngay trước câu lệnh End Sub, bạn cần đặt lại con trỏ về mặc định. Chúng tôi thực hiện việc này bằng cách sử dụng dòng Application.Cursor = xlDefault *

__

Bạn có thể bao gồm tất cả các câu lệnh khác mà bạn cần như Application.ScreenUpdating = False_or_Application.DisplayAlerts = False _along với _Application.Cursor = xlWait_statement. Tương tự, bạn có thể bao gồm _Application.ScreenUpdating = True hoặc Application.DisplayAlerts = True cùng với câu lệnh Application.Cursor = xlDefault *.

__

  • Để sao chép mã này, nhấn tổ hợp phím Alt + F11 trên bàn phím, thao tác này sẽ mở mô-đun mã. Ở phía bên trái, bạn sẽ thấy Microsoft Excel Objects. Nhấp chuột phải và chọn Chèn và sau đó chọn Mô-đun. Sao chép mã vào cửa sổ mã ở bên phải.