ホーム > ライブラリ > Array > fArray_IsArray

ライブラリ

fArray_IsArray

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

Public Function fArray_IsArray(Expression As Variant) As Boolean
'配列の形になっている場合にTrueを返す
'型配列の場合[IsArray]では判定できない(Falseになってしまう)
'Splitの結果で[変数なし]となった場合、判定できない(Trueになってしまう)
    
    If IsArray(Expression) = False Then Exit Function
    
    Dim Ln  As Long
    On Error Resume Next
    Ln = UBound(Expression, 1) - LBound(Expression, 1) + 1
    On Error GoTo 0
    
    fArray_IsArray = (0 < Ln)
    
End Function

Array   2017/11/21   shono

この記事へのコメント

コメントを送る

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