Analog Clock Chart, vừa vẽ biểu đồ , vừa có đồng hồ chơi (1 người xem)

[LearnExcel]

Xin gửi file đính kèm trích trong Excel 2003 Bible and Sample Files.

Tôi đã thấy trong dđ post đâu đó (theo bác Vungoc) nhưng không tìm ra.

Tiện đây tôi post lại.

Bí quyết là dùng 1 biểu đồ XYscatter để vẽ các kim, nhấn Stop để xem các công thức và xem các seri liên kết đến vùng dữ liệu nào

Còn phần Code thì khá là gỉan dị

Option Explicit
Dim NextTick

Sub StartClock()
    UpdateClock
End Sub

Sub StopClock()
'   Cancels the OnTime event (stops the clock)
    On Error Resume Next
    Application.OnTime NextTick, "UpdateClock", , False
End Sub

Sub cbClockType_Click()
'   Hides or unhids the clock
    With ThisWorkbook.Sheets(1)
        If .DrawingObjects("cbClockType").Value = xlOn Then
            .ChartObjects("ClockChart").Visible = True
        Else
            .ChartObjects("ClockChart").Visible = False
        End If
    End With
End Sub

Sub UpdateClock()
'   Updates the clock by recalculating the sheet
    ThisWorkbook.Sheets(1).Calculate
'   Set up the next event one second from now
    NextTick = Now + TimeValue("00:00:01")
    Application.OnTime NextTick, "UpdateClock"
End Sub

Mời mọi người cùng thao khảo!