ツイッター出題回答
配列のUBoundがLBoundがより小さいことはあり得るか

配列の下限と上限を調べるにはLBound関数とUBound関数を使います。
変数aryについて、
LBound(ary) > UBound(ary)
この条件を満たすような配列は存在するかについての問題です。
以下の文章で正しいものはどれか?
・そんな配列は存在しない
・存在するがVBAで意図的に作ることはできない
・存在するしVBAで簡単に作ることができる
・にゃんともいえない

https://twitter.com/yamaoka_ss/status/1300811819997491202

以下で一連の解説ツイートをしています。

https://twitter.com/yamaoka_ss/status/1301146057494024193
お決まりの結果になってしまいました(笑)
「にゃんともいえない」もうこれは正解とも言えるけど、、、
正解は「存在するしVBAで簡単に作ることができる」
LBound(ary) > UBound(ary)
このような配列は存在するし、VBAで簡単に作成できます。
変数が配列であるかを確認するには、IsArray関数を使います。
つまり実際のVBAで書くと、
If IsArray(ary) Then
　　If LBound(ary) > UBound(ary) Then
　　　　MsgBox "これだ"
　　End If
End If
このような状態の配列です。
では、
LBound(ary) > UBound(ary)
これがどのような時に発生するかというと、
長さ0の空の配列の場合に起こります。
LBound = 0
UBound = -1
このようになっている状態です。
Stringの""と同じようなものだと考えれば良いでしょう。
配列の要素数は、
UBound(ary) - LBound(ary) + 1
例えば、
Dim ary(0 to 2)
2 - 0 + 1 = 3
3個の要素を持つ配列になります。
要素数0の空の配列は、
-1 + 0 + 1 = 0
0個の要素を持つ配列という事になります。
このような配列をVBAで作成するには、以下のような方法があります。
ary1 = Array()
※ary1は、VariantもしくはVariant配列でなければなりません。
ary2 = Split("")
※ary2は、VariantもしくはString配列でなければなりません。
ただし、このような配列を使いまわす（他へ代入する）ような場合は注意が必要です。
1年前のアプデで問題が発生したのは記憶に新しいところです。
説明は以上です。
https://twitter.com/yamaoka_ss/status/1162215395723399169

同じテーマの記事
新着記事
アクセスランク