動的配列でReDimされたかどうかを知るには？ (ID:112775)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 UBoundを応用して -- 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 とすれば、結果が-1のときにRedimされていない。 という話になります。