Làm biếng xem công thức Bạn muốn gì.
Bác Bê Ta đâu goy.
có bác nào vào giúp em với, sao em tìm 1 mã hiệu ở sheet TLuong DT thì bên sheet DG TTHUE code không hoạt động. tìm 2 mã hiệu trở lên thì code mới hoạt động.
- Thứ nhất là em thấy không cần số thứ tự .
.
Thay code ở bài #5 thành code này thử xem.
Public Sub LUXUBU()
Application.Calculation = xlCalculationManual
Dim sArr(), dArr(), Arr(), I As Long, K As Long, J As Long
Arr = Sheets("DG DT XD TRUOC THUE").[A10:S10].FormulaR1C1
With Sheets("TLuong DT")
sArr = .Range(.[A9], .[A65000].End(xlUp)).Resize(, 3).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 19)
For I = 1 To UBound(sArr, 1)
If sArr(I, 1) <> "" Then
K = K + 1
For J = 1 To 3
dArr(K, J) = sArr(I, J)
Next J
If sArr(I, 3) <> "" Then
For J = 4 To 19
dArr(K, J) = Arr(1, J)
Next J
End If
End If
Next I
With Sheets("DG DT XD TRUOC THUE")
.[A11:S1000].ClearContents
If K Then
.[A11].Resize(K, 19).Value = dArr
.[A11].Resize(K, 19).Value = .[A11].Resize(K, 19).Value '' Bo Cong thuc
End If
End With
Application.Calculation = xlCalculationAutomatic
End Sub.[A11].Resize(K, 19).Value = .[A11].Resize(K, 19).Value '' Bo Cong thuc
oke rồi anh. Em còn 2 sheet trên file bài 15, mong anh giúp giùm em 2 sheet đó luôn. Em cảm ơn nhiều. Cách làm cũng giống như sheet DGDTTRUOCTHUE. Em cảm ơn nhiều.
Đã biết là cách làm tương tự thì bạn thử làm đi, khi nào không được hãy nhờ người khác.
. Cho em hỏi chỗ này 1 tí: IF($C9="";"";E9*F$8+E9) , thì cụm từ C9="";"" có phải nghĩa của nó là vị trí C9 là trống không?
