Cách chèn đồng hồ đếm ngược trong Excel

Trong Excel không có đồng hồ đếm ngược thời gian, nhưng bạn có thể sao chép đoạn mã VBA sau để đếm ngược thời gian.

# Cách thực hiện

Bước 1

Chọn một ô và định dạng nó là thời gian bằng cách nhấp phải chuột tại ô và chọn » "Format Cells", trong hộp thoại, chọn kiểu thời gian bạn muốn hiển thị trong "Type", sau cùng chọn » "OK" để đóng hộp thoại.

Bước 2

Nhập thời gian bạn muốn đếm ngược vào ô đó, như hình dưới:

Bước 3

Nhấn "ALT+F11" để mở cửa sổ "Microsoft Visual Basic for Applications"
Sau đó nhấn chọn Sheet hiện tại và chọn » "Insert" chọn tiếp » "Module" và sao chép đoạn mã VBA sau vào cửa sổ mới.

# Đoạn mã VBA

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("B1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Sau khi copy xong đoạn code trên và dán vào Module, bạn nhấn phím tắt "Alt + Q" để trở về Excel.