Nhờ Viết code tìm ngày bắt đầu và kết thúc trong mỗi đợt sự kiện (1 người xem)

[khitamdao]

- Cột sự kiện, có thì là số 1, không có là số 0,
- Viết code tìm ngày bắt đầu và kết thúc trong mỗi đợt sự kiện
VD: Như ngày 3 có sự kiện, ngày 2 và 4 thì không
kết quả trả về cột C và D là 3, và ghi cùng dòng với ngày bắt đầu
Ngày 9 và 10 có sự kiện, ghi vào cột C và D là 9 và 10 (cùng dòng với ngày bắt đầu, ngày 09)
+ file đính kèm

Ngày	Sự kiện	Bắt đầu	Kết thúc
01	0
02	0
03	1	03	03
04	0
05	0
06	0
07	0
08	0
09	1	09	10
10	1
11	0
12	0
13	0
14	0
15	0
16	0
17	0
18	0
19	0
20	0
21	0
22	1	22	24
23	1
24	1
25	0
26	0
27	1	27	30
28	1
29	1
30	1
31	0

 

[befaint]

sự kiện

 

[khitamdao]

Cảm ơn bạn giúp đỡ

 

[anhduong9x9]

Mình mạo phạm không dùng VBA viết nhá. Bạn cứ nhập bình thường nó sẽ tự nhảy ngày tương ứng như cho bạn. Công thức đơn giản lắm. Đừng tránh tôi là luôn cố gắng không dùng VBA cho đến khi không tìm ra giải pháp thì mới lôi ra viết nó thôi:
Công thức sẽ như sau:
Ô C2: =IF(AND(B2<>0,B1=0),A2,""). Kéo công thức xuống
Ô E2: =IF(B2<>0,IF(AND(IF(B2=0,"",A2)<>"",IF(B1=0,"",A1)=""),IF(B2=0,"",A2),E1),0). Kéo công thức xuống
Ô D2: =IF(C2<>"",MAX(IF($E$2:$E$32=E2,$A$2:$A$32)),"") (Ô này cần nhấn tổ hợp phím Ctrl+Shift+Enter). Kéo công thức xuống

Bạn ẩn cột E đi. Good luck!

 

[khitamdao]

Mình mạo phạm không dùng VBA viết nhá. Bạn cứ nhập bình thường nó sẽ tự nhảy ngày tương ứng như cho bạn. Công thức đơn giản lắm. Đừng tránh tôi là luôn cố gắng không dùng VBA cho đến khi không tìm ra giải pháp thì mới lôi ra viết nó thôi:
Công thức sẽ như sau:
Ô C2: =IF(AND(B2<>0,B1=0),A2,""). Kéo công thức xuống
Ô E2: =IF(B2<>0,IF(AND(IF(B2=0,"",A2)<>"",IF(B1=0,"",A1)=""),IF(B2=0,"",A2),E1),0). Kéo công thức xuống
Ô D2: =IF(C2<>"",MAX(IF($E$2:$E$32=E2,$A$2:$A$32)),"") (Ô này cần nhấn tổ hợp phím Ctrl+Shift+Enter). Kéo công thức xuống

Bạn ẩn cột E đi. Good luck!


View attachment 244579

- cách này hay đó, nhưng mình cần dùng để viết chương trình nên mới cần vba
- Mình lưu file này của ban để nghiên cưu dần dần
thanks