Tạo đồng hồ kỹ thuật số trong Excel:Hai phương pháp công thức và VBA đơn giản

Phương pháp 1 – Xây dựng đồng hồ kỹ thuật số thông qua chức năng VBA và TEXT của Excel

Các bước:

• Đi tới Chèn> Hình minh họa> Hình dạng.

• Các Hình dạng hộp tùy chọn menu sẽ bật lên.
• Chọn Hình chữ nhật tròn tùy chọn.

• Một hình chữ nhật bo tròn sẽ được chèn vào sổ làm việc.

• Đi tới Nhà phát triển và nhấp vào Visual Basic .

• Trong Visual Basic cửa sổ, đi tới Chèn và nhấp vào Mô-đun tùy chọn để tạo hộp mô-đun.

• Trong hộp mô-đun, nhập VBA sau mã.

Sub Digi_Clock()
Range("B5") = Not Range("B5")
Do While Range("B5") = True
DoEvents
Range("B6") = Now()
Loop
End Sub

• Nhấn nút màu xanh lá cây Chạy nút.

• Trong ô B4 , nhập ĐÚNG và nhấn Enter hoặc Tab.

• Nhấp chuột phải vào hình chữ nhật bo tròn.
• Trong menu ngữ cảnh, chọn Gán macro tùy chọn để đưa mã vào hình chữ nhật.

• Chúng tôi đã chèn VBA thành hình chữ nhật.
• Điều này sau này sẽ hiển thị thời gian.

• Trong ô C6 , hãy nhập TEXT sau công thức,

=TEXT(B6,"hh:mm:ss AM/PM")

• Điều này chuyển đổi thời gian trong ô B6 và trả về định dạng thời gian bằng hh:mm:ss  định dạng.
• Nhấn Enter.
• Truy cập Trang chủ rồi đến tab Phông chữ nhóm.
• Tùy chỉnh màu sắc, kích thước và kiểu phông chữ.

• Thời gian sẽ được hiển thị ở định dạng kỹ thuật số.

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

Phương pháp 2 – Sử dụng Shapes Tool &Excel VBA để thiết kế đồng hồ kỹ thuật số

Bước 1 : Thiết kế đồng hồ

• Đi tới Chèn> Hình minh họa> Hình dạng tab.

• Trong Hình dạng hộp tùy chọn, tìm Mũi tên chặn nhóm và chọn Mũi tên ngũ giác
• Kết quả là một mũi tên ngũ giác sẽ được chèn vào sổ làm việc.

• Chèn một hình mũi tên khác bằng lệnh sao chép-dán.
• Chọn mũi tên mới được chèn và đi tới Định dạng hình dạng> Xoay  tab.
• Chọn Lật ngang tùy chọn.

• Sao chép từng mũi tên và ghép chúng lại với nhau để tạo thành hình tròn.
• Sử dụng Xoay các tùy chọn nếu cần thiết.

• Sắp xếp lại tất cả các mũi tên thành số tám (8 ) hình dạng.
• Tùy chỉnh chữ số đầu tiên, nhấp chuột phải vào từng nhóm mũi tên và đặt tên tuần tự từ 1 .

• Sao chép-dán cả nhóm để đưa cho họ hh:mm:ss các định dạng như hiển thị bên dưới.
• Đặt tên cho chúng từ 1 đến 42 .
• Thêm 4 Hình bầu dục hình dạng và đặt tên cho chúng là Điểm .
• Thêm 3 hình chữ nhật tròn để chèn 3 tùy chọn lệnh:Bắt đầu , Dừng và Đặt lại .

• Chúng tôi đã xây dựng định dạng hiển thị cho đồng hồ của mình.
• Bây giờ chúng tôi sẽ đưa mã VBA vào định dạng.

Bước 2 : Chèn mã VBA Excel

• Nhấn  ALT+ F11  để mở Hình ảnh cơ bản cửa sổ.
• Thêm mã VBA sau.

Sub Digital_Clock_Autoshapes(FS As Integer, Digi As Integer)
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
Spe.Visible = msoCTrue
Next i
If Digi = 0 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 2 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 1 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i <> FS + 1 And i <> FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 2 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 3 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 4 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 5 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 6 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 7 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 2 Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 9 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
End Sub

• Đóng cửa sổ và chuyển tới sổ làm việc đang hoạt động của bạn.

• Thêm 3 các mã VBA khác như sau.
• Để Bắt đầu lệnh, nhập:

Sub Start_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = ""
x:
If Shw.Range("B5").Value = "Stop" Then Exit Sub
VBA.DoEvents
Call Digital_Clock_Autoshapes(1, VBA.CInt(VBA.Left(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(8, VBA.CInt(VBA.Right(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(15, VBA.CInt(VBA.Mid(VBA.Format(Time, "HHMM"), 3, 1)))
Call Digital_Clock_Autoshapes(22, VBA.CInt(VBA.Right(VBA.Format(Time, "HHMM"), 1)))
Call Digital_Clock_Autoshapes(29, VBA.CInt(VBA.Left(VBA.Format(Time, "SS"), 1)))
Call Digital_Clock_Autoshapes(36, VBA.CInt(VBA.Right(VBA.Format(Time, "SS"), 1)))
Dim Spe As Shape
Set Spe = Shw.Shapes("Point")
If Application.WorksheetFunction.IsEven(VBA.Second(VBA.Now)) Then
Spe.Visible = msoCTrue
Else
Spe.Visible = msoFalse
End If
GoTo x
End Sub

• Thêm mã cho Dừng lệnh.

Sub Stop_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = "Stop"
End Sub

• Thêm mã VBA cho Đặt lại lệnh:

Sub Reset_Clock()
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = 1 To 42
 Set Spe = Shw.Shapes(VBA.Format(i, "0"))
 Spe.Visible = msoCTrue
Next i
Set Spe = Shw.Shapes("Point")
Spe.Visible = msoCTrue
End Sub

• Nhấp chuột phải vào Bắt đầu ra lệnh và nhấn vào Gán macro .

• Gán Đồng hồ bắt đầu macro cho Bắt đầu lệnh.
• Gán Đặt lại_Clock và Dừng_Clock để biết các tùy chọn lệnh Đặt lại và Dừng lại tương ứng.
• Nhấn OK .

• Đồng hồ kỹ thuật số với các tùy chọn lệnh sẽ xuất hiện.

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

Tải xuống sổ tay thực hành

Bài viết liên quan

• Cách tạo biểu đồ đồng hồ trong Excel
• Cách sử dụng mã VBA để tạo đồng hồ kỹ thuật số trong Excel