Giúp sửa file theo dõi học viên nợ học phí! (1 người xem)

[hoabattuvn_tt]

1. File này được e độ lại từ một file công nợ của bác đã up lên trên này
2. File của e có 2 sheet, 1 sheet là ds học viên, sheet còn lại là ds đã nộp học phí
3. Cơ sở đào tạo bên e cho phép học viên nợ học phí 60 ngày.
3. Giờ e nhờ mọi người giúp giùm e, quản lý theo mã học viên nếu mã học viên đó ko có trong ds đóng học phí(sheet 2) và ngày_dk +60 < ngày hiện tại thì sẽ đưa vào quá hạn; nếu mã học viên ko có trong ds đóng học phí(sheet 2) và ngày_dk+60> ngày hiện tại thì đưa và gần đến hạn.
4. E có file đính kèm, e đã thử ngồi code lại nhưng thật tình ko phải vì dân trong ngành nên bó tay.com, lên đây nhờ a.e giúp đỡ. Thanks all.

 

[hoabattuvn_tt]

Xin phép up phát nha

 

[hoabattuvn_tt]

xin giúp e với mấy thầy ơi!!

 

[VetMini]

Vấn đè của bạn dài quá, có làm cũng phải từ từ mà tính. Bạn mới gởi lên mà đã giục người ta 2 lượt.
Có muốn làm cũng ngại làm việc với cái tánh nóng của bạn.

 

[doveandrose]

trong cái code bạn tìm đến chỗ

Dim MaxARRow, ListQuaHanRow, ListDenHanRow As Integer

sửa thành

Dim MaxARRow, ListQuaHanRow, ListDenHanRow As Integer, rngA As Range, lr As Long
lr = Worksheets("Da nop").Range("A60000").End(xlUp).Row
Set rngA = Worksheets("Da nop").Range("A1:A" & lr)

tìm đến chỗ

If Format(cells(i, 4) + 60, "dd/mm/yyyy") < Format(Now()) Then

sửa thành

If Format(cells(i, 4) + 60, "dd/mm/yyyy") < Format(Now()) And TypeName(Application.Match(cells(i, 1), rngA, 0)) = "Error" Then

tìm đến chỗ

If Format(cells(j, 4) + 60, "dd/mm/yyyy") > Format(Now()) Then

sửa thành

If Format(cells(j, 4) + 60, "dd/mm/yyyy") > Format(Now()) And TypeName(Application.Match(cells(j, 1), rngA, 0)) = "Error" Then

 

[hoabattuvn_tt]

Vấn đè của bạn dài quá, có làm cũng phải từ từ mà tính. Bạn mới gởi lên mà đã giục người ta 2 lượt.
Có muốn làm cũng ngại làm việc với cái tánh nóng của bạn.

mọi người thông cảm nha, do bên mình đã nhận học viên học hè lâu rồi nên h mình nôn làm để quản lý cho tiện với lại thầy quản lý giục quá nên nó mới ra rứa đó.

 

[hoabattuvn_tt]

thanks doveandrose, đã thử theo cách của bạn nhưng bị báo lỗi.

 

[doveandrose]

up cái file có lỗi lên đây ?

 

[hoabattuvn_tt]

up cái file có lỗi lên đây ?

Bạn coi lại giùm nha!

 

[doveandrose]

file này không lỗi trên máy tôi . máy bạn trời biết

 

[hoabattuvn_tt]

thanks bạn, nhưng mình thấy hiện tại code chỉ lọc được ds học viên đã đóng học phí, còn lại ds đã quá hạn và gần đến hạn ko đúng.

 

[doveandrose]

thanks bạn, nhưng mình thấy hiện tại code chỉ lọc được ds học viên đã đóng học phí, còn lại ds đã quá hạn và gần đến hạn ko đúng.

thế thì bạn phải nêu ra những dòng nào trong 2 tấm hình sau đây không đúng và nêu lý do tại sao không đúng

 

[hoabattuvn_tt]

Trong list quá hạn nha, mã hv số 12 ngày đk là ngày 12 tháng 05 năm 2015, thì ko thể đưa vào ds quá hạn được vì bên mình cho phép học viên nợ học phí qua 60 ngày mới gọi là quá hạn.
còn trong ds gần đến hạn thì mã hv 01 và 02 ngày đk lần lượt là 01 tháng 04 và 01 tháng 06 nên ko thể đưa vào ds gần đến hạn.!

 

[hoabattuvn_tt]

mình nhầm mã hv 02 là đúng rồi nha, chỉ còn mã hv 01 thôi!!

 

[doveandrose]

cái phần tính ngày không nằm trong phần code tôi sửa cho bạn . nếu tính ngày sai , bạn lấy file này từ ai thì đi hỏi người đó . hỏi tôi ????
lý do sao ngày 1/6/2015 không được phép đưa vào ngày gần hạn ???
đây là phần tính ngày theo code của tôi . nếu có sai từ đây trở xuống bạn mới hỏi tôi chứ

 

[hoabattuvn_tt]

ok thanks doveandrose nhiều. Có gì thắc mắc nhờ bạn giúp tiếp nha.

 

[hoabattuvn_tt]

Cho mình hỏi thêm xíu, giờ muốn chỉnh danh sách mã hv và tên hv,.. vào giữa chỉnh chỗ nào nhỉ!!

 

[hoabattuvn_tt]

Có vấn đề này nhờ mọi người giúp với nha, giờ mình muốn tránh mã học viên qúa lớn nên mình hàng năm sẽ reset lại mã học viên, giờ mình muốn quản lý theo mã học viên và lớp luôn, nếu mã học viên tương ứng với lớp đó không có trong ds đóng học phí và ngay_dk +60 < ngày hiện tại thì đưa vào quá hạn; nếu mã học viên tương ứng với lớp đó ko có trong ds đóng học phí và ngày_dk+60> ngày hiện tại thì đưa và gần đến hạn. nhờ mọi người giúp giùm nha. thanks