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

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Moderator: tungblt

Post Reply
tvquan41
Posts: 5
Joined: Sat 07/05/2011 8:46 pm
Has thanked: 2 times

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

Post by 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!
Attachments
NHAPLIEU.rar
(308.83 KiB) Downloaded 536 times
tvquan41
Posts: 5
Joined: Sat 07/05/2011 8:46 pm
Has thanked: 2 times

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

Post by tvquan41 »

Một câu hỏi lớn, không người đáp!
User avatar
vietteiv
Quản trị
Quản trị
Posts: 1325
Joined: Sat 10/02/2007 12:17 am
Location: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 times
Been thanked: 70 times
Contact:

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

Post by 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
Posts: 5
Joined: Sat 07/05/2011 8:46 pm
Has thanked: 2 times

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

Post by 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!
User avatar
vietteiv
Quản trị
Quản trị
Posts: 1325
Joined: Sat 10/02/2007 12:17 am
Location: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 times
Been thanked: 70 times
Contact:

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

Post by vietteiv »

sửa lại hàm RunMarquee như sau:
  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


sheet nào muốn sử dụng thì gọi hàm trên, ví dụ sheet FUONG AN SX
  1. Private Sub Worksheet_Activate()
  2.  gsngSpeed = 0.15
  3.      Call RunMarquee(Me.Name)
  4. End Sub
Attachments
chu chay trong excel.rar
file đã sửa
(311.26 KiB) Downloaded 772 times
tvquan41
Posts: 5
Joined: Sat 07/05/2011 8:46 pm
Has thanked: 2 times

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

Post by 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!
User avatar
vietteiv
Quản trị
Quản trị
Posts: 1325
Joined: Sat 10/02/2007 12:17 am
Location: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 times
Been thanked: 70 times
Contact:

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

Post by vietteiv »

bạn nghiên cứu tiếp đi nhé :)
Post Reply

Return to “Visual Basic for Application (VBA)”