プロシージャーの外で宣言した変数の値の破棄の仕

プロシージャーの外で宣言した変数の値の破棄の仕方について教えてください。

++++++++++++++++++
Dim i As Long

Sub test()

i = i + 10

MsgBox i
End Sub
++++++++++++++++++
を実行すると、どんどん値が増えていきますが、
回避するには、
++++++++++++++++++
Dim i As Long

Sub test()

i = i + 10

MsgBox i
i = 0
End Sub
++++++++++++++++++
とするしかないのでしょうか？

++++++++++++++++++
Dim i As Long

Sub test()

i = i + 10

MsgBox i
Set i = Nothing
End Sub
++++++++++++++++++
としたら、エラーになりました。

No.2 ベストアンサー 回答者： okormazd 回答日時： 2012/09/18 22:22

あなたのような書き方はしない。

Dim i As Long
Sub test()
i = 0　　　　'ふつうはこのように初期化してから始めるね。
i = i + 10
MsgBox i
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2012/10/20 00:08

No.1 回答者： naktak 回答日時： 2012/09/18 22:18

Set 変数名 = Nothing

という書き方はオブジェクトに対してのみ行う方法であって、
String、Integerなどのいわゆるデータ型には適用できません。

値を破棄したいならば、破棄したいタイミングで0なり空文字なりを
入れます。
オブジェクトではないので、アプリケーションが終了する、もしくは
スコープ範囲の関数が終了するまでメモリ解放はありません。


どうもやりたいことを想像するに、そもそもiをグローバル変数宣言
しなければいいのでは、と。
理由があるならどこかでtest()を呼び出した後に初期化出来ますよね。
たとえば
Dim i As Integer
Dim j As Integer
For j = 0 To 10
　i = i + j
　test(i)
　If j = 5 Then
　　i = 0
　End If
Next
とか。

この回答へのお礼

ありがとうございました。

お礼日時：2012/10/20 00:08