'プロシージャの中で以下の宣言をする。 Static 変数名 As データ型
変数名 | 変数に割り当てる名前 |
データ型 | 変数のデータ型を指定する |
Option Explicit
'このプロシージャから実行してください。
Sub main()
Call test(1)
Call test(2)
Call test(-3)
'実行後、イミディエイト ウインドウに
'以下の出力があります
'
'intS = 1
'intS = 3
'intS = 0
End Sub
Sub test(i As Integer)
'プロシージャ内で有効な変数を宣言
'この変数はプロシージャ実行後も保持される
Static intS As Integer
intS = intS + i
Debug.Print ("intS = " & intS)
End Sub
このサイトはリンクフリーです。リンクを貼る際に連絡は不要です。
© EXCEL VBA リファレンス all rights reserved.