Sữa giúp code chạy chữ (1 người xem)

[saobekhonglac]

Chào Anh/Chị.

Trước em có tải được file chạy chữ trên Excel của anh NDU nhưng khi qua Excel 64bit thì không chạy được nữa. Em có thêm PtrSafe rồi nhưng nó còn báo lỗi dòng bên dưới. Nhờ Anh/Chị sửa giúp em.

Cám ơn Anh/Chị.

 

[befaint]

Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
'OR'
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongLong) As LongPtr

 

[VetMini]

Cho code uống sữa thì nó chạy chữ?

 

[saobekhonglac]

Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
'OR'
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongLong) As LongPtr

Cám ơn anh, thiếu 1 chữ Ptr. hihi