hongphuong
Tôi yêu THVBA
Em có đoạn Code viết tham chiếu dưới dạng Cells() như bên dưới, nhưng em thấy hàm dài quá.
Vậy nhờ anh chị viết rút gọn tham chiếu (hoặc bằng cách nào đó để cho ngắn gọn)
Em xin trân trọng cảm ơn ạ.
Vậy nhờ anh chị viết rút gọn tham chiếu (hoặc bằng cách nào đó để cho ngắn gọn)
Em xin trân trọng cảm ơn ạ.
Mã:
Sub Test_5()
Dim i As Integer
For i = 7 To 27 Step 5
Cells(31, i).Value = WorksheetFunction.SumIfs(Range(Cells(27, i), Cells(29, i + 3)), Range(Cells(23, i), Cells(25, i + 3)), Range("D29"), Range(Cells(19, i), Cells(21, i + 3)), Range("D28"))
Cells(32, i).Value = WorksheetFunction.SumIfs(Range(Cells(27, i), Cells(29, i + 3)), Range(Cells(23, i), Cells(25, i + 3)), Range("D29"), Range(Cells(19, i), Cells(21, i + 3)), Range("D28"), Range(Cells(15, i), Cells(17, i + 3)), Range("D27"))
Next i
End Sub