Trong bài viết hôm nay, chúng tôi sẽ giới thiệu cho bạn 2 cách nhanh chóng để chèn ngày hoặc thời gian còn lại trước thời hạn trong tài liệu Word của bạn.
Thỉnh thoảng, khi bạn đang thực hiện một dự án quan trọng, bạn sẽ thấy rằng bạn phải ghi nhớ chính xác ngày hoặc thời gian còn lại trước thời hạn để điều chỉnh tốc độ làm việc của mình. Sau đó, bạn nên chèn số ngày hoặc thời gian còn lại trước thời hạn vào tài liệu Word của mình để chúng có thể nhắc bạn về thời gian gần nhất còn lại.
Trong nội dung sau đây, chúng tôi xin giới thiệu với bạn 2 phương pháp sử dụng macro để tính toán và lấy giá trị.
Tính số ngày còn lại trước thời hạn
- Trước hết, hãy đặt con trỏ chuột vào vị trí bạn muốn chèn số.
- Sau đó, nhấp vào tab "Nhà phát triển".
- Tiếp theo bấm vào “Visual Basic” trong nhóm “Code” để mở trình soạn thảo VBA. Ngoài ra, bạn có thể nhấn “Alt + F11” để thay thế trong trường hợp tab “Nhà phát triển” không có sẵn trong Word của bạn.
- Bây giờ hãy nhấp vào “Bình thường” và sau đó “Chèn”.
- Tiếp theo, chọn “Mô-đun”.
- Nhấp đúp vào mô-đun mới để mở khu vực chỉnh sửa ở bên phải.
- Sau đó dán các mã sau vào đó:
Sub CountDownfromTodayToDeadlineDate()
Dim dtDeadlineDate As Date
Dim lDaysLeft As Long
' Input the deadline date to calculate the date difference.
dtDeadlineDate = InputBox("Enter the deadline date", "Deadline Date", "For example:2017/2/14")
lDaysLeft = DateDiff("d", Now, dtDeadlineDate)
' Output the date difference from today to the deadline date in word document.
Selection.Text = "There are " & lDaysLeft & " days left from today to " & dtDeadlineDate & vbCrLf
End Sub
- Tiếp theo, nhấp vào nút "Chạy".
- Bạn sẽ được chào đón bằng một hộp thoại, chẳng hạn như bên dưới:
Nhập ngày hết hạn vào hộp văn bản và nhấp vào “OK”.
Để dễ dàng sử dụng trong tương lai, bạn có thể nhấp vào “Macro” trong tab “Nhà phát triển” và chọn macro phù hợp, sau đó nhấp vào “Chạy”. Nó sẽ kích hoạt hộp thoại.
Tính thời gian còn lại trước thời hạn
Đôi khi, ngoài việc tính toán số ngày còn lại, bạn cũng có thể cần biết mình còn bao nhiêu thời gian trước một thời điểm cụ thể. Sau đó, macro gầm gừ là những gì bạn sẽ cần.
- Lặp lại 8 bước đầu tiên ở trên. Chỉ có bạn phải thay thế các mã bằng cách sau:
Sub CountDownfromNowToDeadlineTime()
Dim dtTimeNow As Date
Dim dtDeadlineTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the time now and the deadline time.
dtTimeNow = TimeValue(Now)
dtDeadlineTime = InputBox("Enter the deadline time","Deadline Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
Selection.Text = "There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from now to " & dtDeadlineTime & vbCrLf
End Sub
- Nhớ nhấn nút “Run”.
- Lần này, bạn sẽ có hộp thoại “Thời gian hết hạn”. Nhập thời hạn cuối cùng rồi nhấp vào “OK”.
Giữ tập tin không hề hấn gì
Để giữ tính toàn vẹn của tệp và lưu trữ chúng khỏi bị hỏng, cách tốt nhất và dễ dàng nhất là tạo bản sao lưu thường xuyên. Tuy nhiên, chúng tôi hiểu rằng rất khó để duy trì một thói quen, đó là lý do tại sao có rất nhiều tệp bị hỏng mỗi ngày. Để sửa chữa những tập tin có vấn đề này, bạn sẽ cần một công cụ sửa chữa Word bị hỏng.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm công cụ sửa lỗi xlsx và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm