DouKaku?beta

Comment detail

π (Nested Flatten)

VBA for Excel (2003)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
Sub PI()
    Range("A2").FormulaR1C1 = "=ROW(RC)-2"
    Range("B2").FormulaR1C1 =  _
        "=FACT(RC[-1]*2)/FACT(RC[-1])/FACT(RC[-1])" & _
        "/POWER(2,4*RC[-1]+1)/(2*RC[-1]+1)"
    Range("A2:B22").Select
    Selection.FillDown
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C[1]:R[21]C[1])*6"
End Sub

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]