Nhờ các anh chị giải thíc đoạn code sau trong VBA em cám ơn (1 người xem)

[duyhung516890]

Range("Q" & Worksheets("KEHOACH").Cells(1, 1)).FormulaArray = _
"=IF(RC12="""",0,SUM(IF(RC12=XUATTP!R4C4:R50000C4,1,0)*IF(RC13=XUATTP!R4C5:R50000C5,1,0)*IF(RC6=XUATTP!R4C6:R50000C6,1,0)*IF(RC14=XUATTP!R4C9:R50000C9,1,0)*IF(RC15=XUATTP!R4C11:R50000C11,1,0)*XUATTP!R4C12:R50000C12))"
Range("Q" & Worksheets("KEHOACH").Cells(1, 1) & ":Q" & Worksheets("KEHOACH").Cells(1, 2)).FillDown
ActiveSheet.Calculate
Range("Q" & Worksheets("KEHOACH").Cells(1, 1) & ":Q" & Worksheets("KEHOACH").Cells(1, 2)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[phihndhsp]

cái này người ta ghi một macro công thức mảng sau đó filldown xuống và copy vùng đó dán lại value là xong

 

[duyhung516890]

dạ tại em mới học VBA nên chưa hiểu hết...
hiện tại đoạn macro này lấy thông tin từ một sheeet khác và tính tổng các các hàng có điều kiện
sau đó dán vào bảng tổng hợp theo từng điều kiện đó
- Range("Q" & Worksheets("KEHOACH").Cells(1, 1)).FormulaArray đoạn này là chọn tới sheet kế hoạch
- "=IF(RC12="""",0,SUM(IF(RC12=XUATTP!R4C4:R50000C4, 1,0)*IF(RC13=XUATTP!R4C5:R50000C5,1,0)*IF(RC6=XUAT TP!R4C6:R50000C6,1,0)*IF(RC14=XUATTP!R4C9:R50000C9 ,1,0)*IF(RC15=XUATTP!R4C11:R50000C11,1,0)*XUATTP!R 4C12:R50000C12))"
Nếu đoạn IF này em thêm một điều kiện VD: trong hàng đó cột Cột A phải có giá trị = AA mới tiến hành thì phải ghi như thế nào
Em Cảm ơn các anh chị