hongphuong
Tôi yêu THVBA
hi hi..... đúng vậy anh oiThấy hỏi là biết chưa hiểu về offset và resize rồi :v
Anh giúp em với anh @John Carter
hi hi..... đúng vậy anh oiThấy hỏi là biết chưa hiểu về offset và resize rồi :v
Sub Sua_ti_la_dc()
Dim i As Integer
Dim dk1, dk2, dk3 As String
Dim Kq, v1, v2, v3 As Range
Dim Wf As WorksheetFunction
Set Wf = WorksheetFunction
dk1 = Range("D29")
dk2 = Range("D28")
dk3 = Range("D27")
For i = 7 To 27 Step 5
Set Kq = Range(Cells(27, i), Cells(29, i + 2))
Set v1 = Range(Cells(23, i), Cells(25, i + 2))
Set v2 = Range(Cells(19, i), Cells(21, i + 2))
Set v3 = Range(Cells(15, i), Cells(17, i + 2))
Cells(34, i) = Wf.SumIfs(Kq, v1, dk1, v2, dk2)
Cells(35, i) = Wf.SumIfs(Kq, v1, dk1, v2, dk2, v3, dk3)
Next i
End Sub
Bạn giúp mình vớiBài này mình nghĩ bạn có thể làm cách khác kiểu dùng từ điển chẳng hạn !
Bạn @vanvan9697 giúp mình vớiBài này mình nghĩ bạn có thể làm cách khác kiểu dùng từ điển chẳng hạn !
anh @John Carter em thấy bạn ấy nói là biết làm bằng cách khác@hongphuong chẳng ai giúp được bạn đâu. Bởi vì họ không thèm giúp đó. K tin cứ ngồi đợi. Ahihi “thái với chả độ”