'
' Excel VBA サンプルプログラム
'
' ●プログラムは上から順番に１行ずつ実行される
' ● = （イコール）で表されていても、等式ではなく代入操作を表す
'
' 1) グローバル変数 x,y を使う
' 2) プロシージャから他のプロシージャを呼び出す
'
'------------------------------------------------
'   グローバル変数を定義する
'
    Dim x As Double
    Dim y As Double
'
'---------プロシージャ Test1
'
Sub Test1()
    '---------変数の宣言
    Dim length As Double
    Dim theta  As Double
     '---------セルB-1から数字を読み込んでlengthに代入
    length = Cells(1, 2)
    '---------セルB-2から数字を読み込んでthetaに代入
    theta = Cells(2, 2)
    '---------計算結果を変数x,yへ代入
    x = length * Cos(theta)
    y = length * Sin(theta)
    '---------変数x,yの値をセルB-3, B-4へ書き込む
    Cells(3, 2) = x
    Cells(4, 2) = y
    '---------シート上に図形（線）を描画する：プロシージャTest2 を呼ぶ
    Test2
End Sub
'
'---------プロシージャ Test2
'
Sub Test2()
   '---------シート上に図形（線）を描画する
   '         グローバル変数 x, y の値を用いて処理
    ActiveSheet.Shapes.AddLine 100, 100, 100 + x, 100 + y
End Sub