1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| Sub MacroC1()
Dim C&
Dim Deb As Currency
Application.ScreenUpdating = False
Deb = Timer
With Sheets("C-Test")
For C = 1 To 58
Range("CF26").FormulaR1C1 = "=IF(AND(RC[-3]>" & C & ",RC[-3]<R3C82,RC[-65]=1),1,IF(AND(RC[-3]>" & C & ",RC[-3]<R3C82,RC[-65]=0),0,2))"
Range("CF26").AutoFill Destination:=Range("CF26:CF1657"), Type:=xlFillDefault
.Range("CF1").FormulaR1C1 = "=100*R4C84/(R3C84+R4C84)"
.Range("CI1").Offset(C, 0).Value = .Range("CF1").Value
.Range("CF2").FormulaR1C1 = "=(R3C84+R4C84)"
.Range("CJ1").Offset(C, 0).Value = .Range("CF2").Value
Next C
End With
MacroC2
ActiveWorkbook.Save
Range("CD1") = (Timer - Deb) & " sec"
Application.ScreenUpdating = True
End Sub
Sub MacroC2()
Dim C&
Dim Deb As Currency
With Sheets("C-Test")
For C = 1 To 58
Range("CF26").FormulaR1C1 = "=IF(AND(RC[-3]>" & C & ",RC[-3]<R3C82,RC[-65]=1),1,IF(AND(RC[-3]>" & C & ",RC[-3]<R3C82,RC[-65]=0),0,2))"
Range("CF26").AutoFill Destination:=Range("CF26:CF1657"), Type:=xlFillDefault
.Range("CF1").FormulaR1C1 = "=100*R4C84/(R3C84+R4C84)"
.Range("CK1").Offset(C, 0).Value = .Range("CF1").Value
.Range("CF2").FormulaR1C1 = "=(R3C84+R4C84)"
.Range("CL1").Offset(C, 0).Value = .Range("CF2").Value
Next C
End With
End Sub |
Partager