ライブラリ

fArray_IsArray

***************************************************************
既存の IsArray の弱点(型配列で生成されていない場合に判定できない)を克服した関数
***************************************************************

Public Function fArray_IsArray(Expression As Variant) As Boolean
'要素のある配列になっている場合にTrueを返す
'※空の型配列の場合[IsArray]では判定できない(Trueになってしまう)
'※Splitの結果で[変数なし]となった場合、判定できない(Trueになってしまう)
    
    'まずIsArrayで判定
    If IsArray(Expression) = False Then Exit Function
    
    '要素数をカウントして0だったら終了
    Dim Ln  As Long
    On Error Resume Next
    Ln = UBound(Expression, 1) - LBound(Expression, 1) + 1
    On Error GoTo 0
    If Ln = 0 Then Exit Function
    
    'たどり着いたらOK
    fArray_IsArray = True
    
End Function

Array   2017/11/21   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください