2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« 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 が分離されました。 »