Giúp code cập nhật thời gian trong Excel (1 người xem)

[congnguyen88]

tại ô A1 tôi dùng hàm =Now() nhưng để yên bảng tính như vậy từ sáng đến tối không nhấn Enter hay nhấn F9 thì giờ không tự động cập nhật. vây anh em có thể giúp mình viết 1 đoạn code để cập nhật giống như đồng hồ điện tử được không. Xin cảm ơn

 

[Quang_Hải]

tại ô A1 tôi dùng hàm =Now() nhưng để yên bảng tính như vậy từ sáng đến tối không nhấn Enter hay nhấn F9 thì giờ không tự động cập nhật. vây anh em có thể giúp mình viết 1 đoạn code để cập nhật giống như đồng hồ điện tử được không. Xin cảm ơn

Cho hết code này vào 1 module. Đóng file và mở file lại code sẽ chạy

Option Explicit
Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub
Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(1, 1).Value = Time
        Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
    End If
End Sub
Sub Auto_Open()
    Module1.StartTimer
End Sub

 

[congnguyen88]

Cho hết code này vào 1 module. Đóng file và mở file lại code sẽ chạy

Option Explicit
Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub
Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(1, 1).Value = Time
        Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
    End If
End Sub
Sub Auto_Open()
    Module1.StartTimer
End Sub

Ok cảm ơn anh. vậy đang chạy muốn dừng thì làm cách nào hả anh

 

[Quang_Hải]

Ok cảm ơn anh. vậy đang chạy muốn dừng thì làm cách nào hả anh

Sub Stop_Timer()
    TimerActive = False    
End Sub