|
>教えていただいたチェック方法は、配列をVariant型で宣言した場合に
>有効となるようですね。
そんなことはありません。
チェックしたい配列の型とAryReadyの引数の配列の型を合わせるか、
もっと一般的にしたいなら、AryReadyの引数をVariant型の変数で
とるようにすればいいのでは?
Option Explicit
Dim ary() As Double
Sub sample()
ReDim ary(1 To 10)
If AryReady(ary) Then
Debug.Print "OK"
Else
Debug.Print "だめだめ"
End If
Erase ary
If AryReady(ary) Then
Debug.Print "OK"
Else
Debug.Print "だめだめ"
End If
End Sub
Function AryReady(ary As Variant) As Boolean
Dim ret
On Error Resume Next
ret = UBound(ary)
AryReady = Err = 0
On Error GoTo 0
End Function
|
|