Trần Văn Bình
GTVT
- Tham gia
- 30/7/06
- Bài viết
- 435
- Được thích
- 392
- Nghề nghiệp
- GTVT
Hiện nay tôi có 01 file tổng hợp các shet chạy công thức rất nặng ( chạy chậm) do vậy nhờ các anh em trong diên đàn giúp cho chuyển từ Công thức Excel sang VBA.
Tại shets TH:
1. Tại cột A8 mình dùng công thức là: =IF(COUNTBLANK(E8:AB8)=24;"";SUBTOTAL(103;E$8:E8))
2. Tại cột E8 = IF(COUNTIF(INDIRECT("T"&TRIM(RIGHT(E$6;2))&"!B2:B60000");$B8);$B8;"");
3. Tại cật F8 =IFERROR(VLOOKUP(E8;T_1;2;0);""); ( T_1 = tương ưng với vùng dữ liệu từ B2:C...)
Tương tự như thế cột G, H I.... tương ững để lất cac shet dữ liệu.
Nay mình muốn nhờ các bạn chuyển đổi từ công thức sang VBA giúp (có file đính kèm).
Riêng cột B; C; D là dữ liệu cập nhật thường xuyên từ bên ngoài vào.
Các shet T1; T2; T3 ..... là các tháng mình thông kê từ dữ liệu bên ngoài vào .
Nay mình nhờ các bạn giúp minh Shets TH chuyển từ công thức sang VBA.
File khoảng 5000 dòng mình phải xoát dữ liệu để đưa tải lên
Chân thành cảm ơn các bạn!
Tại shets TH:
1. Tại cột A8 mình dùng công thức là: =IF(COUNTBLANK(E8:AB8)=24;"";SUBTOTAL(103;E$8:E8))
2. Tại cột E8 = IF(COUNTIF(INDIRECT("T"&TRIM(RIGHT(E$6;2))&"!B2:B60000");$B8);$B8;"");
3. Tại cật F8 =IFERROR(VLOOKUP(E8;T_1;2;0);""); ( T_1 = tương ưng với vùng dữ liệu từ B2:C...)
Tương tự như thế cột G, H I.... tương ững để lất cac shet dữ liệu.
Nay mình muốn nhờ các bạn chuyển đổi từ công thức sang VBA giúp (có file đính kèm).
Riêng cột B; C; D là dữ liệu cập nhật thường xuyên từ bên ngoài vào.
Các shet T1; T2; T3 ..... là các tháng mình thông kê từ dữ liệu bên ngoài vào .
Nay mình nhờ các bạn giúp minh Shets TH chuyển từ công thức sang VBA.
File khoảng 5000 dòng mình phải xoát dữ liệu để đưa tải lên
Chân thành cảm ơn các bạn!
Lần chỉnh sửa cuối:
