Hôm nay tôi sẽ chỉ ra cách nhập ngày liên tiếp trên nhiều tờ trong Excel.
Cho đến bây giờ, chúng tôi đã học cách nhập ngày trong Excel. Chúng tôi cũng đã học cách nhập một loạt các ngày tuần tự trong một bảng tính duy nhất trong Excel.
Hôm nay tôi sẽ chỉ ra cách bạn có thể nhập ngày tuần tự trong nhiều tờ.
Tải xuống Sổ làm việc thực hành
1. Cách nhập ngày tuần tự trên nhiều tờ trong Excel
Ở đây chúng tôi đã có một sổ làm việc với năm bảng tính. Mỗi bảng tính chứa tổng doanh số của một ngày của một công ty tên là Marco Group.
Mục tiêu của chúng tôi ngày hôm nay là nhập ngày tuần tự trên các bảng tính.
Ví dụ: nếu ngày trong bảng tính ngày 1 tháng 5 năm 2021.Date in Worksheet “Day 1” May 02, 2021.
Ngày trong bảng tính Ngày 2 ngày sẽ là ngày 02 tháng 5 năm 2021.Date in Worksheet “Day 2” will be May 02, 2021.
Rằng trong bảng tính ngày 3 ngày 3 tháng 5 năm 2021.“Day 3” will be May 03, 2021.
Và như thế.
Chúng tôi sẽ thực hiện điều này trong hai bước.
Bước 1: Chúng tôi sẽ tạo một macro bằng mã VBA. We will generate a Macro using VBA Code.
Bước 2: Chúng tôi sẽ sử dụng macro được tạo để nhập ngày tuần tự trên tất cả các bảng tính. We will utilize the generated Macro to Enter sequential dates across all worksheets.
Bước 1: Tạo một macro để nhập ngày tuần tự
- Nhấn Alt + F11 trên bàn phím của bạn. Cửa sổ VBA sẽ mở.Alt + F11 on your keyboard. The VBA window will open.
- Chuyển đến công cụ Chèn ở góc trên bên trái. Chọn Chèn> Mô -đun. Một mô -đun mới sẽ được mở để viết mã VBA.Insert tool in the upper left corner. Select Insert>Module. A new module will be opened for writing VBA code.
- Sao chép mã VBA sau đây và dán nó ở đó.VBA code and paste it there.
Code:
Sub SEQUENTIAL_DATES[]
Dim mainworkBook As Workbook
Set mainworkBook = ActiveWorkbook
Dim out As Variant
Dim x As Variant
x = mainworkBook.Sheets.Count - 1
ReDim out[x]
Dim i As Variant
For i = 0 To x
out[i] = mainworkBook.Sheets[i + 1].Name
Next i
First_Date = InputBox["Enter the First Date: "]
Increment = CInt[InputBox["Enter the Increment: "]]
Dim Count As Integer
Count = 0
Sheets[out[0]].Range[Selection[1].Address].Formula = First_Date
Dim j As Integer
Dim k As Variant
For j = 0 To UBound[out]
For Each k In Selection
Sheets[out[j]].Range[k.Address] = Sheets[out[0]].Range[Selection[1].Address].Value + Increment * Count
Count = Count + 1
Next k
Next j
End Sub- Cuối cùng, lưu tệp dưới dạng sổ làm việc hỗ trợ macro Excel.Excel Macro-Enabled Workbook.
Bước 2: Nhập ngày tuần tự trong nhiều tờ bằng cách sử dụng macro đó
Sau khi tạo ra macro, hãy quay lại bất kỳ bảng tính excel nào của bạn.Macro, come back to any of your Excel Worksheets.
Sau đó chọn ô nơi bạn muốn nhập ngày tuần tự.
Trong ví dụ này, tôi đang chọn ô C4.C4.
Sau đó nhấn Alt + F8 trên bàn phím của bạn. Một hộp thoại chứa tất cả các macro sẽ được mở. Chọn tuần tự_dates.Alt + F8 on your keyboard. A dialogue box containing all the Macros will be opened. Select SEQUENTIAL_DATES.
Nhấp vào chạy. Bạn sẽ tìm thấy một hộp nhanh chóng yêu cầu bạn nhập ngày đầu tiên.Run. You will find a prompt box asking you to enter the first date.
Nhập ngày bạn muốn chèn vào bảng tính đầu tiên.
Nhập nó bằng hàm ngày của Excel.DATE function of Excel.
Vì lợi ích của ví dụ này, tôi đang bước vào ngày 01 tháng 1 năm 2021.January 01, 2021.
Bấm vào OK. Một hộp nhắc khác sẽ xuất hiện sẽ yêu cầu bạn nhập vào mức tăng.OK. Another prompt box will appear that will ask you to enter the increment.
Nhập gia tăng. Nếu bạn muốn cùng một ngày trong mỗi bảng tính, mức tăng là 0. 0.
Nếu bạn muốn nhập ngày 2 tháng 1 trong bảng tính thứ hai, ngày 3 tháng 1 trong bảng tính thứ ba, v.v., mức tăng là 1.January 2 in the second worksheet, January 3 in the third worksheet, and so on, the increment is 1.
Một lần nữa nếu bạn muốn nhập ngày 3 tháng 1 trong bảng tính thứ hai, ngày 5 tháng 1 trong bảng tính thứ ba, v.v., mức tăng là 2.January 3 in the second worksheet, January 5 in the third worksheet, and so on, the increment is 2.
Vì lợi ích của ví dụ này, tôi đang bước vào gia tăng 2.2.
Bấm vào OK. Bạn sẽ tìm thấy một ngày tuần tự được tạo trong cùng một ô của mỗi bảng tính, với mức tăng bước là 2 ngày.OK. You will find a sequential date generated in the same cell of each worksheet, with a step increment of 2 days.
Mã này cũng sẽ hữu ích nếu bạn muốn nhập nhiều ngày trong bảng tính. Nhìn vào bộ dữ liệu này.
Chúng tôi có một sổ làm việc bao gồm ba bảng tính.
Mỗi bảng tính chứa tên của một số ứng cử viên cho một cuộc phỏng vấn sắp tới trong Tập đoàn Marco.
Chúng tôi muốn nhập ngày tuần tự cho tất cả các ngày phỏng vấn của tất cả các bảng tính.
Để đạt được điều này, chọn tất cả các ô trong bất kỳ bảng tính nào và lặp lại quy trình trên.
Bạn sẽ tìm thấy tất cả các ô được chọn từ tất cả các bảng tính đã được lấp đầy với các ngày tuần tự, trong sự gia tăng của bạn.
Đọc thêm: Cách tự động điền vào excel How to Autofill Dates in Excel
2. Cách nhập ngày theo tên trang tính bằng công thức
Bây giờ tôi sẽ chỉ ra cách bạn có thể trích xuất tên trang tính trong bất kỳ ô nào trong bảng tính và nhập ngày theo tên.
Ở đây, chúng tôi đã có một cuốn sách bài tập với ba cuốn sách bài tập, với tên là 1 1, 2, 2, và 3 3, tương ứng.“1”, “2”, and “3” respectively.
Mục tiêu của chúng tôi là nhập tên trang tính là ngày của ngày, giữ cho tháng và năm được sửa chữa.
Ví dụ, tờ có tên là 1 1 sẽ có ngày 01 tháng 1 năm 2021.“1” will have January 01, 2021.
Tờ có tên là 2 2 sẽ có ngày 02 tháng 1 năm 2020.“2” will have January 02, 2020.
Và như thế.
Chúng tôi sẽ thực hiện điều này trong hai bước.DATE, REPLACE, CELL, and SEARCH functions of Excel.
Bước 1: Chúng tôi sẽ tạo một macro bằng mã VBA.
=DATE[2021,1,REPLACE[CELL["filename",A1],1,SEARCH["]",CELL["filename",A1],1],""]]
- Bước 2: Chúng tôi sẽ sử dụng macro được tạo để nhập ngày tuần tự trên tất cả các bảng tính.DATE function, 2021 and 1 are the years and months respectively [January 2021]. You use it according to your needs.
- Bước 1: Tạo một macro để nhập ngày tuần tựREPLACE function returns the sheet name and that is used as the day of the date.
Nhấn Alt + F11 trên bàn phím của bạn. Cửa sổ VBA sẽ mở.
Chuyển đến công cụ Chèn ở góc trên bên trái. Chọn Chèn> Mô -đun. Một mô -đun mới sẽ được mở để viết mã VBA.
Sao chép mã VBA sau đây và dán nó ở đó.
Cuối cùng, lưu tệp dưới dạng sổ làm việc hỗ trợ macro Excel.
Bước 2: Nhập ngày tuần tự trong nhiều tờ bằng cách sử dụng macro đó
Sau khi tạo ra macro, hãy quay lại bất kỳ bảng tính excel nào của bạn.
- Sau đó chọn ô nơi bạn muốn nhập ngày tuần tự.
- Trong ví dụ này, tôi đang chọn ô C4.
- Sau đó nhấn Alt + F8 trên bàn phím của bạn. Một hộp thoại chứa tất cả các macro sẽ được mở. Chọn tuần tự_dates.
- Số tự động điền theo Excel [12 cách]
- Cách sử dụng công thức tự động điền theo Excel [6 cách]