Xây dựng đồng hồ kim chạy thực tế trong Excel: Hướng dẫn từng bước

Bước 1: Thiết lập Giờ, Phút, Giây

• Nhấp vào ô C5 và nhập công thức sau:

=IF((HOUR(NOW())+C10/60+C15/3600)>12,(HOUR(NOW())+C10/60+C15/3600)-12,HOUR(NOW())+C10/60+C15/3600)

• Nhấn Enter.
• Kết quả là giá trị điều khiển kim Giờ trên đồng hồ.

• Nhập Độ rộng kim Giờ vào ô C6.
• Chọn ô C7 và nhập công thức tính khoảng trống cho kim Giờ (công thức gốc bị thiếu, thường là giá trị bổ sung để tạo độ dài kim).
• Nhấn Enter.
• Ta được khoảng trống cho kim Giờ.

• Chọn ô C10 và nhập công thức cho Phút:

=MINUTE(NOW())+C15/60

• Nhấn Enter.
• Ta có giá trị cho kim Phút.

• Nhập Độ rộng kim Phút vào ô C11.
• Chọn ô C12 và nhập công thức khoảng trống cho kim Phút.
• Kết quả là khoảng trống cho kim Phút.

• Chọn ô C15 và nhập công thức cho Giây:

=SECOND(NOW())

• Nhấn Enter.

• Ta có giá trị điều khiển kim Giây.
• Đặt Độ rộng kim Giây vào ô C16.
• Chọn ô C17 và nhập công thức khoảng trống cho kim Giây.
• Kết quả là giá trị điều khiển kim Giây.

Đọc thêm: Cách tạo Đồng hồ số trong Excel

Bước 2: Tạo khung mặt đồng hồ (Clock Frame)

• Chuyển đến thẻ Insert (Chèn).
• Chọn Doughnut Chart (Biểu đồ Donut) từ tùy chọn Insert Pie or Doughnut Chart.
• Một hộp biểu đồ trắng xuất hiện.

• Nhấp chuột_right vào hộp và chọn Select Data (Chọn dữ liệu).
• Một hộp thoại hiện ra.

• Nhấp Add (Thêm) trong hộp thoại.

• Trong hộp thoại Edit Series, nhập giá trị sau làm Series values (Giá trị chuỗi) cho kim Giờ:

={1,1,1,1,1,1,1,1,1,1,1,1}

• Chọn OK.
• Một chuỗi dữ liệu được thêm vào, xác định vị trí 12 múi giờ.

• Nhấp Add lần nữa cho kim Phút.

• Nhập cùng giá trị {1,1,1,1,1,1,1,1,1,1,1,1} vào Series values.
• Nhấp OK.
• Chuỗi dữ liệu thứ hai được thêm vào.

• Nhấp Add lần thứ ba cho kim Giây.

• Nhập {1} làm Series value để định hình kim Giây.
• Chọn OK.

• Nhấp OK để thoát hộp thoại Select Data Source.

• Nhấp vào biểu đồ.
• Chuyển đến thẻ Format (Định dạng).
• Chọn No Outline (Không viền) từ Shape Outline (Viền hình dạng).

• Tắt Chart Title (Tiêu đề biểu đồ) và Legend (Chú thích) bằng cách nhấp vào dấu cộng (+) ở góc trên bên phải biểu đồ.

• Chọn một trong các chuỗi dữ liệu (Series) và nhấp chuột_right.
• Chọn Format Data Series (Định dạng chuỗi dữ liệu).

• Thay đổi Doughnut Hole Size (Kích thước lỗ donut) thành 60% trong ngăn Format Data Series bên phải.

• Nhấp chuột_right vào chuỗi dữ liệu 2 (Series 2 - dùng cho số giờ) trên biểu đồ.
• Chọn Format Data Series.

• Đặt Angle of first slice (Góc lát cắt đầu tiên) thành 15% (hoặc 90 độ tùy phiên bản, để số 12 ở đỉnh).

• Bật Data Labels (Nhãn dữ liệu) cho chuỗi dữ liệu 2.

• Nhập 12 vào nhãn dữ liệu ở vị trí giữa trên cùng.

• Nhập các số còn lại (1 đến 11) vào các nhãn dữ liệu theo trình tự của đồng hồ kim.

• Xóa màu nền của chuỗi dữ liệu 2: vào thẻ Format, chọn No Fill (Không nền) từ Shape Fill.

• Bật nhãn dữ liệu cho chuỗi dữ liệu 1 (dùng để tạo chấm tròn chỉ giờ).

• Chọn ô D16 (hoặc ô bất kỳ).
• Chuyển đến thẻ Insert > Symbol (Ký hiệu) từ nhóm Symbols.

• Trong hộp thoại Symbol, nhập 25CF làm Character code (mã ký tự - hình tròn đen ●).
• Nhấn Insert (Chèn).

• Ký tự được chèn vào ô. Sao chép nó bằng Ctrl + C.

• Dán ký tự vào nhãn dữ liệu của chuỗi dữ liệu 1 bằng Ctrl + V.

• Lặp lại cho các nhãn dữ liệu còn lại.

• Tắt màu nền của chuỗi dữ liệu 1.

• Ta có được khung Đồng hồ kim.

Đọc thêm: Cách tạo Biểu đồ đồng hồ trong Excel

Bước 3: Chèn kim Giờ, Phút, Giây (Time Hands)

• Chọn vùng ô C5:C7 (dữ liệu kim Giờ).
• Chuyển đến thẻ Insert.
• Chọn Pie Chart (Biểu đồ tròn) từ tùy chọn Insert Pie or Doughnut Chart.

• Một hộp Pie Chart xuất hiện.
• Tắt Chart Title và Legend cho biểu đồ này.

• Đặt viền của chuỗi dữ liệu 1 thành No Outline.

• Đặt màu nền thành No Fill.

• Làm tương tự cho chuỗi dữ liệu 2 (phần còn lại của kim Giờ).
• Ta được phần thể hiện Độ rộng kim Giờ.

Đọc thêm: Cách tạo Đồng hồ chạy trong Excel

Bước 4: Căn chỉnh các kim đồng hồ

• Đặt màu nền của toàn bộ Pie Chart (kim Giờ) thành No Fill.

• Vừa vặn Kim Giờ bên trong mặt đồng hồ bằng cách điều chỉnh kích thước Pie Chart.
• Tắt Chart Title và Legend của Doughnut Chart (mặt đồng hồ).

• Chèn thêm Pie Chart cho dữ liệu kim Phút và kim Giây (vùng C10:C12 và C15:C17).
• Đặt màu cho các kim khác nhau để dễ phân biệt.
• Đặt kích thước kim khác nhau (Kim Giờ ngắn nhất, Kim Phút dài hơn, Kim Giây dài nhất/mỏng nhất).
• Điều chỉnh chúng nằm gọn bên trong mặt đồng hồ.
• Nhấp vào một biểu đồ bất kỳ và nhấn Ctrl + A để chọn tất cả các đối tượng (biểu đồ, hình dạng).
• Chuyển đến thẻ Shape Format (Định dạng hình dạng).
• Chọn Align Center (Căn giữa ngang) từ tùy chọn Align (Căn chỉnh).

• Chuyển đến tùy chọn Shapes (Hình dạng) từ thẻ Insert.
• Chọn hình Oval (Hình elip/tròn).

• Đặt nó chính giữa tâm đồng hồ.

Đọc thêm: Cách dùng mã VBA tạo Đồng hồ số trong Excel

Bước 5: Áp dụng mã VBA để Bắt đầu và Dừng đồng hồ

• Chuyển đến thẻ Developer.
• Chọn Visual Basic.
• Cửa sổ mới mở ra.

• Trong cửa sổ Visual Basic, chọn ThisWorkbook dưới VBAProject.
• Một mô-đun mã xuất hiện.

• Nhập mã sau vào mô-đun và lưu lại:

Sub StartClock()
    Dim am_ws As Worksheet
    Set am_ws = ActiveSheet
    am_ws.Range("H5").Value = "Start"
    x:
    VBA.DoEvents
    If am_ws.Range("H5").Value = "Stop" Then Exit Sub
    Application.Calculate
    GoTo x
End Sub

Sub StopClock()
    Dim am_ws As Worksheet
    Set am_ws = ActiveSheet
    am_ws.Range("H5").Value = "Stop"
End Sub

• Chuyển đến thẻ Insert.
• Chọn hình Rectangle (Hình chữ nhật) từ Shapes.

• Vẽ hình chữ nhật dưới đồng hồ và đặt tên là Start.
• Lặp lại để chèn nút Stop.

• Nhấp chuột_right vào nút Start.
• Chọn Assign Macro (Gán Macro).

• Gán macro StartClock cho nút này.
• Nhấp OK.

• Nhấp chuột_right vào nút Stop.
• Chọn Assign Macro.

• Gán macro StopClock cho nút này.

• Nhấp nút Start để chạy đồng hồ và nút Stop để dừng mã.

Tải tệp thực hành

Bạn có thể tải tệp thực hành tại đây.

Bài viết liên quan

• Đồng hồ số VBA trên UserForm: Hướng dẫn toàn diện

Nhận miễn phí Bài tập Excel nâng cao có lời giải!