【Excel VBA】円の半径から円周と面積を計算するマクロ

Excel/数学

背景

Excelで、下のような表があるとします。

入力された円の半径から、円周と面積を計算し、表に入力するマクロを作成します。

方法

以下のようなコードを書きます。

Sub Cal_Circle()

    '円周率 pi
    Const pi As Single = 3.14159
    
    '半径 radius
    Dim r As Single
    r = Range("B1").Value
    
    '円周 circumference＝直径 diameter×円周率＝2×半径×円周率
    Range("B2").Value = 2 * r * pi
    
    '面積 area＝半径×半径×円周率
    Range("B3").Value = r * r * pi
    
End Sub

画像だとこんな感じ。

結果

マクロを実行すると、下のようになります。

投稿時の環境

  • Windows11 Home Ver. 25H2
  • Excel for Microsoft 365 Ver. 2607