Integerの範囲設定について

VBAのマクロを組んでいるんですが、どうしてもわからずに
困っています。

Dim X, Y As Integer

と宣言しているのですが、上記の変数X,Yの範囲をどちらも
1から1000までにしたい場合にはどのように宣言したらいいの
でしょうか？

いろいろと自分なりに検索してみたんですが、どうしても
わからなかったので質問させていただきました。

No.1 ベストアンサー 回答者： dsuekichi 回答日時： 2007/03/27 19:34

残念ながら、VB（VBA）の変数に、

> 変数X,Yの範囲をどちらも1から1000までに

の様な指定はできません。
データ型が決まれば、自動的に上限下限も決まってしまいます。

ですから、
> いろいろと自分なりに検索してみたんですが、どうしても
> わからなかったので質問させていただきました。
いくら探しても見つからないでしょうね・・・

この回答へのお礼

ありがとうございます。ないんですね。了解です。

お礼日時：2007/03/27 19:53

No.2 回答者： tonton-tribo 回答日時： 2007/03/27 19:48

>Dim X, Y As Integer

No.1の方の補足ですが上記のような記述をした場合はYだけがInteger型になってXはデータ型の指定はされません。これはVBの仕様なのでどちらもInteger型にしたい場合は

Dim X As Integer
Dim Y As Integer

と、どちらも宣言するようにしてください。

あと、変数の範囲を指定したい場合はデータ型で指定することは不可能なのでIf分で行うしかありません。例えば下記のような記述ですね。

If X < 1 Then
X = 1
ElseIf X > 1000 Then
X = 1000
End If

If Y < 1 Then
Y = 1
ElseIf Y > 1000 Then
Y = 1000
End If

この回答へのお礼

ありがとうございました。

お礼日時：2007/03/27 19:54