Giúp nối 2 mảng trong VBA

[babyheomoi]

Hi mọi người, em có tạo 1 báo cáo nho nhỏ để tự quản lý.
Tuy nhiên, vấn đề em đang gặp phải là nối 2 mảng báo cáo theo form của sếp yêu cầu. Em đã tạo ra từng mảng nhưng chưa biết cách nối 2 mảng và xử lý vấn đề này.
Mong mọi người giúp đỡ.
Chi tiết em có để file đính kèm. mọi người có thể góp ý thêm để điều chỉnh sheet DATA cho dễ quản lý hơn nữa.
Em cám ơn!

 

[TongDe]

Hi mọi người, em có tạo 1 báo cáo nho nhỏ để tự quản lý.
Tuy nhiên, vấn đề em đang gặp phải là nối 2 mảng báo cáo theo form của sếp yêu cầu. Em đã tạo ra từng mảng nhưng chưa biết cách nối 2 mảng và xử lý vấn đề này.
Mong mọi người giúp đỡ.
Chi tiết em có để file đính kèm. mọi người có thể góp ý thêm để điều chỉnh sheet DATA cho dễ quản lý hơn nữa.
Em cám ơn!

Duyệt 1 lần, chép vào 2 mảng, gán xuống sheet bằng lệnh offset...

 

[Maika8008]

Hi mọi người, em có tạo 1 báo cáo nho nhỏ để tự quản lý.
Tuy nhiên, vấn đề em đang gặp phải là nối 2 mảng báo cáo theo form của sếp yêu cầu. Em đã tạo ra từng mảng nhưng chưa biết cách nối 2 mảng và xử lý vấn đề này.
Mong mọi người giúp đỡ.
Chi tiết em có để file đính kèm. mọi người có thể góp ý thêm để điều chỉnh sheet DATA cho dễ quản lý hơn nữa.
Em cám ơn!

Gán 2 mảng nối tiếp nhau trên trang tính rồi gán cái bảng nối dài đó cho 1 mảng mới

 

[Trần Tuấn Anh 3108]

Hi,
Mình đã xem file của bạn. Việc nối hai mảng không khó, bạn tìm dòng cuối của mảng 1 và bắt đầu gán giá trị của mảng 2 vào đó cho tới khi hết số dòng dữ liệu trong mảng 2 là được. Còn về worksheet DATA thì cách quản lý dữ liệu như vậy ko ổn. Theo kinh nghiệm của mình, các điểm cần sửa như sau:
1. Có tới 38 trường dữ liệu trong bảng nên nếu có thể hãy tìm cách chia nhỏ bảng ra để dễ nhìn. Nếu ko chia được thì tạo 1 nút ẩn hiện cột.
2. Việc nhập dữ liệu vào bảng này thì nếu nhập bằng typing trực tiếp vào cell là ko bao giờ nên làm. Có thể nhập qua userform hoặc import từ 1 CSDL. Như vậy sheet Data cần được protect.
3. Row heading nên dùng hàm subtotal để tính tự động khi filter và đặt số thứ tự từ lớn xuống bé (Giống cách đặt BOM list của Solidworks)
4. Dưới Column heading là 1 dòng dùng công thức column() để biết số thứ tự trường thông tin tự động (Nếu bạn ẩn cột)
5. Freeze Panes cần đặt dưới dòng dữ liệu đầu tiên (để nhìn thấy ngay bảng có bao nhiêu dòng dữ liệu theo row heading)
6. Chỉ nên có dưới 3 màu
7. Tô màu làm điểm neo cho mắt theo từng hàng
8. Từ dòng 1 tới dòng 7 cần bỏ đi. Nếu cần các phím chức năng hãy dùng công cụ CustomUIEditor tạo ra các Tab để gọi Macro
9. Bỏ Gridlines
10. Tất cả các cột không dùng đến trong sheet hãy tô màu tối

 

[befaint]

7. Tô màu làm điểm neo cho mắt theo từng hàng
9. Bỏ Gridlines
10. Tất cả các cột không dùng đến trong sheet hãy tô màu tối

Đi dạo chân tay không lại không thích mà thích ôm tảng đá, phải không ta?

 

[VetMini]

Đi dạo chân tay không lại không thích mà thích ôm tảng đá, phải không ta?

Rảnh quá cho nên muốn dụ thớt đặt thêm câu:
Hai, có bờ-rồ nào đang dư phơ-ri tam code heo mi vs.

 

[babyheomoi]

Duyệt 1 lần, chép vào 2 mảng, gán xuống sheet bằng lệnh offset...

Hi, cám ơn anh, đơn giản vậy mà em không nghĩ ra.

Hi,
Mình đã xem file của bạn. Việc nối hai mảng không khó, bạn tìm dòng cuối của mảng 1 và bắt đầu gán giá trị của mảng 2 vào đó cho tới khi hết số dòng dữ liệu trong mảng 2 là được. Còn về worksheet DATA thì cách quản lý dữ liệu như vậy ko ổn. Theo kinh nghiệm của mình, các điểm cần sửa như sau:
1. Có tới 38 trường dữ liệu trong bảng nên nếu có thể hãy tìm cách chia nhỏ bảng ra để dễ nhìn. Nếu ko chia được thì tạo 1 nút ẩn hiện cột.
2. Việc nhập dữ liệu vào bảng này thì nếu nhập bằng typing trực tiếp vào cell là ko bao giờ nên làm. Có thể nhập qua userform hoặc import từ 1 CSDL. Như vậy sheet Data cần được protect.
3. Row heading nên dùng hàm subtotal để tính tự động khi filter và đặt số thứ tự từ lớn xuống bé (Giống cách đặt BOM list của Solidworks)
4. Dưới Column heading là 1 dòng dùng công thức column() để biết số thứ tự trường thông tin tự động (Nếu bạn ẩn cột)
5. Freeze Panes cần đặt dưới dòng dữ liệu đầu tiên (để nhìn thấy ngay bảng có bao nhiêu dòng dữ liệu theo row heading)
6. Chỉ nên có dưới 3 màu
7. Tô màu làm điểm neo cho mắt theo từng hàng
8. Từ dòng 1 tới dòng 7 cần bỏ đi. Nếu cần các phím chức năng hãy dùng công cụ CustomUIEditor tạo ra các Tab để gọi Macro
9. Bỏ Gridlines
10. Tất cả các cột không dùng đến trong sheet hãy tô màu tối

Cám ơn anh đã góp ý.
Em sẽ hoàn thiện thêm lại rồi nhờ anh em góp ý thêm.
@All. Cám ơn mọi người đã hỗ trợ ạ!

 

[babyheomoi]

Hi mọi người, em còn vấn đề mà loay hoay mãi chưa được.
Đó là em muốn lọc ra danh sách kế hoạch thanh toán và chưa thanh toán như file đính kèm.
Tuy nhiên, trường hợp kế hoạch thanh toán chỉ 1 phần (không thanh toán hết) thì em muốn đưa phần còn lại chưa thanh toán xuống phần 2 luôn (e có line vàng). Nhưng loay hoay mãi chưa được. Mọi người giúp em với ạ!
Em cám ơn

 

[TongDe]

Trước endif thêm 1 elseif nữa và gán mảng thứ 3 vào...
offset số dòng = t+k+...

 

[babyheomoi]

Trước endif thêm 1 elseif nữa và gán mảng thứ 3 vào...
offset số dòng = t+k+...

dạ, vấn đề ở đây là 1 dòng data nếu theo báo cáo thì sẽ bị tách làm 2 dòng ạ, bao gồm 1 dòng lên kế hoạch thanh toán 1 phần, bao gồm 1 dòng cho dư nợ còn lại ạ! Nên em cũng thử mà chưa được.