Nhờ giúp em viết code VBA tính cột thành tiền và link đơn giá

[sondaubac]

Nhờ các thầy, các anh trên GPE giúp em viết 1 đoạn code VBA để link công thức như sau:

Em đã tính toán ra kết quả, nhưng cứ ngồi link bằng tay thấy bất tiện quá, mong mọi người viết dùm em 1 đoạn CODE để tính các nội dung sau:

1/ Tính cột thành tiền dựa vào:
Định mức * Đơn giá
Riêng vật liệu khác và máy khác thì tính bằng % của thành tiền các loại vật liệu ở trên

2/ Link kết quả của đơn giá từng hạng mục

Em xin chân thành cảm ơn!

 

[sondaubac]

Mọi người giúp em với ...

 

[Gà Công Nghệ]

Mọi người giúp em với ...

Bạn chịu khó chờ thêm sẽ có người giúp à. Thân chào bạn!

 

[PacificPR]

Mọi người giúp em với ...

Sao chỗ Vât liệu khác lúc lại 1.5% lúc lại 5% hả bạn

 

[sondaubac]

Sao chỗ Vât liệu khác lúc lại 1.5% lúc lại 5% hả bạn

cái này là mình ví dụ thôi, vì chủ yếu mình làm là mã hiệu tạm tính là chủ yếu, giá trị % của vật liệu khác thay đổi chứ không cố định

 

[PacificPR]

cái này là mình ví dụ thôi, vì chủ yếu mình làm là mã hiệu tạm tính là chủ yếu, giá trị % của vật liệu khác thay đổi chứ không cố định

À quên cái % vật liệu khác liên quan đến mã hiệu dự toán

 

[sondaubac]

À quên cái % vật liệu khác liên quan đến mã hiệu dự toán

Mình đã update file excel cụ thể rồi đó bạn. Bạn có cách nào viết CODE ra cột thành tiền để mình đỡ mất công link bằng tay không?
1/ Vướng nhất là do cái thằng vật liệu khác với máy khác ở đâu chọc vô đó.
2/ Tính xong lại phải tính tổng tiền của Vật liệu riêng, nhân công riêng và MÁY riêng. Mình toàn làm tay chán quá rồi, muốn giành thời gian cho gia đình nhiều hơn

 

[Gà Công Nghệ]

Mình đã update file excel cụ thể rồi đó bạn. Bạn có cách nào viết CODE ra cột thành tiền để mình đỡ mất công link bằng tay không?
1/ Vướng nhất là do cái thằng vật liệu khác với máy khác ở đâu chọc vô đó.
2/ Tính xong lại phải tính tổng tiền của Vật liệu riêng, nhân công riêng và MÁY riêng. Mình toàn làm tay chán quá rồi, muốn giành thời gian cho gia đình nhiều hơn

Bạn chịu khó chờ thêm nhé. Mới đây ai viết code kịp cho bạn đâu, phải suy nghĩ nữa chứ. Bạn PacificPR hỏi là cũng đang tìm cách viết code giúp bạn đó. Thân chào bạn!

 

[darknightno007]

Bạn diễn tả mục đích của cái file đi, đọc vô nhứt mắt quá.

 

[PacificPR]

Mình đã update file excel cụ thể rồi đó bạn. Bạn có cách nào viết CODE ra cột thành tiền để mình đỡ mất công link bằng tay không?
1/ Vướng nhất là do cái thằng vật liệu khác với máy khác ở đâu chọc vô đó.
2/ Tính xong lại phải tính tổng tiền của Vật liệu riêng, nhân công riêng và MÁY riêng. Mình toàn làm tay chán quá rồi, muốn giành thời gian cho gia đình nhiều hơn

Bạn xem thử file xem có đúng không nha

 

[sondaubac]

Bạn xem thử file xem có đúng không nha

Bạn hiểu ý của mình rồi tuy nhiên khi mình thực hiện phép tính toán khác bằng cách thay đổi đầu mục công việc thì chưa xử lý được chỗ này:
1/ Khi nhiều đầu mục công việc và mỗi đầu mục công việc nó lại thay đổi thì bị sai ở phần tổng cộng thành tiền VẬT LIỆU, NHÂN CÔNG, MÁY THI CÔNG
2/ Cột thành tiền ở mục VẬT LIỆU KHÁC chưa xử lý được mà nó vẫn đem định mức nhân đơn giá để ra thành tiền (dù cột đơn giá không có thì nó vẫn tính ra theo số ở cột định mức)
Cụ thể khi mình thay đổi thế này thì CODE không còn đúng nữa

 

[sondaubac]

Bạn diễn tả mục đích của cái file đi, đọc vô nhứt mắt quá.

Mục đích của mình là tính thành tiền của hạng mục công việc, 1 công việc thì bao gồm các loại chi phí VẬT LIỆU, NHÂN CÔNG, MÁY THI CÔNG. Trong đó:
1/ Chi phí VẬT LIỆU: bao gồm CHI PHÍ CHO CÁC LOẠI VẬT LIỆU và VẬT LIỆU KHÁC (cột thành tiền tính bằng % của thành tiền các loại vật liệu chính). Sau đó tính thành tiền tổng cộng phần VẬT LIỆU
2/ Chi phí NHÂN CÔNG thì gồm các loại nhân công và cũng tính tổng thành tiền các loại nhân công đó. Sau đó tính thành tiền tổng cộng phần NHÂN CÔNG
3/ Chi phí MÁY THI CÔNG: bao gồm CHI PHÍ CHO CÁC LOẠI MÁY dùng để thi công và MÁY KHÁC (cột thành tiền tính bằng % của thành tiền các loại MÁY chính). Sau đó tính thành tiền tổng cộng phần MÁY THI CÔNG
4/ Sau khi tính toán được hết các chi phí trên thì tính TỔNG THÀNH TIỀN của hạng mục công việc đó.
5/ Tính tổng THÀNH TIỀN của toàn bộ CÔNG TRÌNH (chỉ bao gồm các chi phí VẬT LIỆU, NHÂN CÔNG, MÁY THI CÔNG)

 

[PacificPR]

Bạn hiểu ý của mình rồi tuy nhiên khi mình thực hiện phép tính toán khác bằng cách thay đổi đầu mục công việc thì chưa xử lý được chỗ này:
1/ Khi nhiều đầu mục công việc và mỗi đầu mục công việc nó lại thay đổi thì bị sai ở phần tổng cộng thành tiền VẬT LIỆU, NHÂN CÔNG, MÁY THI CÔNG
2/ Cột thành tiền ở mục VẬT LIỆU KHÁC chưa xử lý được mà nó vẫn đem định mức nhân đơn giá để ra thành tiền (dù cột đơn giá không có thì nó vẫn tính ra theo số ở cột định mức)
Cụ thể khi mình thay đổi thế này thì CODE không còn đúng nữa

Bạn kiểm tra lại xem có sai gì nữa không

 

[thanhlanh]

Nhờ các thầy, các anh trên GPE giúp em viết 1 đoạn code VBA để link công thức như sau:

Em đã tính toán ra kết quả, nhưng cứ ngồi link bằng tay thấy bất tiện quá, mong mọi người viết dùm em 1 đoạn CODE để tính các nội dung sau:

1/ Tính cột thành tiền dựa vào:
Định mức * Đơn giá
Riêng vật liệu khác và máy khác thì tính bằng % của thành tiền các loại vật liệu ở trên

2/ Link kết quả của đơn giá từng hạng mục

Em xin chân thành cảm ơn!

Em xem thử được chưa?

 

[sondaubac]

Bạn kiểm tra lại xem có sai gì nữa không

Cảm ơn bạn, mình chạy thấy được, vẫn chưa phát hiện lỗi gì

 

[sondaubac]

Em xem thử được chưa?

Dạ em chưa kiểm tra được anh ơi, Sếp hối lung tung mấy cái khác nữa rồi, em sử dụng cái của bạn PacificPR cũng thấy ok rồi.

 

[PacificPR]

Cảm ơn bạn, mình chạy thấy được, vẫn chưa phát hiện lỗi gì

Vẫn còn 1 lỗi liên quan đến hàm PRODUCT. Nếu đơn giá =0 thì nó lấy bằng giá trị định mức

 

[Gà Công Nghệ]

Vẫn còn 1 lỗi liên quan đến hàm PRODUCT. Nếu đơn giá =0 thì nó lấy bằng giá trị định mức

Vậy bạn sửa lỗi cho hoàn thiện File luôn đi bạn thân mến.

 

[PacificPR]

Vậy bạn sửa lỗi cho hoàn thiện File luôn đi bạn thân mến.

Cái ấy thì Record Macro lấy công thức thay cái cũ đi là xong bạn à

.
........................................ o O o .........................................
 If sArr(I, 1) = Empty And sArr(I, 4) <> Empty Then dArr(K, 8) = "=IF(RC[-2]<>"""",PRODUCT(RC[-3]:RC[-1]),"""")"
......................................... o O o .........................................

 

[Gà Công Nghệ]

Cái ấy thì Record Macro lấy công thức thay cái cũ đi là xong bạn à

.
........................................ o O o .........................................
 If sArr(I, 1) = Empty And sArr(I, 4) <> Empty Then dArr(K, 8) = "=IF(RC[-2]<>"""",PRODUCT(RC[-3]:RC[-1]),"""")"
......................................... o O o .........................................

Code hay công thức mình cũng đều "dốt đặc cán mai" lắm bạn. Hi. Sao chép câu nói của thành viên trên diễn đàn mà giờ không nhớ tên.