投稿日 | : 2005/10/03(Mon) 14:33 |
投稿者 | : いな |
Eメール | : |
URL | : |
タイトル | : Re: 空の配列の判定 |
私は、こんな感じの関数で判断しています。
(-1ならば、空の配列)
'*********************************************************************
' 機 能 : 配列の要素数を返す
' 引 き 数 : strArray 配列
'*********************************************************************
Public Function cmnUBound(strAr() As String) As Long
On Error GoTo cmnUBound_ERR
cmnUBound = UBound(strAr)
Exit Function
cmnUBound_ERR:
If Err.Number = 9 Then
cmnUBound = -1
End If
End Function