Hỏi cách tạo đồng hồ cát khi đang xử lý Macro trong Excel?

[Nguyễn Đức Duy]

Bác nào biết cách tạo đồng hồ cát hoặc cái gì đó khi Excel đang chạy macro không? bảo em với, khi em chạy macro nhiều dòng (do chưa biết cách lược bớt), màn hình cứ chớp nháy, đảo qua đảo lại sheet nọ, sheet kia, xem không bắt mắt chút nào, vấn đề là em muốn Cô nàng Macro đỏng đảnh của em muốn làm gì thì làm nhưng không chớp nháy và đảo sheet nữa, còn chuột biến thành đồng hồ cát và khi Macro xong nhiệm vụ thì chuột trở lại bình thường.
Các cao thủ giúp đỡ em nhé, em hứa khi nào bán được phần mềm này (sau khi đã trừ chi phí Điện+internet+càphê+chè+kẹo cao su+...quảng cáo) mà còn lãi khoảng 500.000Đ e hứa sẽ đãi các bác tẹt ga.

 

[HongViet]

Trước tiên dùng lệnh này để bớt chạy qua lại!

Application.ScreenUpdating = 0
:angel:

 

[adam_tran]

Đây là vấn đề không phải của chỉ newbie mà cả những cao thủ cũng phải luôn "cố gắng".
Hầu như người dùng VBA nào cũng thiết lập thuộc tính "làm tươi" màn hình Application.ScreenUpdating về giá trị False, thiết lập chế độ tính toán Application.Calculation = xlManual. Đây là những cách thông dụng và đơn giản.
Ngoài ra, sử dụng những phương thức có sẳn, những hàm có sẳn (Built-In Function) hầu như lúc nào cũng nhanh hơn hàm người dùng tự tạo (UDF - User Defined Function).
Đơn giản câu lệnh, tránh dùng vòng lặp giảm các phép tính trong thủ tục sẽ làm tăng tốc macro lên rất nhiều.
Những vấn đề trên đều đã được đề cập đâu đó trong forum, bạn cố gắng tìm kiếm xem.

Các cao thủ giúp đỡ em nhé, em hứa khi nào bán được phần mềm này (sau khi đã trừ chi phí Điện+internet+càphê+chè+kẹo cao su+...quảng cáo) mà còn lãi khoảng 500.000Đ e hứa sẽ đãi các bác tẹt ga.

Trời... cái này cũng bán được cơ à? Nếu bạn muốn tạo các hiệu ứng họat hình trong file của mình, tốt nhất bạn dùng Flash để tạo, rồi nhúng nó vào form!

 

[Tuanktcdcn]

Các vấn đề về làm mịn màn hình thì các mem đã nói rồi.
Đồng hồ cát khi bạn thực hiện phép tính

Sub DoiTrangthaiChuot()
Application.Cursor = xlWait
MsgBox "Đang tính toán!"
Application.Cursor = xlDefault
End Sub