Nhờ các bác giúp mình hoàn thiện nốt Code này nhé. (1 người xem)

[bogay]

Mình đã lấy dự liệu ở cột PTVT sang cột PTDM rồi, nhưng không thể nhân thêm khối lượng ở cột E vào các loại vật tư tương ứng với thời gian thi công. Mình mong các bạn thêm code hoàn thiện hộ mình. Mình xin cám ơn nhiều.
Đay là Code (Có file kèm theo):
Sub LinkKL()
Dim Src As Range, fRng As Range, Clls As Range, i As Integer, j As Integer
Set Src = Range(Sheets("PTVT").[B10], Sheets("PTVT").[B65536].End(xlUp))
Set fRng = Sheets("PTVT").Range("B10")
With Range(Sheets("PTDM").[B9], Sheets("PTDM").[B65536].End(xlUp))
For Each Clls In .SpecialCells(2)
For i = 1 To 5
For j = 4 To 38
Clls.Offset(i, j).Value = "=PTVT!" & fRng(, j + 1).Address(0, 0)
Next j
Next i
If Intersect(fRng(2), Src) Is Nothing Then Exit Sub
Set fRng = Range(fRng(2), Sheets("PTVT").Cells(65536, fRng.Column)).SpecialCells(2)
Next
End With
End Sub

 

[viehoai]

Mình đã lấy dự liệu ở cột PTVT sang cột PTDM rồi, nhưng không thể nhân thêm khối lượng ở cột E vào các loại vật tư tương ứng với thời gian thi công. Mình mong các bạn thêm code hoàn thiện hộ mình. Mình xin cám ơn nhiều.
Đay là Code (Có file kèm theo):
Sub LinkKL()
Dim Src As Range, fRng As Range, Clls As Range, i As Integer, j As Integer
Set Src = Range(Sheets("PTVT").[B10], Sheets("PTVT").[B65536].End(xlUp))
Set fRng = Sheets("PTVT").Range("B10")
With Range(Sheets("PTDM").[B9], Sheets("PTDM").[B65536].End(xlUp))
For Each Clls In .SpecialCells(2)
For i = 1 To 5
For j = 4 To 38
Clls.Offset(i, j).Value = "=PTVT!" & fRng(, j + 1).Address(0, 0)
Next j
Next i
If Intersect(fRng(2), Src) Is Nothing Then Exit Sub
Set fRng = Range(fRng(2), Sheets("PTVT").Cells(65536, fRng.Column)).SpecialCells(2)
Next
End With
End Sub

Sửa câu lệnh mầu đỏ trên thành
Clls.Offset(i, j).Value = "=PTVT!" & fRng(, j + 1).Address(0, 0) & "*" & Clls.Offset(i, 3).Address(0, 0)

 

[bogay]

Lúc đầu mình cũng làm vậy nó chỉ nhân với số chết, nhưng lại không nghỉ tới thêm Address(0,0. Mình cám ơn bạn nhé. À mà bạn ơi. Có cách gì tăng tốc độ chạy code lên không bạn?