Khi làm việc với bảng tính trong Excel, đôi khi chúng ta cần tạo đồng hồ đếm ngược để ghi nhớ thời gian khi làm việc. Nếu bạn không muốn sử dụng phần mềm để tạo đồng hồ đếm ngược, hãy sử dụng chính Excel để tạo nó. Trong bài viết này, thủ thuật sẽ hướng dẫn bạn cách tạo đồng hồ đếm ngược trong Excel qua sử dụng mã VBA Nó là dễ dàng.
Cách tạo đồng hồ đếm ngược trong Excel chỉ với mã VBA
Chỉ cần chọn loại định dạng thời gian bạn muốn hiển thị trong ô, sau đó nhập mã VBA để thực hiện đếm ngược. Khi thực hiện mã, đồng hồ trong Excel sẽ tự động đếm ngược và chúng ta sẽ thấy thời gian thay đổi. Khi thời gian đếm ngược kết thúc, Excel sẽ gửi thông báo đến người dùng. Bài viết dưới đây sẽ hướng dẫn bạn đọc Cách chèn đồng hồ đếm ngược trong Excel 2019các phiên bản Excel khác cũng làm như vậy.
Bước 1: Đã mở tệp excel tôi muốn tạo bộ đếm lộn ngược. Tiến hành chọn ô trống để làm vị trí hiển thị thời gian đếm ngược. Nhấp vào hộp đó, sau đó nhấp chuột phải và chọn Định dạng ô….
Để hiển thị Định dạng giao diện di động để chọn định dạng cho ô. Ở đây bạn chọn tab Con số=> Thời tiết=> địa phương là việt nam. Nhấn ĐƯỢC CHỨ xuống để tiết kiệm.
Bước 2: Nhập thời gian bạn muốn đếm ngược theo định dạng: Giờ, phút, giây chẳng hạn ở đây bạn nhập 5 phút thì nhập 00:05:00.
Sau đó chúng ta có thể chỉnh sửa phông chữ, màu sắc, cỡ chữ, cách hiển thị nền, vị trí căn lề… để ô nổi bật hơn.
Trong đó Lượt xem => Panes đóng băng => đóng băng hàng trên cùng để sửa đồng hồ đếm ngược
Bước 3 – Khi bạn đã tạo hộp thời gian đếm ngược, hãy nhấp vào tab Nhà phát triển và sau đó nhấp vào Visual Basic để mở trình chỉnh sửa mã VBA.
Xem giao diện mới, nhấn nút. Chènchọn tiếp theo mô-đun để mở giao diện nhập mã VBA.
Bây giờ hiển thị giao diện để chúng ta nhập đoạn mã VBA sau vào giao diện. Lưu ý rằng B1 sẽ được thay thế bằng vị trí ô mà chúng ta chèn đồng hồ đếm ngược.
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 
Sau khi điền xong nhấn biểu tượng Run hoặc F5 để chạy mã code như hình.
Đóng giao diện lại và kết quả chúng ta sẽ thấy đồng hồ tự động đếm ngược. Chúng ta có thể thay đổi lại thời gian đếm ngược tùy thích, và đồng hồ sẽ không bị dừng lại vẫn tự đếm ngược đến khi hết giờ.
Cuối cùng khi thời gian đếm ngược kết thúc, giao diện Excel sẽ hiển thị thông báo hoàn thành như hình dưới đây.
Vậy là chỉ với vài bước tuy không đơn giản nhưng chúng ta đã tạo được đồng hồ đếm ngược trong Excel. Thời gian đếm ngược không bị cố định và bạn có thể thay đổi lại thời gian tùy thích, nhưng phải đúng định dạng thời gian đã thiết lập. Chúc các bạn thực hiện thành công!
