Giúp đỡ đồng hồ Excel chạy tại nơi chỉ định (1 người xem)

[nanogod]

Mình vừa sưu tầm được đoạn code đồng hồ khá hay,mở file là chạy luôn :
Tạo module :

'Mail: TuanKTCDCN@Yahoo.com'Website:[URL="http://www.vietnamuniversal.com"]www.vietnamuniversal.com[/URL]
'========================
Private Const Mycompany = " www.vietnamuniversal.com"
Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub
Private Sub ProTimer()
Application.Caption = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany
Ontimer
End Sub

Tại ThisWorkbook :

Private Sub Workbook_Open()
Ontimer
End Sub

...

File excel mình có dùng VBA để lưu lại thời gian nhập liệu (mình đã làm được) và cần 1 cái đồng hồ trong cell để tính thời gian nhập liệu đó đã được bao lâu,cái này mình làm được nhưng chỉ chạy được trên 1 Workbook

Private Sub ProTimer()
Sheets("name").Range("a1").Value = Format(Now(), "dd/mm/yy hh:mm:ss")
Ontimer
End Sub

làm việc trên Workbook khác là bị lỗi ngay
Mong AE giúp mình công thức đồng hồ hoạt động trên cell tại Worksheet và Workbook chỉ định , không bị lỗi khi làm việc trên nhiều Workbook khác nhau dùm nha. Thank nhiều

 

[ndu96081631]

File excel mình có dùng VBA để lưu lại thời gian nhập liệu (mình đã làm được) và cần 1 cái đồng hồ trong cell để tính thời gian nhập liệu đó đã được bao lâu,cái này mình làm được nhưng chỉ chạy được trên 1 Workbook

Private Sub ProTimer()
Sheets("name").Range("a1").Value = Format(Now(), "dd/mm/yy hh:mm:ss")
Ontimer
End Sub

làm việc trên Workbook khác là bị lỗi ngay
Mong AE giúp mình công thức đồng hồ hoạt động trên cell tại Worksheet và Workbook chỉ định , không bị lỗi khi làm việc trên nhiều Workbook khác nhau dùm nha. Thank nhiều

Sửa code thành vầy xem:

Private Sub ProTimer()
Thisworkbook.Sheets("name").Range("a1").Value = Format(Now(), "dd/mm/yy hh:mm:ss")
Ontimer
End Sub

Chỗ màu đỏ là mới thêm vào

 

[nanogod]

Cảm ơn thầy NDU nhiều lắm
Em thử trên máy ở nhà thấy OK rồi , mai vào cty thêm "This..." xem sao