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

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.

How to Use VBA Code for Creating Digital Clock in Excel

 

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.

Employ VBA Code in 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

Employ VBA Code in Module

4. Nhấn  F5 để chạy mã VBA. Sau đó, cửa sổ macro sẽ hiển thị.

5. Chọn MakingClock > chọn Run.

Sau đó, đồng hồ sẽ hiển thị như hình dưới:

Bước 2: Định dạng đồng hồ

1. Chọn ô B4:E7 và nhấn Merge & Center.

2. Di chuyển đồng hồ theo hướng chính giữa bằng cách nhấp vào tính năng như trong box 1.

3. Để tạo đường viền, chọn All Borders từ tùy chọn borders.

4. Thay đổi font Digital 7 tùy thích.

5. Tăng kích cỡ chữ lên 48.

How to Use VBA Code for Creating Digital Clock in Excel

6. Thay đổi Font Color hoặc background tùy thích bằng cách chọn Font Color Fill Color (như hình dưới).

How to Use VBA Code for Creating Digital Clock in Excel

Cuối cùng, kết quả sẽ hiển thị như hình dưới:

Xem thêm

Khóa học Ứng dụng VBA trong Excel

Cách thêm Combo Box trong Excel bằng VBA

Cách mở tệp PowerPoint hiện có từ Excel VBA

Cách tạo mục lục bằng VBA trong Excel

Để lại một bình luận

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

1 + 1 = ? (Nhập Haii để trả lời đúng)

Bài viết liên quan
Focus Cell trong Excel – Tính năng giúp tăng khả năng điều hướng

Đã bao giờ bạn lạc trôi giữa hàng trăm dòng, hàng ngàn cột trên Excel… mà không biết mình đang ở đâu? Nếu “mất phương hướng” là cảm giác quen thuộc

Xem thêm
Trí tuệ nhân tạo AI là gì? Khái niệm, phân loại và vai trò trong cuộc sống

Trong thời đại cách mạng công nghiệp 4.0, trí tuệ nhân tạo AI đang trở thành một phần không thể thiếu trong nhiều lĩnh vực của cuộc sống. Từ các trợ

Xem thêm
Truy vấn lồng (Subquery) trong SQL – Bí kíp giúp xử lý và truy xuất dữ liệu với mức độ phức tạp cao

Truy vấn lồng (Subquery) là một trong những công cụ hiệu quả trong SQL, giúp xử lý và truy xuất dữ liệu với mức độ phức tạp cao hơn so với

Xem thêm
Hàm TRIMRANGE() – Hàm xóa giá trị trống “đỉnh” hơn cả TRIM.

Như bạn đã biết hàm TRIM() trong Excel giúp loại bỏ các ký tự trống (khoảng trắng). Tương tự vậy hàm TRIMRANGE() được sử dụng để xóa các giá trị trống khỏi một phạm vi

Xem thêm