Cộng mảng trong VBA

[leba207]

Em có 12 mảng chứa dữ liệu của 12 tháng, ( mỗi mảng chứ dữ liệu của 1 tháng ).

Giờ em muốn tạo thêm một mảng chứa dữ liệu 12 mảng kia lại.

Xin anh chị gợi ý cách làm. Hoặc có phương án nào hay hơn không ạ. Em xin cám ơn!

 

[leonguyenz]

Em có 12 mảng chứa dữ liệu của 12 tháng, ( mỗi mảng chứ dữ liệu của 1 tháng ).

Giờ em muốn tạo thêm một mảng chứa dữ liệu 12 mảng kia lại.

Xin anh chị gợi ý cách làm. Hoặc có phương án nào hay hơn không ạ. Em xin cám ơn!

Nếu dùng công thức thì hơi mệt, file nặng và chậm.
Nếu dùng công cụ có sẵn thì tham khảo Power Pivot, có bài hướng dẫn của GPE ở trang chủ.
Nếu dùng VBA thì ADO/Dictionary/Collection ...
Nên đưa file giả lập lên (diễn giải ít dòng dữ liệu vừa đủ).

 

[thuyyeu99]

Em có 12 mảng chứa dữ liệu của 12 tháng, ( mỗi mảng chứ dữ liệu của 1 tháng ).

Giờ em muốn tạo thêm một mảng chứa dữ liệu 12 mảng kia lại.

Xin anh chị gợi ý cách làm. Hoặc có phương án nào hay hơn không ạ. Em xin cám ơn!

nếu như yêu cầu bạn nói thì:
TongAr = Split(Join(array1, ",") & "," & Join(array2, ","), ",")

 

[VetMini]

Em có 12 mảng chứa dữ liệu của 12 tháng, ( mỗi mảng chứ dữ liệu của 1 tháng ).

Giờ em muốn tạo thêm một mảng chứa dữ liệu 12 mảng kia lại.

Xin anh chị gợi ý cách làm. Hoặc có phương án nào hay hơn không ạ. Em xin cám ơn!

Có thấy phương án nào đâu mà hỏi tìm cái "hay hơn"?

Vả lại, ít ra phải biết bạn muốn "chứa 12 mảng kia" như thế nào, và để làm gì thì mới nói chuyện tiếp.

 

[HieuCD]

nếu như yêu cầu bạn nói thì:
TongAr = Split(Join(array1, ",") & "," & Join(array2, ","), ",")

Dữ liệu 1 tháng thường là mảng 2 chiều

 

[thuyyeu99]

Dữ liệu 1 tháng thường là mảng 2 chiều

Hihi chủ nhà đi vắng rồi

 

[leba207]

Em dùng vòng lặp FOR lặp qua 12 tháng. Đặt NAME cho vùng dữ liệu bảng tính lương của mỗi tháng (12 name).
rng = Range("Luong" & i) (i chạy từ 1 tới 12)

sau đó dùng dic để kiểm tra mã nhân viên đã tồn tại chưa để tổng hợp vào bảng két quả.

 

[leba207]

Em hỏi thêm có cách nào mở file excel lên là chạy dòng lệnh thông tin Application.StatusBar không ạ?

 

[giaiphap]

Em hỏi thêm có cách nào mở file excel lên là chạy dòng lệnh thông tin Application.StatusBar không ạ?

Tạo cái

sub Auto_Open

và cho code vào trong đó.

 

[HeSanbi]

Nếu cùng Worksheet thì:

If Rng Is Nothing Then
  Set Rng = Range("mảng")
Else
  Set Rng = Union(Rng, Range("mảng cùng sheet"))
End If

 

[leba207]

Tạo cái

sub Auto_Open

và cho code vào trong đó.

Em đã làm được thanks anh!

 

[VetMini]

Theo công việc thì nó là "consolidate". Mảng với miếc, rườm rà.