変数の宣言練習コードの作成
(1)EXCEL2019を起動します。
(2)新規_空白のブックを選択します。
(3)開発タブをクリックして「Visual Basic」をクリックします。
(4)「挿入」_「標準モジュール」を選択します。
(5)以下のコードを貼付けます。
Type myT
Z(5) As Double
iN As Integer
End Type
Dim myG As myT
Sub Macro1()
myG.iN = 4
dp = 1
Macro2
Macro3
dp = 4
End Sub
Sub Macro2()
For i2 = 0 To myG.iN
myG.Z(i2) = 0.1 * i2 * i2
Next
dp = 2
End Sub
Sub Macro3()
For i3 = 0 To myG.iN
Worksheets("Sheet1").Cells(i3 + 1, 1).Value = i3
Worksheets("Sheet1").Cells(i3 + 1, 2).Value = myG.Z(i3)
myG.Z(i3) = 0
Next
dp = 3
End Sub