« Scripting.Dictionary を配列の代わりに使う。(補足) | トップページ | IE7 で Shell と IE が分離されました。 »

2008年5月25日 (日)

未初期化の配列を空の配列のように扱うUBound()の代替関数

Option Base {0|1}にも対応します。

Function UpperBound(a)
UpperBound = UBound(Array())
On Error Resume Next
UpperBound = UBound(a)
End Function

または、

Function UpperBound(a, Optional n = 1)
UpperBound = UBound(Array())
On Error Resume Next
UpperBound = UBound(a, n)
End Function

« Scripting.Dictionary を配列の代わりに使う。(補足) | トップページ | IE7 で Shell と IE が分離されました。 »