Tổng hợp

Cách tạo đồng hồ đếm ngược trong Excel

Trước đây Quản trị mạng đã từng hướng dẫn bạn đọc cách tạo đồng hồ đếm ngược trong slide PowerPoint thông qua việc sử dụng các hiệu ứng chuyển động. Và với Excel, chúng ta hoàn toàn có thể tạo đồng hồ đếm ngược với cách thực hiện cũng đơn giản, thông qua việc sử dụng mã code VBA.

Theo đó người dùng lựa chọn kiểu định dạng thời gian muốn hiển thị rồi nhập mã code VBA để tiến hành đếm ngược thời gian. Khi chạy code, đồng hồ trong Excel tự động đếm ngược và bạn sẽ nhìn thấy thời gian thay đổi. Khi hết thời gian đếm ngược, Excel sẽ gửi thông báo tới 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 vào Excel.

    Hướng dẫn chèn đồng hồ đếm ngược trong Excel

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

    Bước 1:

    Bạn đang xem: Cách tạo đồng hồ đếm ngược trong Excel

    Trước hết chúng ta chọn 1 ô trống để nhập thời gian đếm ngược, rồi click chuột phải chọn Format Cells….

    Hiển thị giao diện bảng chọn định dạng cho ô. Tại đây click vào tab Number rồi chúng ta chọn lựa định dạng cho ô là Time, rồi nhìn sang bên phải lựa chọn kiểu hiển thị thời gian. Nếu muốn hiển thị theo kiểu đồng hồ Việt Nam thì chọn Local là Vietnamese. Nhấn OK ở bên dưới để lưu lại.

    Chọn kiểu thời gian

    Bước 2:

    Bây giờ chúng ta nhập khoảng thời gian muốn đếm ngược, theo từng giờ, từng phút hay từng giây tùy thích. Chỉnh định dạng lại cho ô thời gian, màu sắc, kiểu chữ, font chữ, kích cỡ chữ để làm nổi bật ô hơn.

    Chỉnh định dạng ô thời gian

    Bước 3:

    Khi đã tạo xong ô thời gian đếm ngược, nhấn vào tab Developer rồi nhấn vào Visual Basic để mở trình soạn code VBA.

    Mở giao diện nhận code

    Hiển thị giao diện mới, bạn nhấn vào nút Insert, chọn tiếp vào Module để mở giao diện nhập mã code VBA.

    Nhấn Module

    Lúc này hiển thị giao diện để chúng ta nhập mã code VBA dưới đây vào giao diện. Lưu ý D1 sẽ thay 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("D1")
    xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
    If xRng.Value 

    Nhập code

    Sau khi điền xong nhấn biểu tượng Run để chạy mã code như hình.

    Nhấn Run

    Đó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ờ.

    Đồng hồ đếm ngược

    Bước 4:

    Để cố định đồng hồ này trong giao diện làm việc trong Excel, bạn click vào ô phía dưới ô đồng hồ, rồi chọn tab View chọn tiếp vào Freeze Panes và nhấn Freeze Panes để cố định hàng.

    Cố định hàng

    Như vậy khi bạn kéo xuống nội dung bên dưới thì đồng hồ đếm ngược vẫn luôn hiển thị trên cùng.

    Cố định ô đếm ngược

    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.

    Thông báo đếm ngược

    Chỉ với mấy bước đơn giản mà 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!

    Đăng bởi: MyLop

    Chuyên mục: Tổng hợp

    Trả lời

    Email của bạn sẽ không được hiển thị công khai.

    Back to top button

    Bạn đang dùng trình chặn quảng cáo!

    Bạn đang dùng trình chặn quảng cáo!