Cách tạo đồng hồ kỹ thuật số bằng VBA Excel

Mar 01 2023

Tạo đồng hồ kỹ thuật số (như hình dưới) có thật sự khó không? Câu trả lời là không. Trong bài viết này, UniTrain sẽ hướng dẫn cách tạo đồng hồ kỹ thuật số bằng VBA Excel chỉ với 2 bước vô cùng chi tiết và đơn giản.

Bước 1: Dùng mã VBA trong Module

Đầu tiên, bạn cần kết hợp mã VBA vào tệp Excel. Sau đó, bạn sẽ dùng hàm VBA TimeValue trong mã VBA để mã có thể lấy dữ liệu từ hàm sẵn có để cập nhật thời gian.

1. Nhấn Alt + F11 để mở Microsoft Visual Basic.

2. Nhấn Insert > Module để mở blank module.

3. Viết mã VBA trong Module 1.

Dim DigitalClock As Date
Sub MakingClock()
With Sheet1.Range("B4")
.Value = Format(Time, "hh:mm:ss AM/PM")
End With
Call SetTime
End Sub
Sub SetTime()
DigitalClock = Now + TimeValue("00:00:01")
Application.OnTime DigitalClock, "MakingClock"
End Sub
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=DigitalClock, Procedure:="MakingClock", Schedule:=False
End Sub