Lấy dữ liệu từ sheet khác và tổng hợp (1 người xem)

[matran25251325]

Em có 2 vấn đề cần các anh giúp:
- Tại cột O sheet TLuongDT em dùng hàm VLookup để lấy giá trị từ sheet Gia VLieu, nhưng có lẽ do dữ liệu nhiều và dùng nhiều hàm quá nên mỗi lần mở file lên chậm.
- Tại sheet PhanTichVatTu trước giờ em tổng hợp từ tên vật liệu, nay em mún dựa vào mã hiệu cột Q sheet TLuongDT để tổng hợp.
Hóng chờ các anh viết giùm em code để xử lý 2 vấn đề trên ạ.

 

[chuot0106]

Em có 2 vấn đề cần các anh giúp:
- Tại cột O sheet TLuongDT em dùng hàm VLookup để lấy giá trị từ sheet Gia VLieu, nhưng có lẽ do dữ liệu nhiều và dùng nhiều hàm quá nên mỗi lần mở file lên chậm.
- Tại sheet PhanTichVatTu trước giờ em tổng hợp từ tên vật liệu, nay em mún dựa vào mã hiệu cột Q sheet TLuongDT để tổng hợp.
Hóng chờ các anh viết giùm em code để xử lý 2 vấn đề trên ạ.

Mình thấy File của bạn khá nhanh đó chứ. Nói chung ta không lên lạm dụng code quá. Các nhà lập trình không phải viết các hàm có sẵn ra để chơi. Chúng ta chỉ không dùng đến các hàm có sẵn khi gặp một công việc nào đó mà nó không thể giải quyết được hoặc giải quyết được nhưng rất phức tạp. Còn công việc của bạn thì bạn đã giải quyết được bằng hàm một cách rất dễ dàng rồi còn gì? Làm gì phải viết code. Vài lời chia sẻ cùng bạn mong bạn đừng giận.

 

[matran25251325]

Cảm ơn bác chuột đã có ý kiến đóng góp. Thứ nhất là đây chỉ là file mẫu nên dữ liệu chỉ vài hàng, thứ 2 là trước giờ mình lấy dữ liệu và lọc từ tên vật tư, nhưng như thế thì rất khó để lọc thay vì gán cho nó 1 mã hiệu nào đó và lọc thì chính xác hơn.

 

[matran25251325]

Vấn đề này ko ai giúp em tí với nhỉ, hic hic

 

[Ba Tê]

Cảm ơn bác chuột đã có ý kiến đóng góp. Thứ nhất là đây chỉ là file mẫu nên dữ liệu chỉ vài hàng, thứ 2 là trước giờ mình lấy dữ liệu và lọc từ tên vật tư, nhưng như thế thì rất khó để lọc thay vì gán cho nó 1 mã hiệu nào đó và lọc thì chính xác hơn.

Chỉ tính đơn giá và thành tiên, Nhập cột Q sẽ lấy dữ liệu cho cột K và L.
Hình như vẫn còn cái gì đó với "Vật liệu khác", Đơn giá không có, Thành tiền không biết tính sao.
Sheet PhanTichVatTu tự động tổng hợp khi chọn sheet.

Thất nghiệp nên chỉ làm được bấy nhiêu thôi.

 

[matran25251325]

chỉ có bác BaTe là hiểu em, bác cho em hỏi cột thành tiền để hiện công thức thì bỏ phần nào trong code. Và Vật liệu khác = tổng giá trị các vật liệu của công việc đó (sum cột P của công việc đó) x % [ví dụ P25=sum(P1924)*M25].Mong bác chỉnh giùm em khúc đó

 

[matran25251325]

Code bài 5 của bác em đã chỉnh sửa phù hợp với yêu cầu của em rồi. Em mạo mụi hỏi thêm 1 vấn đề mong bác giúp:
- Từ sheet PhanTichVatTu có thể dựa vào mã hiệu vật tư viết code chọn những vật tư cần để tính qua bảng CUOC2006 được không? nếu được mong bác viết giúp. Những vật tư có đánh dấu x ở cột F thì sau khi chạy code sẽ lọc qua sheet CUOC2006 (những ô màu xanh bên sheet CUOC2006 là để trống tự điền vào). Hóng chờ tin bác vậy (hêh em quên up file)

 

[matran25251325]

Hóng bác BaTe vào giúp em vấn đề bài 7

 

[Ba Tê]

Code bài 5 của bác em đã chỉnh sửa phù hợp với yêu cầu của em rồi. Em mạo mụi hỏi thêm 1 vấn đề mong bác giúp:
- Từ sheet PhanTichVatTu có thể dựa vào mã hiệu vật tư viết code chọn những vật tư cần để tính qua bảng CUOC2006 được không? nếu được mong bác viết giúp. Những vật tư có đánh dấu x ở cột F thì sau khi chạy code sẽ lọc qua sheet CUOC2006 (những ô màu xanh bên sheet CUOC2006 là để trống tự điền vào). Hóng chờ tin bác vậy (hêh em quên up file)

Đã tự làm bằng công thức được, bạn nói file chạy chậm muốn dùng code cho nhanh.
Viết code thì bạn lại xài cột code cột công thức như sheet Tluong DT???
------------------
Bài #8 là bài "spam", không phải viết bài như vậy là người khác sẽ trả lời bài của bạn đâu, có khi người ta đã đọc bài trên rồi nhưng "không khoái" cái gì đó nên không trả lời, ví dụ câu hỏi chưa rõ rảng hay gì gì đó...
Đọc thêm bài #8 càng "không khoái".

 

[matran25251325]

Đã tự làm bằng công thức được, bạn nói file chạy chậm muốn dùng code cho nhanh.
Viết code thì bạn lại xài cột code cột công thức như sheet Tluong DT???
------------------
Bài #8 là bài "spam", không phải viết bài như vậy là người khác sẽ trả lời bài của bạn đâu, có khi người ta đã đọc bài trên rồi nhưng "không khoái" cái gì đó nên không trả lời, ví dụ câu hỏi chưa rõ rảng hay gì gì đó...
Đọc thêm bài #8 càng "không khoái".

Dạ em sẽ rút kinh nghiệm. Vì có vướng mắc ở công thức của vật liệu khác (sheet Tluong DT) mà em thêm vào ko được nên đoạn đó đành xài thủ công. Bác bổ sung em chổ đó thì tốt quá, công thức VLK = tổng thành tiền các vật liệu của công việc đó x tỉ lệ % (Bác đê hiện công thức giùm em nha vì đôi lúc cũng mún kiểm tra lại công thức). Cảm ơn bác vì đã giúp và nhắc nhở em.

 

[Ba Tê]

Dạ em sẽ rút kinh nghiệm. Vì có vướng mắc ở công thức của vật liệu khác (sheet Tluong DT) mà em thêm vào ko được nên đoạn đó đành xài thủ công. Bác bổ sung em chổ đó thì tốt quá, công thức VLK = tổng thành tiền các vật liệu của công việc đó x tỉ lệ % (Bác đê hiện công thức giùm em nha vì đôi lúc cũng mún kiểm tra lại công thức). Cảm ơn bác vì đã giúp và nhắc nhở em.

Vậy thì bạn xem lại file đính kèm ở bài #9 đi, tôi gỡ file cũ xuống cho đỡ tốn chỗ.

 

[matran25251325]

Hic em quên còn có loại Máy thi công khác nữa, công thức cũng tính như VLkhac vậy. Làm phiền bác BaTe bổ sung giùm em tí.

 

[Ba Tê]

Hổng dám đâu! Cái gì cũng thấy mặt mũi mới nói chuyện được, nói suông sao được.
Và chuẩn bị hết tất cả các trường hợp đi, "Híc! ý quên" ......... oải lắm.

 

[matran25251325]

Dạ bác xem thêm giùm em trường hợp Máy khác. Và em hỏi tí là ở sheet CUOC2006 bác có thể bổ sung em phần công thức tính ở các cột không tô màu không ạ (cột tô màu để trống cho người dùng tự nhập).

 

[Ba Tê]

Dạ bác xem thêm giùm em trường hợp Máy khác. Và em hỏi tí là ở sheet CUOC2006 bác có thể bổ sung em phần công thức tính ở các cột không tô màu không ạ (cột tô màu để trống cho người dùng tự nhập).

Công thức mẫu là của bạn, tôi để trên dòng 9 sheet CUOC2006, muốn sửa gì đó thì sửa trên dòng 9. Đúng sai tôi không biết à nghe.

 

[matran25251325]

cái ký hiệu VLK và MK nếu em muốn thay đổi ký hiệu khác thì em sửa ở đâu vậy anh?

 

[Ba Tê]

cái ký hiệu VLK và MK nếu em muốn thay đổi ký hiệu khác thì em sửa ở đâu vậy anh?

Tìm trong sheet Gia VLieu, nhưng thay bằng mã khác thì code "tèo".
--------------
Xem lại thì sheet CUOC2006 không thể để code trong sự kiện Activate được, mỗi lần chuyển sheet khác rồi trở lại thì các số liệu nhập thủ công mất hết.
Tôi tạo lại 1 nút LẤY DỮ LIỆU MỚI, chỉ khi nào muốn lấy lại dữ liệu mới mới bấm nút, nhập thủ công lại các số liệu cần thiết.
Bạn tải lại file trên bài #15 nhé.

 

[matran25251325]

Dạ nếu sửa ký hiệu sheet GiaVL thì em chỉ cần sửa lại ký hiệu trong code là được thôi mà anh, tại em hỏi để bít nó nằm ở đâu cho dễ sửa thui (hic ko để ý là nó nằm ở sheet GiaVL). Còn code thì em ít khi để sự kiện là active, nên thường em sửa lại tí để khi nào cần up dữ liệu em mới chạy code như cách anh up ở bài 15 vậy. TK anh nhiều.

 

[matran25251325]

Thầy BaTe có thể giúp em bổ sung giùm đoạn code ở cột N (tính số lượng). Ở cột này phần Vật liệu khác và Máy khác sẽ không tính toán (thầy để thể hiện công thức tính giúp em với nha vì để dễ kiểm tra).

 

[matran25251325]

Thầy BaTe ơi ở mục này em còn 1 vấn đề mún hỏi thầy, như file bài 8 thì tại sheet PhanTichVatTu những vật tư nào được đánh dấu x sẽ tính cước ở sheet CUOC2006, Nhưng em muốn bổ sung 1 vấn đề là tại sheet GiaVLieu (cột F) em check dấu x trước những vật tư có tính cước vận chuyển sẵn để khi chạy Code ở sheet PhanTichVatTu thì những vật tư đó sẽ tự đánh dấu x (vì số lượng vật tư nhiều khi phân tích nên nếu làm nhiều file thì cũng hơi đuối và dễ sót, nên thà khi làm dữ liệu ở sheet GiaVLieu thì em sẽ check sẵn để rồi khi chạy code ở sheet Phantichvattu thì nếu cần tính cước thêm cho vật tư nào thì em check ở vật tư ấy tiếp thôi). Hi mong thầy giúp khi online.

 

[Ba Tê]

Thầy BaTe có thể giúp em bổ sung giùm đoạn code ở cột N (tính số lượng). Ở cột này phần Vật liệu khác và Máy khác sẽ không tính toán (thầy để thể hiện công thức tính giúp em với nha vì để dễ kiểm tra).

Thêm công thức cho cột N là làm muốn hết rồi, sao từ đầu bạn không nói trước, mỗi lần 1 cột, Đơn giá, rồi Thành tiền, rồi số lượng, không biết làm sao mà gom mấy Sub lại cho gọn đây. Híc!
Còn bài #20 thì không hiểu bạn nói gì, trong file nào? bài 8 có file nào đâu mà chỉ lên bài 8?

 

[matran25251325]

Dạ thầy thông cảm, em nhờ từng bước từng bước chứ em mà làm 1 lần thì thầy thấy sẽ nãn vì chẳng mún giúp liền, nên thà xong 1 việc rồi tính tiếp cho thầy đỡ ngán. Còn bài 20 ý em là dùng hàm vlookup tại cột F sheet PhanTichVatTu để em đánh sẵn các dấu "x" ở sheet GiaVatlieu và khi chạy code ở sheet PhanTichVatTu thì dấu "x" tự chạy chứ ko cần phải check (vì em thấy nếu làm nhiều công việc mà việc nào cũng làm phải check kiểu đó thì hơi mất công 1 tí), vấn đề này thì em đã xử lý được trong code của anh rồi. Em còn 1 vấn đề này nữa ở topic này cũng mong thầy giúp vì trước giờ em cũng làm thủ công để làm dữ liệu đầu vào như cột N, O, P vậy và dữ liệu cũng phải vài chục K dòng, đó là các công thức tính toán từ cột E đến cột J. Nếu thầy ko ghép được vào code TTien thì thầy có thể để code riêng cũng được. Cảm ơn thầy nhiều.

 

[Ba Tê]

Còn bài #20 thì không hiểu bạn nói gì, trong file nào? bài 8 có file nào đâu mà chỉ lên bài 8?

Tôi nói là file của bài #8 là file nào? Từ bài #8 chỉ lên "hóng bài #7" ư?
Ít nhất cũng có file kèm với đánh dấu x mặt mũi nó ra sao, chỗ nào chứ.

 

[matran25251325]

Dạ phần đó em xử lý được rồi thầy. Em còn 1 vấn đề này nữa ở topic này cũng mong thầy giúp vì trước giờ em cũng làm thủ công để làm dữ liệu đầu vào như cột N, O, P vậy và dữ liệu cũng phải vài chục K dòng, đó là các công thức tính toán từ cột E đến cột J. Nếu thầy ko ghép được vào code TTien thì thầy có thể để code riêng cũng được (file bài 22).

 

[Ba Tê]

Dạ phần đó em xử lý được rồi thầy. Em còn 1 vấn đề này nữa ở topic này cũng mong thầy giúp vì trước giờ em cũng làm thủ công để làm dữ liệu đầu vào như cột N, O, P vậy và dữ liệu cũng phải vài chục K dòng, đó là các công thức tính toán từ cột E đến cột J. Nếu thầy ko ghép được vào code TTien thì thầy có thể để code riêng cũng được (file bài 22).

Bạn xác nhận công thức đúng chưa?
Sao E lại = P10?
Trong khi số luợng trong cột N đã lấy cột M nhân cho Khối lường của cột D rồi?
P10 là thành tiền của Vật liệu gồm định mức x Khối luọng x đơn giá rồi mà.
Nếu bạn xác nhận đúng thì tôi làm.

 

[matran25251325]

Dạ đúng thầy. Cột N = DxM (cột này tính là để dùng sumif tính tổng vật tư cho sheet PTVT thôi thầy). Còn cột E, F, G là = tổng của VLieu, máy, nhân công ở cột P (cột này = Định mức x giá vật tư chứ chưa nhân cho khối lượng), Thầy xem giùm em cột H, I, J nữa nha (phần tính toán như trong diễn giải file bài 22 ah)

 

[Ba Tê]

Dạ đúng thầy. Cột N = DxM (cột này tính là để dùng sumif tính tổng vật tư cho sheet PTVT thôi thầy). Còn cột E, F, G là = tổng của VLieu, máy, nhân công ở cột P (cột này = Định mức x giá vật tư chứ chưa nhân cho khối lượng), Thầy xem giùm em cột H, I, J nữa nha (phần tính toán như trong diễn giải file bài 22 ah)

Tôi nói là cột N đã = cột M nhân với cột D rồi.
Bạn xác nhận đúng thì tôi làm theo công thức của bạn, sai bạn tự chỉnh.

 

[matran25251325]

Dạ chính xác rồi thầy ơi, em mới test code thì có 1 vấn đề này: Khi số liệu cột D (ví dụ em chỉ nhập số liệu D10, còn D18, 28, 30, 36 em chưa nhập và chạy GPE thì ở cột N phát sinh vấn đề là tại vị trí N19 = M19*D18, nhưng đàng này dữ liệu cột D trống thì nó sẽ nhân với giá trị cột D trên lại). Đêm khuya làm phiền thầy ghê.

 

[Ba Tê]

Dạ chính xác rồi thầy ơi, em mới test code thì có 1 vấn đề này: Khi số liệu cột D (ví dụ em chỉ nhập số liệu D10, còn D18, 28, 30, 36 em chưa nhập và chạy GPE thì ở cột N phát sinh vấn đề là tại vị trí N19 = M19*D18, nhưng đàng này dữ liệu cột D trống thì nó sẽ nhân với giá trị cột D trên lại). Đêm khuya làm phiền thầy ghê.

Chuyện đó thì bạn phải nhập đầy đủ thôi, không nhập biết lấy cái gì mà nhân.
Nhưng nếu bạn cứ muốn nó nhân cho ô trống thì xem lại file này.

 

[matran25251325]

Dạ vấn đề đó chắc ghi chú để nhớ. Hic kỳ lạ ghê chạy code luxubu trên file nháp thì ko sao, chạy file chính thì lỗi dòng này Dic.Add tArr(1, J), J

 

[Ba Tê]

Dạ vấn đề đó chắc ghi chú để nhớ. Hic kỳ lạ ghê chạy code luxubu trên file nháp thì ko sao, chạy file chính thì lỗi dòng này Dic.Add tArr(1, J), J

Bạn xem lại mấy dòng tiêu đề của bạn và của file tôi gởi xem.
Dòng 8 của tôi là không có Merge à.
G8, J8 là Máy thi công phải giống hệt bên cột K (Copy qua) chứ không chỉ có chữ Máy như file của bạn ban đầu.

 

[matran25251325]

Dạ đúng là do hắn rồi. hi TK thầy nhiều, chúc thầy buổi tối ngủ ngon giấc.

 

[matran25251325]

Thầy BaTe ơi em không hiểu sao file text chạy oke, nhưng đưa vào file chính thì lỗi đoạn code ở sup ĐơnGiá (lỗi đoạn màu đỏ):For I = 1 To UBound(sArr, 1) If sArr(I, 1) <> Empty Then Dic.Add sArr(I, 1), sArr(I, 4).Vấn đề này có thể do lỗi gì thầy(file chính hơn 10mb nên e up ko được)

 

[Ba Tê]

Thầy BaTe ơi em không hiểu sao file text chạy oke, nhưng đưa vào file chính thì lỗi đoạn code ở sup ĐơnGiá (lỗi đoạn màu đỏ):For I = 1 To UBound(sArr, 1) If sArr(I, 1) <> Empty Then Dic.Add sArr(I, 1), sArr(I, 4).Vấn đề này có thể do lỗi gì thầy(file chính hơn 10mb nên e up ko được)

Do file không giống thật nên khi chạy cũng không thật.
Chắc chắn là sheet Gia Vlieu bị trùng mã ở cột A rồi.
Tôi không bẫy lỗi đó nên bị vậy.
Thử thay dòng đó bằng cái này xem sao:

If sArr(I, 1) <> Empty Then
        If Not Dic.Exists(sArr(I, 1)) Then
            Dic.Add sArr(I, 1), sArr(I, 4)
        End If
End If

nếu không được nữa thì bạn gởi file thật lên, cắt bỏ bớt dữ liệu cho nhẹ file lại

 

[matran25251325]

Được rồi thầy. Hic vì dữ liệu nhiều quá nên nhiều lúc ko kiểm soát được. May có thầy hướng dẫn chứ mày mò sáng giờ cũng tưởng là do merge hoặc do dữ liệu nhiều quá mà code lọc chỉ đến vùng nào đó.

 

[matran25251325]

Thầy có thể chỉnh giùm em đoạn code bài #21 ở cột số lượng là chỉ tính các vật tư, còn nhân công và máy thì để trống. Vì nếu cột số lượng mà tính luôn công thức = DxM vào thì qua sheet PTVT nó sẽ lọc luôn thắng máy và nhân công. Mong thầy giúp em thêm tí ạ

 

[Ba Tê]

Lúc thì đòi nhân:

Dạ đúng thầy. Cột N = DxM (cột này tính là để dùng sumif tính tổng vật tư cho sheet PTVT thôi thầy). Còn cột E, F, G là = tổng của VLieu, máy, nhân công ở cột P (cột này = Định mức x giá vật tư chứ chưa nhân cho khối lượng), Thầy xem giùm em cột H, I, J nữa nha (phần tính toán như trong diễn giải file bài 22 ah)

Lúc thì không nhân

Thầy có thể chỉnh giùm em đoạn code bài #21 ở cột số lượng là chỉ tính các vật tư, còn nhân công và máy thì để trống. Vì nếu cột số lượng mà tính luôn công thức = DxM vào thì qua sheet PTVT nó sẽ lọc luôn thắng máy và nhân công. Mong thầy giúp em thêm tí ạ

Hy vọng không còn "tí" nào nữa.

 

[matran25251325]

Do lúc đầu em ko nghĩ đến trường hợp sheet PTVT lọc cả NC và Máy. Làm phiền thầy nhiều quá nên nhiều lúc em cũng ngại ghê. Thank thầy nhiều

 

[matran25251325]

Chán ghê bỏ vào file chính lại chắc bị cái sheet GiaVL thì phải, cột đơn giá và thành tiền thì chạy, còn cột số lượng thì trống trơn. Ko biết lại bị vấn đề gì nữa. Em copy thử dữ liệu file nháp qua chạy thử thì được. Mặc dù đã có đoạn bẩy lỗi ở bài 34 của thầy nhưng ko hiểu sao nó vẫn bị khi dùng code mới của thầy

 

[Ba Tê]

Chán ghê bỏ vào file chính lại chắc bị cái sheet GiaVL thì phải, cột đơn giá và thành tiền thì chạy, còn cột số lượng thì trống trơn. Ko biết lại bị vấn đề gì nữa. Em copy thử dữ liệu file nháp qua chạy thử thì được. Mặc dù đã có đoạn bẩy lỗi ở bài 34 của thầy nhưng ko hiểu sao nó vẫn bị khi dùng code mới của thầy

Xem lại bài #34..............

Do file không giống thật nên khi chạy cũng không thật...........

 

[matran25251325]

Nhờ thầy xem giúp. Thầy phát hiện vấn đề lỗi thì hướng dẫn em cách khắc phục và phòng tránh sau này lại bị.

 

[matran25251325]

sao có vụ rao bán ở đây

 

[Ba Tê]

Nhờ thầy xem giúp. Thầy phát hiện vấn đề lỗi thì hướng dẫn em cách khắc phục và phòng tránh sau này lại bị.

Đúng là "Ma Ma Phật Phật, Sắc Sắc Không Không", Không thật là giả. Là giả không thật.
Gặp mấy bài kiểu này chết còn sướng hơn.
May là lúc trước đi đúng hướng dùng Dic, không dùng Mã ký tự đầu tiên là "V" cho mấy thằng Vật liệu.
Tìm trong Sub TTien dòng này:
Arr = .Range("A6:A110").Value2
Đổi số 110 thành 2400 đi.

 

[matran25251325]

Hic thầy cứ nói quá làm em áy náy . Thì ra do vùng mã hiệu bị giới hạn nên mã tìm ko tìm thấy. lại 1 lần nữa cảm ơn thầy, hy vọng ko còn lỗi gì để làm phiền thầy

 

[Ba Tê]

Hic thầy cứ nói quá làm em áy náy . Thì ra do vùng mã hiệu bị giới hạn nên mã tìm ko tìm thấy. lại 1 lần nữa cảm ơn thầy, hy vọng ko còn lỗi gì để làm phiền thầy

Không cần phải áy náy, mà cần rút kinh nghiệm khi hỏi bài, dữ liệu phải như thật dù là ít
Lúc đầu bạn dùng các Mã Vật liệu đều là Vxxx, Nhân công là NCxxx..., giờ thì trớt quớt.
Lúc đầu Bảng mã bạn chừa cho Vật liệu từ dòng 6 đến 110 mà không nói rõ còn "mút chỉ", giờ thành 6-2400
Lúc đầu còn có thứ tự theo cột nào đó giờ thì Cột Mã lộn tùng phèo 6000 trên. 1000 giữa, 5000 dưới... chẳng hiểu theo cái chuẩn nào.
Lúc đầu thì nhân, sau lại không nhân...
Tất cả những cái lộn xộn đó nếu là "thật" luôn từ đầu thì mọi người sẽ nhận ra cách giải quyết cho kiểu lộn xộn, đàng này... tôi không biết dùng từ gì nên đành phải "MA MA PHẬT PHẬT" thôi.

 

[matran25251325]

Dạ cảm ơn thầy đã nhắc nhở, em sẽ rút kinh nghiệm. Có điều những bài trước thầy post lên em còn hiểu và học được tí. Hic còn bài này đọc bữa giờ vẫn chưa hiểu, chắc khả năng chưa tới nên nhiều cái bị lỗi em xử lý chưa được. Em vẫn đang học tài liệu của thầy Hướng nhưng thời gian trong ngày để học cũng ít quá nên nó cứ tà tà hoài mà chưa đâu ra đâu. Sắp tới cần cố gắng nhiều hơn. TK thầy nhiều.