変数の配列が設定されたか取得するには？ (ID:110740)

名前

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

本文 > エラートラップでは変数型で分けて作らなければなりませんでしたが 以下のようにすれば、型別に分けずとも済むのでは。 '======================= Option Explicit Private Sub Form_Load() Dim S() As String, L() As Long Debug.Print UBoundEx(S), UBoundEx(L) ReDim S(10), L(5) Debug.Print UBoundEx(S), UBoundEx(L) Erase S, L Debug.Print UBoundEx(S), UBoundEx(L) End Sub Public Function UBoundEx(ByVal Ary As Variant) As Long UBoundEx = -1 On Error Resume Next UBoundEx = UBound(Ary) On Error GoTo 0 End Function