IsInitialized

Summary

指定された配列が初期化されているかどうかを確認するための関数です

Function IsInitialized(arr As Variant) As Boolean
'配列が初期化されているかを確認する｡
'
'Parameters
'------
'- arr:Variant
'対象となる配列
'
'Returns
'------
'- Boolean
'    - True      :配列が初期化済み
'    - False     :配列に値が格納されている

Dim Length As Long
On Error GoTo Not_Err

    Length = UBound(arr)
    IsInitialized = False
    Exit Function

Not_Err:
    IsInitialized = True
End Function

説明

この関数は、指定された配列が初期化されているかどうかを確認するために使用されます。 関数では、UBound(arr) を使用して配列の上限を取得し、エラーハンドリングを行います。

• エラーが発生しない場合
  配列が初期化されていると判断し、戻り値として False を返す

• エラーが発生した場合
  配列に値が格納されていると判断し、戻り値として True を返す

引数

• arr (Variant型): 判定対象の配列

戻り値

• 戻り値の型: Boolean型 True: 配列が初期化されている False: 配列に値が格納されている

Examples

使用例として、配列が初期化されているかどうかを確認する方法が示されています。
関数 IsInitialized に対象の配列を渡し、結果を result 変数に格納します。

' 配列が初期化されているかを確認する
Dim myArray() As Variant
Dim result As Boolean
result = IsInitialized(myArray)