Xin giúp chỉnh sửa code tạo chữ chạy trong excel

[tvquan41]

Các bạn giúp mình sử code tạo chữ chạy excel này với! Ở sheet IN HO SO VAY thì chữ chạy được nhưng khi click vào nút PHƯƠNG ÁN TRỒNG TRỌT và bấm vào nút Trở Về thì con chuột cứ quay mãi, có khi còn bị lỗi nữa. Mình xin cảm ơn trước!

[tvquan41]

Một câu hỏi lớn, không người đáp!

[vietteiv]

cái file excel 1,2M khi chạy chiếm 67% CPU (pc 4Gb ram). bấm macro 1 cái là giựt giựt màn hình. tốc độ file xử lý quá chậm mà thêm nhiều hiệu ứng quá ko tốt chút nào.

còn lỗi ko chạy là do câu lệnh này:
Call CellMarquee(Sheet2.Range("d3")) --> chỉ đính danh sheet IN HO SO VAY thì mới chạy chữ

[tvquan41]

Hi, tại mới mò học VBA nên không biết nhiều! Bạn có thể giúp mình, chỉnh lỗi đó được không? Cảm ơn bạn nhiều!

[vietteiv]

sửa lại hàm RunMarquee như sau:

Code: [Select all] [Expand/Collapse]

1. Public Sub RunMarquee(sheetName As String)
2. Dim sngStart As Single
3. Dim sngPausetime As Single
4.  
5. On Error Resume Next
6. sngStart = Timer
7. StartHere
8. sngPausetime = gsngSpeed
9. Do While Timer < sngStart + sngPausetime
10.     DoEvents
11. Loop
12.  
13.     If sheetName = "IN HO SO VAY" Then
14.         Call CellMarquee(Sheets("IN HO SO VAY").Range("d3"))
15.     End If
16.    
17.     If sheetName = "FUONG AN SX" Then
18.         Call CellMarquee(Sheets("FUONG AN SX").Range("c5"))
19.     End If
20.    
21. sngStart = Timer
22. GoTo StartHere
23. End Sub

GeSHi © Codebox Plus Extension

sheet nào muốn sử dụng thì gọi hàm trên, ví dụ sheet FUONG AN SX

Code: [Select all] [Expand/Collapse]

1. Private Sub Worksheet_Activate()
2.  gsngSpeed = 0.15
3.      Call RunMarquee(Me.Name)
4. End Sub

GeSHi © Codebox Plus Extension

[tvquan41]

Cảm ơn bạn đã chỉnh sửa giúp mình! Mình tải file của bạn về chạy thử thì thấy nó chạy nhanh hơn và xử lý chữ chạy rất êm. Nhưng nó vẫn chưa hết lỗi! Hic!

[vietteiv]

bạn nghiên cứu tiếp đi nhé