Mong anh em trong GPE ai giúp chuyển từ công thức qua dạng vòng lặp để tính toán cho nhanh giúp.
Điểm khác biệt trong các công thức đã được chuyển thành màu đỏ.
Xin chân thanh cảm ơn.
Điểm khác biệt trong các công thức đã được chuyển thành màu đỏ.
Xin chân thanh cảm ơn.
Mã:
Sub PPM_0805()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Flow").Range("I2").Select
Range("[COLOR=#ff0000][B]I3[/B][/COLOR]").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[B][COLOR=#ff0000][-3][/COLOR][/B])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("[COLOR=#ff0000][B]I4[/B][/COLOR]").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[B][COLOR=#ff0000][-2][/COLOR][/B])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("[COLOR=#ff0000][B]I5[/B][/COLOR]").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[B][COLOR=#ff0000][-1][/COLOR][/B])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I6").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C)/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I7").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[1])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I8").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[2])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I9").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[3])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I10").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[4])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I11").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[5])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I12").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[6])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I13").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[7])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I14").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[8])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I15").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[9])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I16").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[10])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I17").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[11])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I18").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[12])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I19").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[13])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I20").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[14])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I21").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[15])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I22").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[16])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I23").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[17])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I24").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[18])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I25").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[19])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I26").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[20])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I27").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[21])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I28").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[22])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I29").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[23])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I30").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[24])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I31").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[25])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I32").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[26])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I33").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[27])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I34").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[28])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I35").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[29])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I36").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[30])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I37").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[31])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I38").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[32])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I39").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[33])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I40").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[34])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I41").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[35])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I42").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[36])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I43").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[37])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I44").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[38])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I45").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[39])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I46").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[40])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I47").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[41])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I48").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[42])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I49").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[43])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I50").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[44])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I51").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[45])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I52").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[46])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I53").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[47])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I54").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SUMIF(CHP!C[49],Flow!R2C9,CHP!C[48])/SUMIF(CHP!C[49],Flow!R2C9,CHP!C[-5])*1000000,""-"")"
Range("I3:I55").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Flow").Range("I2").Select
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
Lần chỉnh sửa cuối: