ACE giúp code tính tháng và quý

[tson1020]

Mong ACE chỉ giúp mình đoạn code về tính tháng, quý trong năm để vừa học hỏi vừa phục vụ công việc của mình. Cụ thể như sau:


Tháng:
T12: từ 16/11 đến 15/12
T01: từ 16/12 đến 15/01
T02: từ 16/01 đến 15/02
T03: từ 16/02 đến 15/03
T04: từ 16/03 đến 15/04
T05: từ 16/04 đến 15/05
T06: từ 16/05 đến 15/06
T07: từ 16/06 đến 15/07
T08: từ 16/07 đến 15/08
T09: từ 16/08 đến 15/09
T10: từ 16/09 đến 15/10
T11: từ 16/10 đến 15/11

Quý:
Quý I: từ 16/11 đến 15/02
Quý II: từ 16/02 đến 15/05
Quý III: từ 16/05 đến 15/08
Quý IV: từ 16/8 đến 15/11

Trước kia mình ghi công thức này tính riêng cho từng sheet (12 công thức tính cho 12 tháng của 14 sheet) sau đó link kết quả qua sheet Trộm, sheet PPHS tháng và PPHS quý:


=COUNTIFS(T8:T107;">=16/05/2016";T8:T57;"<=15/06/2016";U8:U107;1;I8:I107;"Trộm")


Nhưng mình muốn ghi theo kiểu công thức này để khi chuyển qua năm khác thì file không thay đổi:
=COUNTIFS(T8:T107;16;15;5;6;U8:U107;1;I8:I107;"Trộm")
Khi muốn đổi tháng để đếm thì mình đổi số 5 và 6


Còn công thức tính quý:
=COUNTIFS(T8:T107; ;"quý 1";U8:U107;1;I8:I107;"Trộm")

Mong các bạn giúp. Mình rất cám ơn.

 

[VetMini]

Bạn đem ngày trừ đi 15, lấy tháng của nó. Đem kết quả cộng 1, bạn sẽ được công thức tính tháng.
Có công thức tính tháng rồi, bạn chỉ việc dùng hàm Match để tính quý.

 

[doveandrose]

ở đây có bài giải nè

http://www.giaiphapexcel.com/forum/...úp-mình-đoạn-code-về-tính-tháng-quý-trong-năm

 

[tson1020]

Bạn đem ngày trừ đi 15, lấy tháng của nó. Đem kết quả cộng 1, bạn sẽ được công thức tính tháng.
Có công thức tính tháng rồi, bạn chỉ việc dùng hàm Match để tính quý.

bạn giúp mình công thức tính thử dùm đc ko vì bạn chỉ mình ko biết tính như thế nào

 

[VetMini]

Công thức tính tháng:
tháng = MOD(MONTH(ngày - 15), 12) + 1
quý = MATCH(MOD(tháng, 12), {-1, 2.5, 5.5, 8.5, 11.5}, 1)

Code thì tìm trong link của bài #3