Nhờ Các Anh Chị Viết Code Tính Khối Lượng Vật Tư Theo Cấp Phối (1 người xem)

[nguyenhoantin]

Em có 1 sheet cấp phối vật tư tùy theo từng Mac BT làm chuẩn. Em muốn viết code sao cho Sheet khối lượng chỉ cần nhập ở cột Mac BT Kích thước và hệ số hao hụt vật tư thì các cột Xi Măng, Đá, Cát, Nước tự phân tích. Cảm ơn mọi người giúp đỡ!

 

[nguyenhoantin]

E không biết về VBA, Trong File kèm theo chỉ dùng công thức dò tìm. Mong được ACE giúp đỡ

 

[vanle33]

Em có 1 sheet cấp phối vật tư tùy theo từng Mac BT làm chuẩn. Em muốn viết code sao cho Sheet khối lượng chỉ cần nhập ở cột Mac BT Kích thước và hệ số hao hụt vật tư thì các cột Xi Măng, Đá, Cát, Nước tự phân tích. Cảm ơn mọi người giúp đỡ!

Bạn dùng công thức thế là dò tìm được, sao phải dùng VBA cho phức tạp.
Chỉ cần thêm hàm IF vào ví dụ J10=IF(C10<>"";ROUND(HLOOKUP($C10;capphoi;2;0)*$H10*I10;2);"")
Rồi copy "đánh roẹt" 1 cái cho 1000 dòng cũng được.

 

[nguyenhoantin]

Em giết ruồi bằng dao mổ trâu mà . Với lại tìm code nghiên cứu a ak!

 

[VetMini]

Em giết ruồi bằng dao mổ trâu mà . Với lại tìm code nghiên cứu a ak!

Trâu cỡ nào?

Dao mổ trâu nghé thì cứ việc dịch hàm ra hàm, range ra range, tuy nhiên đầu tien hết phải đổi tên sheet ra không dấu để dễ truy cập:
dịch hàm thì thêm "worksheetfunction." vào phía trước, vd ROUND ---> worksheetfunction.ROUND
dịch range thì thêm tên sheet. vd H7 ---> Sheets("KHOI_LUONG").Range("H7"); capphoi ---> Sheets("KHOI_LUONG").Range("capphoi")

Dao mổ trâu mẹ thì chịu khó dịch các hàm ra thủ tục.