Giúp Code tắt tự động cập nhật (1 người xem)

[congnguyen88]

Chào các bác ! Em có dùng đoạn code dưới này dùng để cập nhật thời gian tự động giống như cái đồng hồ điện tử vậy.

Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub

Private Sub ProTimer()
Range("a1") = Now
Ontimer
End Sub

Mà code nó mà chạy là nó chạy luôn , em muốn các bác giúp dùm em e bấm vào 1 cái nút nó sẽ Stop lại ( giống như bình thường không cập nhật )
Thank 700 lần, chúc năm mới vui ve

 

[giaiphap]

Chào các bác ! Em có dùng đoạn code dưới này dùng để cập nhật thời gian tự động giống như cái đồng hồ điện tử vậy.

Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub

Private Sub ProTimer()
Range("a1") = Now
Ontimer
End Sub

Mà code nó mà chạy là nó chạy luôn , em muốn các bác giúp dùm em e bấm vào 1 cái nút nó sẽ Stop lại ( giống như bình thường không cập nhật )
Thank 700 lần, chúc năm mới vui ve

Bạn sử dụng thế này thử xem:

Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "Ontimer"
Range("a1") = Now
End Sub


Sub StopOntime()
Application.OnTime Now + TimeValue("00:00:01"), "Ontimer", Schedule:=False
End Sub

 

[Quang_Hải]

Chào các bác ! Em có dùng đoạn code dưới này dùng để cập nhật thời gian tự động giống như cái đồng hồ điện tử vậy.

Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub

Private Sub ProTimer()
Range("a1") = Now
Ontimer
End Sub

Mà code nó mà chạy là nó chạy luôn , em muốn các bác giúp dùm em e bấm vào 1 cái nút nó sẽ Stop lại ( giống như bình thường không cập nhật )
Thank 700 lần, chúc năm mới vui ve

Bạn vẽ 1 nút bấm. Cho cái caption của nó là Run hoặc Stop. Khi nào bấm vào thì caption sẽ đổi trạng thái, và ta sẽ dùng caption để làm điều kiện kích hoạt Sub Protimer. Nói chung là không khó khăn gì. Bạn nên tự xử mới thấy sướng khi có kết quả.

 

[congnguyen88]

Bạn sử dụng thế này thử xem:

Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "Ontimer"
Range("a1") = Now
End Sub


Sub StopOntime()
Application.OnTime Now + TimeValue("00:00:01"), "Ontimer", Schedule:=False
End Sub

Code vẫn không dừng Stop lại bạn ơi

 

[giaiphap]

Sao mình test vẫy chạy tốt mà, bạn xem file mẫu:
http://www.mediafire.com/view/hko79fjr99me2ub/Time.xlsm

 

[congnguyen88]

Sao mình test vẫy chạy tốt mà, bạn xem file mẫu:
http://www.mediafire.com/view/hko79fjr99me2ub/Time.xlsm

Ok minh lam dc roi Thank