Mong được sự giúp đỡ của các anh chị! (1 người xem)

[duyhung516890]

Do là em mới học VBA nên còn nhiều điểm hạn chế mong các anh chị gải thíc giùm em đoạn code sau trong VBA em xin cám ơn!"

'XUAT TP
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
' TON TP
Range("R" & Worksheets("KEHOACH").Cells(1, 1)).Formula = "=IF(RC12=0,0,(RC16-RC17))"
Range("R" & Worksheets("KEHOACH").Cells(1, 1) & ":R" & Worksheets("KEHOACH").Cells(1, 2)).FillDown
ActiveSheet.Calculate
Range("R" & Worksheets("KEHOACH").Cells(1, 1) & ":R" & Worksheets("KEHOACH").Cells(1, 2)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
' BAO BI
'NHAP BAO BI
Range("S" & Worksheets("KEHOACH").Cells(1, 1)).FormulaArray = _
"=IF(RC12="""",0,SUM(IF(RC12=NHAPBB!R4C5:R50000C5,1,0)*IF(RC13=NHAPBB!R4C4:R50000C4,1,0)*IF(RC6=NHAPBB!R4C8:R50000C8,1,0)*IF(RC14=NHAPBB!R4C10:R50000C10,1,0)*IF(RC30=NHAPBB!R4C12:R50000C12,1,0)*NHAPBB!R4C13:R50000C13))"
Range("S" & Worksheets("KEHOACH").Cells(1, 1) & ":S" & Worksheets("KEHOACH").Cells(1, 2)).FillDown
ActiveSheet.Calculate
Range("S" & Worksheets("KEHOACH").Cells(1, 1) & ":S" & Worksheets("KEHOACH").Cells(1, 2)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'HAO BE BAO BI
Range("T" & Worksheets("KEHOACH").Cells(1, 1)).FormulaArray = _
"=IF(RC12="""",0,SUM(IF(RC12=NHAPBB!R4C5:R50000C5,1,0)*IF(RC13=NHAPBB!R4C4:R50000C4,1,0)*IF(RC6=NHAPBB!R4C8:R50000C8,1,0)*IF(RC14=NHAPBB!R4C10:R50000C10,1,0)*IF(RC30=NHAPBB!R4C12:R50000C12,1,0)*NHAPBB!R4C14:R50000C14))"
Range("T" & Worksheets("KEHOACH").Cells(1, 1) & ":T" & Worksheets("KEHOACH").Cells(1, 2)).FillDown
ActiveSheet.Calculate
Range("T" & Worksheets("KEHOACH").Cells(1, 1) & ":T" & Worksheets("KEHOACH").Cells(1, 2)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'NO BAO BI PHAI THU HOI
Range("U" & Worksheets("KEHOACH").Cells(1, 1)).Formula = "=IF(RC30=0,0,(RC17-RC19-RC20))"
Range("U" & Worksheets("KEHOACH").Cells(1, 1) & ":U" & Worksheets("KEHOACH").Cells(1, 2)).FillDown
ActiveSheet.Calculate
Range("U" & Worksheets("KEHOACH").Cells(1, 1) & ":U" & Worksheets("KEHOACH").Cells(1, 2)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

'KIEM TRA TINH TRANG XUAT
Range("B" & Worksheets("KEHOACH").Cells(1, 1)).Formula = "=IF(RC6=0,0,IF(RC16 = RC17,""OK"",IF(RC17>RC16,""Sai"",IF(RC18 = 0,""XuatHet"",IF(RC17>0,""Da Xuat"",""Chua Xuat"")))))"
Range("B" & Worksheets("KEHOACH").Cells(1, 1) & ":B" & Worksheets("KEHOACH").Cells(1, 2)).FillDown
ActiveSheet.Calculate
Range("B" & Worksheets("KEHOACH").Cells(1, 1) & ":B" & Worksheets("KEHOACH").Cells(1, 2)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'KIEM TRA THOI HAN
Range("C" & Worksheets("KEHOACH").Cells(1, 1)).Formula = "=IF(RC11=0,0,IF(RC11=TODAY(),""HomNay"",IF(RC11>TODAY(),RC11-TODAY(),""HetHan"")))"
Range("C" & Worksheets("KEHOACH").Cells(1, 1) & ":C" & Worksheets("KEHOACH").Cells(1, 2)).FillDown
ActiveSheet.Calculate
Range("C" & Worksheets("KEHOACH").Cells(1, 1) & ":C" & Worksheets("KEHOACH").Cells(1, 2)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False