giúp code Lấy dữ liệu từ phân tích vật tư từ sheet nguồn (1 người xem)

[matran25251325]

Sau khi chọn các mã hiệu công việc ở sheet TLuongDT thì qua sheet PTVT các mã hiệu đó sẽ được phân tích ra như mẫu em đã đưa lên (vơi nguồn dữ liệu từ sheet DinhMuc). Mong các anh xem qua và giúp đỡ.

 

[matran25251325]

Chủ đề này có vẻ không có anh nào hứng thú giúp em nhỉ

 

[sealand]

Mình cũng đã xem và nói thật mình "ghét" dạng dữ liệu như của bạn. Nó chỉ nhìn thoáng và đẹp thôi chứ chính xác thì khó mà dám chắc được. Trong khi danh mục và định mức có mục đích chính là tra cứu chứ không phải là xem vậy mà bạn hy sinh độ chính xác cho trang trí đẹp.
Nếu bạn chấp nhận sửa đổi 2 bảng này thì việc sử lý dữ liệu bằng VBA hay công thức bảo đảm chính xác chỉ là chuyện "con thỏ"

 

[matran25251325]

EM chưa rõ ý anh lắm, anh có cao kiến gì giúp em vấn đề này. Định mức này các phần mềm hiện tại vẫn sử dụng nên em mới đưa vào, anh nói chưa chính xác thì em ko hiểu lắm.

 

[sealand]

Bạn thử dùng Hàm UDF sau:

Function Dgia(Ma As String, Loai As Integer) As Double
Dim Ktu As String, Tm, i, Kt As Boolean
Dgia = 0
Kt = False
Ktu = Choose(Loai, "V", "N", "M")
Tm = Sheet5.Range("B7:H" & Sheet5.[C65536].End(3).Row)
For i = 1 To UBound(Tm, 1)
If Tm(i, 1) = Ma Then
Kt = True
ElseIf Kt = True And Tm(i, 1) = "" And Left(Trim(Tm(i, 2)), 1) = Ktu Then
Dgia = Dgia + Tm(i, 7)
ElseIf Tm(i, 1) <> "" And Kt = True Then Exit Function
End If
Next
End Function

Cú pháp =Dgia(MaHieu,Id)
Trong đó:
-MaHieu: Là Mã hiệu cần tính đơn giá
-Id: Tuỳ chọn loại đơn giá: =1 : Đơn giá vật liệu, =2: Đơn giá nhân công,=3: Đơn giá máy thi công.

Ví dụ: Tại TLuong DT!E10 nhập công thức: =dgia($A10,1)

 

[matran25251325]

Hình như anh hiểu sai ý em rồi, ý em là code ở sheet PTVT. Nếu sheet TLuongDT em chọn mã hiệu AF.11112 thì khi bấm qua sheet PTVT thì mã hiệu sẽ được chạy như file em đưa lên.

 

[sealand]

Hình như anh hiểu sai ý em rồi, ý em là code ở sheet PTVT. Nếu sheet TLuongDT em chọn mã hiệu AF.11112 thì khi bấm qua sheet PTVT thì mã hiệu sẽ được chạy như file em đưa lên.

Vậy đơn giá vật liệu lấy ở đâu ra? Ca máy thì tính theo vùng nào?

 

[matran25251325]

Dạ giá vật liệu em lấy từ sheet CUOC2006 (sheet ẩn), và giá ca máy em lấy ở sheet Bang Gia CMDChinh (sheet ẩn). Giá VL này em lấy giá đã tính cước vận chuyển. Cảm ơn anh đã đọc bài