Chọn và copy dữ liệu từ Data sang form (1 người xem)

[khongaicanobody]

Xin chào các anh chị

Mình có một yêu cầu công việc hy vọng VBA giải quyết được và mong các anh chị chỉ giáo với.

Mình có 1 file gồm 2 sheets, Nhanhang va ChiTietMuaHang. Phần Data của NhanHang sẽ sử dụng dữ liệu của ChiTietMuaHang vì vậy yêu cầu của bài toán lập trình gồm 3 bước:

1. Ở tại sheet NhanHang, click ô số PO hoặc có thể tạo ra nút button thì sẽ xuất hiện cửa sổ phần chi tiết của ChiTietMuaHang (theo một giao diện nào đó).
2. Chọn (bằng các click các nut Yes / No là tốt nhất) các records của các chi tiết này.
3. Cửa sổ này đóng lại và các record được chọn được copy sang phần NhanHang.

Mọi người xem file attached

Các anh chị xem giúp với. hy vọng đây là một đề tài thú vị.

Cám ơn mọi người

 

[viehoai]

Xin chào các anh chị

Mình có một yêu cầu công việc hy vọng VBA giải quyết được và mong các anh chị chỉ giáo với.

Mình có 1 file gồm 2 sheets, Nhanhang va ChiTietMuaHang. Phần Data của NhanHang sẽ sử dụng dữ liệu của ChiTietMuaHang vì vậy yêu cầu của bài toán lập trình gồm 3 bước:

1. Ở tại sheet NhanHang, click ô số PO hoặc có thể tạo ra nút button thì sẽ xuất hiện cửa sổ phần chi tiết của ChiTietMuaHang (theo một giao diện nào đó).
2. Chọn (bằng các click các nut Yes / No là tốt nhất) các records của các chi tiết này.
3. Cửa sổ này đóng lại và các record được chọn được copy sang phần NhanHang.

Mọi người xem file attached

Các anh chị xem giúp với. hy vọng đây là một đề tài thú vị.

Cám ơn mọi người

Hy vọng đúng ý bạn. Không hiểu ý bạn lắm nhưng vẫn làm đại

 

[khongaicanobody]

Chào bạn VieHoai. Mấy hôm nay lay hoay mãi, mình mới phát hiện ra một vấn đề trong chương trình bạn xem lại giúp.
Mình thấy trong array của bạn chọn đủ 8 cột (vì j = 1 to 8) và phần resize bạn cũng chọn 8 cột (Resize(k, 8)) nhưng kết quả chỉ được có 7 hàng thôi (mặc dù vẫn đáp ứng đúng bài toán này). khi mình làm tương tự thì mình bao giờ cũng mất đi 1 hàng. Vì sao vậy và muốn làm đủ thì phải làm sao?
Ngoài ra, bạn dùng offset chỉ có 1 tham số, như vậy mình hiểu là tham số của cột = 0 có đúng không?
Cám ơn bạn

 

[khongaicanobody]

Sorry, mình tìm cách sửa bài viết nhưng không biết thao tác nên 1 thàng 3

 

[viehoai]

Chào bạn VieHoai. Mấy hôm nay lay hoay mãi, mình mới phát hiện ra một vấn đề trong chương trình bạn xem lại giúp.
Mình thấy trong array của bạn chọn đủ 8 cột (vì j = 1 to 8) và phần resize bạn cũng chọn 8 cột (Resize(k, 8)) nhưng kết quả chỉ được có 7 cột thôi (mặc dù vẫn đáp ứng đúng bài toán này). khi mình làm tương tự thì mình bao giờ cũng mất đi 1 cột đầu tiên (trong trường hợp này mất đi cột ngày tháng). Vì sao vậy và muốn làm đủ thì phải làm sao?
Ngoài ra, bạn dùng offset chỉ có 1 tham số, như vậy mình hiểu là tham số của cột = 0 có đúng không?
Cám ơn bạn

Đúng rồi, bạn sửa Arr(k, j) = Me.ListBox1.List(lItem, j)
Thành Arr(k, j) = Me.ListBox1.List(lItem, j-1) thử xem sao nhé

 

[khongaicanobody]

Như mơ bạn VieHoai ơi. nhưng tại sao vậy? tại sao -1 lại lấy cả cột 1 và không -1 thì lại bỏ cộ 1 đi?

 

[thuanviet]

Anh việt hoài ơi, còn nếu chọn cho nó hiện theo cột thì mình chỉnh chổ nào vậy, còn trong bảng đó nếu có hỗ trợ phần tìm kiếm tên cho nó nhanh. Có gì anh hoài giúp dum em nha!