Nếu bạn muốn tự động cập nhật ngày hôm nay trong tuần thì bài viết này là dành cho bạn. Bài viết này tập trung vào việc cập nhật người dùng ngày hiện tại trong tuần qua msgbox trong vba.

Câu hỏi): Tôi muốn có một mã để xác định ngày trong tuần.

Chúng ta cần làm theo các bước dưới đây để khởi chạy trình soạn thảo VB Nhấp vào tab Nhà phát triển Từ nhóm Mã chọn Visual Basic

image 1

  • Nhấp vào Chèn rồi đến Mô-đun

image 2

Thao tác này sẽ tạo mô-đun mới Nhập mã sau vào Mô-đun

Sub TodaysDay ()

Chọn Case DatePart (“w”, Date, vbMonday)

Trường hợp 1

MsgBox “Mon”

Trường hợp 2

MsgBox “Tuệ”

Trường hợp 3

MsgBox “Thứ tư”

Trường hợp 4

MsgBox “Thur”

Trường hợp 5

MsgBox “Thứ sáu”

Trường hợp 6

MsgBox “Sat”

Trường hợp 7

MsgBox “Sun”

Lựa chọn kết thúc

End Sub

image 3

Lưu ý: Ngày hôm nay là ngày 5 tháng 6 năm 2015, tức là Thứ Sáu “vbMonday” được sử dụng để trả về Thứ Hai là ngày đầu tiên trong tuần; trong trường hợp Chủ nhật là ngày đầu tuần thì bạn cần sử dụng “vbSunday” Nhấn phím tắt ALT + F8 để mở cửa sổ Macro Chọn macro mà bạn vừa tạo

image 4

  • Nhấp vào Run & chúng ta sẽ nhận được tên của ngày hôm nay.