quyenpv
Thu nhặt kiến thức
- Tham gia
- 5/1/13
- Bài viết
- 719
- Được thích
- 97
- Giới tính
- Nam
- Nghề nghiệp
- Decode cuộc đời!
Dear các anh/chị!
Nhờ anh chị hướng dẫn hỗ trợ code giúp em có thể Lấy đơn giá trong bảng Chiết tính từ file excel xuất ra từ phần mềm dự toán. Cụ thể
- Em đã lấy các đầu việc trong Sheet Công trình đưa sang Sheet PLHD được rồi
- Bây giờ em cần lấy đơn giá của công việc đó từ Sheet Chiết tính sang Sheet PLHD (Từ khóa của bảng phân tích công việc đó là Gxd ở cột D). Tuy nhiên số lượng dòng nó không cố định do phụ thuộc vào Vật Liêu, Nhân công, Máy thi công của Công việc đó nên trình độ em ko làm được
- Em có tạo 2 Sheet PLHD_Mong muon là kết quả em đang cần và PLHD_GPE là nơi em đã làm 1 phần nhỏ code
Mong anh chị ghé qua giúp đỡ ạ, em cám ơn
Nhờ anh chị hướng dẫn hỗ trợ code giúp em có thể Lấy đơn giá trong bảng Chiết tính từ file excel xuất ra từ phần mềm dự toán. Cụ thể
- Em đã lấy các đầu việc trong Sheet Công trình đưa sang Sheet PLHD được rồi
- Bây giờ em cần lấy đơn giá của công việc đó từ Sheet Chiết tính sang Sheet PLHD (Từ khóa của bảng phân tích công việc đó là Gxd ở cột D). Tuy nhiên số lượng dòng nó không cố định do phụ thuộc vào Vật Liêu, Nhân công, Máy thi công của Công việc đó nên trình độ em ko làm được
- Em có tạo 2 Sheet PLHD_Mong muon là kết quả em đang cần và PLHD_GPE là nơi em đã làm 1 phần nhỏ code
Mong anh chị ghé qua giúp đỡ ạ, em cám ơn
Mã:
Sub Run_PLHD()
Dim i, k, aGV(), Res()
Dim LastRow
With Sheet1
aGV = .Range("A6:X" & .Range("F" & .Rows.Count).End(xlUp).Row).Value
End With
sRow = UBound(aGV)
ReDim Res(1 To sRow, 1 To 8)
For i = 1 To sRow
If aGV(i, 5) <> "" Then
k = k + 1
Res(k, 1) = k
Res(k, 2) = aGV(i, 5)
Res(k, 3) = aGV(i, 6)
Res(k, 4) = aGV(i, 7)
Res(k, 5) = aGV(i, 16)
Res(k, 6) = 1
Res(k, 7) = Res(k, 5) * Res(k, 6)
End If
Next i
With Sheet57
If k > 0 Then
.Range("A5").Resize(k, 8).Value = Res
End If
End With
End Sub
