Coppy và tính toán data trong files bằng VBA (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

phanquochuydotnet

Thành viên mới
Tham gia
20/10/15
Bài viết
12
Được thích
0
Xin chào anh chị GPE,

Mong anh chị giúp đở.

Em có một files như đính kèm.

Các bước thực hiện:
Bước 1: Nhập dữ liệu vào Sheet Config
Bước 2: Nhấn Coppy thì nó tự động tạo ra Sheet nới với tên: Wk_ và tuần trong files Config
Coppy dử liệu từ sheet Danhsach với điều kiện Team tại sheet Config.

Bước 3: Tính sản lượng Nhấn nút Tính sản lượng
Từ sheet Sanluong theo mã số E.Nó trong sheet Wk_51.
Bước 4: Tính Serial:
Từ sheet Wk_51 theo Mã số E.No và Serial trong files sản lượng
Tự động lưu khi hoàn thành.

Xin cảm ơn!
 

File đính kèm

Bạn tự hỏi rằng vì sao không ai giúp cho bạn:

1. Úp bài lên, ai xem qua. Ai rảnh, ai có hứng mới làm. Còn không làm giúp là việc của họ. Cho dù bạn cần cơ mấy đi nữa cũng là việc của bạn, sao phải hối thúc???
2. Úp bài lên cũng từ từ ...họ có hứng , họ rảnh họ mới giúp. Bạn không phải úp lên xong rồi....lên hối... Kiểu hối đó không ai giúp...
3. Ai giúp được thì giúp...đừng Inbox cho họ (bạn đã Inbox cho tôi...có lẻ tôi không thích điều này)

---------------------------
Quay trở lại với yêu cầu của bạn
1. Tôi đã làm cho bạn, bạn xem file.
2. Chỉ riêng 2 bước này chưa hiểu:


Tính toán như thế nào sao không cho kết quả mẫu vào. Chưa hiểu chỗ này nên trên file chưa có làm



Bạn làm xong bộ bạn không biết tự Save File hay sao mà đòi tự động... Làm biếng cũng vừa thôi chứ...!!!

Xin chân thành cảm ơn bạn đã hỗ trợ vấn đề đầu tiên.

Bước 2 mình xin nói rỏ thêm tí.
để tính được Serial : NA5803

Tại mục Serial trong ShEet Wk_51. Ta tÍNH như sau: Tính tổng sản lượng theo từng Serial , có nghĩa là:

Nếu Code nào Trong sheet Sanluong có E.No nào thuộc E.No trong bảng Danh sách trong Sheet Wk_51 vÀ Code nào có Left là NA5803

điều kiện: Tất cả E.No có trong danh sách Sheet Wk_51 và Left=NA5803
Tương tự các serial còn lại,

Xin cảm ơn!
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Xin chân thành cảm ơn bạn đã hỗ trợ vấn đề đầu tiên.

Bước 2 mình xin nói rỏ thêm tí.
để tính được Serial : NA5803

Tại mục Serial trong ShEet Wk_51. Ta tÍNH như sau: Tính tổng sản lượng theo từng Serial , có nghĩa là:

Nếu Code nào Trong sheet Sanluong có E.No nào thuộc E.No trong bảng Danh sách trong Sheet Wk_51 vÀ Code nào có Left là NA5803

điều kiện: Tất cả E.No có trong danh sách Sheet Wk_51 và Left=NA5803
Tương tự các serial còn lại,

Xin cảm ơn!

Tôi không theo dõi từ đầu, chỉ làm công việc cuối cùng trong sheet Wk_51 là tính Serial theo bảng có sẵn trong cột A:F thôi nhé.
 

File đính kèm

Upvote 0
Tôi không theo dõi từ đầu, chỉ làm công việc cuối cùng trong sheet Wk_51 là tính Serial theo bảng có sẵn trong cột A:F thôi nhé.

Tuyệt vời,
Xin cảm ơn bạn.

Bạn có thể cho mình biết cách nào coppy data với một số điều kiện bằng ADO được không ạ?
Hoặc có cách nào khác thì có thể share với,
Xin cảm ơn!
 
Upvote 0
Bạn tự hỏi rằng vì sao không ai giúp cho bạn:

1. Úp bài lên, ai xem qua. Ai rảnh, ai có hứng mới làm. Còn không làm giúp là việc của họ. Cho dù bạn cần cơ mấy đi nữa cũng là việc của bạn, sao phải hối thúc???
2. Úp bài lên cũng từ từ ...họ có hứng , họ rảnh họ mới giúp. Bạn không phải úp lên xong rồi....lên hối... Kiểu hối đó không ai giúp...
3. Ai giúp được thì giúp...đừng Inbox cho họ (bạn đã Inbox cho tôi...có lẻ tôi không thích điều này)

---------------------------
Quay trở lại với yêu cầu của bạn
1. Tôi đã làm cho bạn, bạn xem file.
2. Chỉ riêng 2 bước này chưa hiểu:


Tính toán như thế nào sao không cho kết quả mẫu vào. Chưa hiểu chỗ này nên trên file chưa có làm



Bạn làm xong bộ bạn không biết tự Save File hay sao mà đòi tự động... Làm biếng cũng vừa thôi chứ...!!!


Cảm ơn bạn rất nhiều.
Mong được học hỏi thêm.
Xin cảm ơn.
 
Upvote 0
Để tiết kiệm
Tôi đã đính kèm lại file tại #2. Bạn lấy lại file #2.

Xin cảm ơn bạn về vấn đề trên.

Nhưng có một vấn đề phát sinh.

Khi bấm coppy new sheet và điều kiện là A1 và Wk_51 thì bấm sản lượng và serial Ok.
Nhưng khi thay đổi điều kiện là A2 và Wk_51 thì bấm serial nó báo lỗi tại Dic.Add Tem, ""


Bạn xem lại giúp mình.
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
Hi anh em,
không biết lỗi do đâu nhưng khi áp dụng qua bên files mình càn thì bị lỗi.

Các bạn có thể giúp mình code và note giúp để mình học hỏi thêm với được không à.

Xin cảm ơn.
 

File đính kèm

Upvote 0
Hình như tôi dị ứng với cái kiểu post file 1 kiểu, sau đó giúp code...Và rồi dùng code vào file khác với 1 kiểu...Và la làng lên là code chạy không được....bị lỗi gì đó...

"Bức râu ông nọ mà cắm cằm bà kia thì thôi rồi". Tốt nhất không biết cái gì thì đem ngay cái file mình muốn áp dùng code vào đó lên đây...Giúp thì giúp nốt phát 1 xong, hết phim! Vậy thôi!
---------------------------------------------------------------
Mặc dù tôi có thể ngồi lần mò để sửa lại code cho file ở trên có
thể chạy được...Nhưng tôi sẽ không làm như vậy.... Và tại sao thì "người hỏi bài" tự trả lời luôn đi...:=\+:=\+:=\+

Oke Thanks Bạn,
Mình làm hai files.
Files đầu mình đã post nhờ bạn.

Mình post bài mong muốn được giúp đở và học hỏi thêm VBA.
Vậy nên mình mới áp dụng cái đó về Files khác. Nhưng nó lỗi..
Mình chưa sửa được vì lý do chưa hiểu được Code VBA trong files nó có nghĩa gì nên post lên lại nhờ bạn và anh em giúp đở.
Mong được học hỏi thêm cho bản thân.

Bạn đã hiểu ý của mình chứ.

Forum là để chia sẽ và học hỏi.

P/s: Tại sao các application hầu hết đều để version này version nọ.
Vì có những cái lúc đó tức thời họ chưa nghĩ ra hay là họ đã nghĩ ra nhưng chưa có cách để làm nên nó.

Đôi lúc lời nói không thể hiện được hết những gì minh nghĩ.

Cảm ơn bạn đã giúp đở nhiệt tình và chia sẽ những gì bạn nghĩ.
 
Upvote 0
Oke Thanks Bạn,
Mình làm hai files.
Files đầu mình đã post nhờ bạn.

Mình post bài mong muốn được giúp đở và học hỏi thêm VBA.
Vậy nên mình mới áp dụng cái đó về Files khác. Nhưng nó lỗi..
Mình chưa sửa được vì lý do chưa hiểu được Code VBA trong files nó có nghĩa gì nên post lên lại nhờ bạn và anh em giúp đở.
Mong được học hỏi thêm cho bản thân.

Bạn đã hiểu ý của mình chứ.

Forum là để chia sẽ và học hỏi.

P/s: Tại sao các application hầu hết đều để version này version nọ.
Vì có những cái lúc đó tức thời họ chưa nghĩ ra hay là họ đã nghĩ ra nhưng chưa có cách để làm nên nó.

Đôi lúc lời nói không thể hiện được hết những gì minh nghĩ.

Cảm ơn bạn đã giúp đở nhiệt tình và chia sẽ những gì bạn nghĩ.

Mọi người sẽ không "sốc" khi bạn hỏi vấn đề 1, tiếp đến là vấn đề 2,3.... có tính liên tục và không phải phá bỏ cái cũ, không phải "ví dụ thêm" từ cái cũ.
Trường hợp bạn là hỏi cái này, xong bạn lại nói "
...
không biết lỗi do đâu nhưng khi áp dụng qua bên files mình càn thì bị lỗi.
Xin cảm ơn.
Có cái gì giống "y chang nhau" đâu mà áp dụng? Muốn áp dụng thì phải "vận dụng".
Bạn phán câu "không biết lỗi do đâu", người khác dễ hiểu nhầm là code của họ "không biết lỗi do đâu", trong khi "không biết lỗi do đâu" là do bạn áp dụng.
Forum là để chia sẽ và học hỏi.
Ai cũng biết điều này khi vào đây. Nhưng có người đọc câu hỏi, vì lý do nào đó lại không muốn "chia sẻ".
Túm lại: Mạnh ai nấy rút kinh nghiệm.
 
Lần chỉnh sửa cuối:
Upvote 0
...

P/s: Tại sao các application hầu hết đều để version này version nọ.
Vì có những cái lúc đó tức thời họ chưa nghĩ ra hay là họ đã nghĩ ra nhưng chưa có cách để làm nên nó.

...

Ví von sai bét.
Lúc người ta dọn thực đơn thì có thể chưa hoàn hảo, nhưng gà ra gà, vịt ra vịt.
Thực đơn của bạn, ghi là bò nhưng đến chừng dọn ra là cá.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom