配列の完全な初期化について

Question

こんにちわ。

タイトルの通りなのですが、サンプルコードのようにResultを完全に初期化して
IsArray(Result)をFalseにしたいです。

ResultにはRedimで二次元配列に設定し、値を入れています。

実現できないのであれば、ほかの方法を考えるので
実現可否含めて教えていただければ幸いです。

初心者の為、意味不明かもしれませんがなにとぞよろしくお願いいたします。

■試したこと
1.Erase Result → 配列と判定されました。
2.Array Result → 当然ですが、配列と判定されました
3.Redim Result → これも当然ですが配列と判定されました。

   Private Result As Variant

   Sub Sample()
      Resultの初期化処理       '初期化処理はここでは省略していますが、特定の条件で初期化 
                              '処理しています。
      If IsArray(Result) Then 'IsArrayをFalseにしたい
          (処理)　　　　　　　　
      Else
          (処理)
      End If
   End Sub

Answer 1

ReDim Result(1 To 10, 1 To 5)
Debug.Print IsArray(Result) 

Result = ""
Debug.Print IsArray(Result) 

Comments

[torimuneniku]

ご回答いただきありがとうございました。

上記の方法で作成できました！こんな方法があったなんて盲点でした。

Answer 2

以下のコードを実行して動作を確認すればまぁわかるかと。
ただし推奨はしません。
型を変えたいなら素直に別の変数を用意した方がいいです。

Dim a As Variant
Debug.Print IsArray(a)

ReDim a(0)
Debug.Print IsArray(a)

a = 100
Debug.Print IsArray(a)

Comments

[torimuneniku]

ご回答いただきまして、ありがとうございました！

値を代入することで配列毎初期化されるんですね。大変勉強になりました。