Giúp code Bảng Phân tích VT (1 người xem)

[KHONG_GJ_CA]

Em có file PTVT (phân tích vật tư trong dự toán XD công trình) được lập thủ công.
Trong file đó có hơn 30 công tác, trường hợp nhiều công tác hơn Em muốn nhờ sự giúp đỡ viết thành code tạo Sheet Phân tích VT (2) từ Sheet Phân tích VT như trong file em gửi.

 

[KHONG_GJ_CA]

Các Bác chuyên gia xem giúp em code ạ. Thanks

 

[ChanhTQ@]

Những người không trong nghề thì chả biết fân tích vật tư là làm những công đoạn gì sất!

Kiểu này, bạn fải chờ những người trong nghề giúp thôi, hay thuyết minh công việc kỹ càng hơn họa chăng!

 

[HungQuoc49]

Em có file PTVT (phân tích vật tư trong dự toán XD công trình) được lập thủ công.
Trong file đó có hơn 30 công tác, trường hợp nhiều công tác hơn Em muốn nhờ sự giúp đỡ viết thành code tạo Sheet Phân tích VT (2) từ Sheet Phân tích VT như trong file em gửi.

Xem thử file đính kèm. Vì nhập hàm trên sheet nên chạy hơi chậm.
Không phải là chuyên gia nên chỉ đạt được tốc độ này thôi.

Nhấn nút "TÍNH"

Public Sub PTVT()
Dim DL, Dau, Cuoi, r As Long, rw As Long, i, j

Application.ScreenUpdating = False
DL = Sheet1.Range("A1", "H" & Sheet1.Range("C65000").End(xlUp).Row)

With Sheet2
For r = 5 To UBound(DL)
If DL(r, 1) <> "" Then
Dau = r
End If

Cuoi = r
Do
Cuoi = Cuoi + 1
If Cuoi > UBound(DL) Then Exit Do
Loop While DL(Cuoi, 1) = ""
Cuoi = Cuoi - 1

For rw = Dau + 1 To Cuoi
If Mid(DL(rw, 3), 2, 2) = ".)" Then
i = rw
End If

j = i
Do
j = j + 1
If j > Cuoi Then Exit Do
Loop While DL(j, 2) <> ""
j = j - 1

.Range("G" & i).Value = "=round(sumproduct(R" & i + 1 & "C5:R" & j & "C5,R" & i + 1 & "C7:R" & j & "C7),1)"
.Range("H" & i).Value = "=round(sum(R" & i + 1 & "C8:R" & j & "C8),0)"
Next rw
.Range("H" & Dau).Value = "=round(sum(R" & Dau + 1 & "C8:R" & Cuoi & "C8)/2,0)"
Next r
End With
Application.ScreenUpdating = True

End Sub

 

[levelpro]

Hay quá anh HungQuoc49 ơi
em cũng đang cần tìm cách làm giống như anh là cho bạn KHONG CO GI nhưng mà theo bảng tính mẫu của em
Anh có thẻ giúp em đc ko ạ. FIle em đính kèm hết dung lương rồi em up lên drive anh xem nhe
https://drive.google.com/file/d/0B0krYnQdjJIqd01lSjA3eWVRNFU/view?usp=sharing

 

[befaint]

Hay quá anh HungQuoc49 ơi
em cũng đang cần tìm cách làm giống như anh là cho bạn KHONG CO GI nhưng mà theo bảng tính mẫu của em
Anh có thẻ giúp em đc ko ạ. FIle em đính kèm hết dung lương rồi em up lên drive anh xem nhe
https://drive.google.com/file/d/0B0krYnQdjJIqd01lSjA3eWVRNFU/view?usp=sharing

Đáp án ở đây!
http://www.giaiphapexcel.com/forum/...thi-công-trong-bảng-Phân-tích-vật-tư&p=753052