Trong bài viết này, bạn sẽ học cách nhập các ngày trong tuần, tức là từ thứ Hai đến thứ Sáu tự động bằng cách sử dụng mã VBA trong bất kỳ cột nào.

Nhấp vào tab Nhà phát triển Từ nhóm Mã chọn Visual Basic

img1

Nhấp vào Chèn, sau đó nhấp vào Mô-đun

img2

Điều này sẽ tạo mô-đun mới.

Nhập mã sau vào Mô-đun

Sub WeekendOut ()

Dim Start As Date, Off As Date

Dim y%, i #

Start = InputBox (“Ngày bắt đầu:”)

Tắt = InputBox (“Ngày kết thúc:”)

===

Đối với i = Bắt đầu tắt

y = y + 1

Nếu Ngày trong tuần (i, 2) <6 Thì

Cells (y, 2) = Format (i, “mm-dd-yy”)

Cells (y, 1) = Format (i, “dddd”)

ElseIf Weekday (i, 2) = 6 Thì

Khác

y = y – 1

Kết thúc Nếu

Tiếp theo tôi

End Sub

===

img3

Nhấn phím tắt ALT + F8 để mở cửa sổ Macro, sau đó chọn macro.

img4

Ngoài ra, bạn có thể nhấn F5 để chạy mã trong màn hình VBA.

Sau khi thực hiện macro, chúng ta sẽ nhận được hộp nhập sau Chúng ta yêu cầu nhập Ngày bắt đầu ở định dạng MM / DD / YYYY

img5

Sau đó, mã sẽ yêu cầu nhập Ngày kết thúc

img6

img7

Do đó, chúng ta sẽ lấy ngày trong tuần trong cột A và ô tiếp theo sẽ lưu ngày.

Bằng cách này, bạn có thể nhập các ngày trong tuần một cách dễ dàng mà không cần phải đau tay.