Lập thời khoá biểu của tháng 8 (1 người xem)

[glorious]

Đề bài là lập 1 cái thời khoá biểu cho tháng 8 này(bằng VBA) , em loay hoay mãi vẫn chưa chạy được cái auto_open
Mong các bác chỉ bảo thêm

 

[chibi]

    If Mid(Year(Date), 3) <> Mid(ƒuƒbƒN–¼, 3, 2) Then
        MsgBox "book khong phu hop voi nam"
        Exit Sub
    End If

Gặp ngay từ đầu nên oải chưa muốn xem tiếp

 

[glorious]

ƒuƒbƒN–¼ chính là book , em đã sửa lại và up file mới , mong mọi người giúp đỡ

 

[ndu96081631]

ƒuƒbƒN–¼ chính là book , em đã sửa lại và up file mới , mong mọi người giúp đỡ

Cụ thể bạn muốn mọi người giúp cái gì trong file này?
Code cả 1 "rừng", chẳng ai đủ kiên nhẫn để xem toàn bộ đâu

 

[glorious]

Trong phân module1 co 2 phan la Main và Autpen , phần main thì em chạy được rồi , còn phần Auto_open không hiểu nó có lỗi gì mà không chạy được , mong mọi người xem giúp.
Thanks

 

[tintam7251]

Bạn cho thêm một ít dữ liệu vào mới có thể kiểm tra được.