変数 変数宣言の基本(ヘルプ参照)

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Option Explicit

Sub 変数宣言()
'********************************
'変数宣言の基本(ヘルプ参照)
'********************************

'最上部の[Option Explicit]を宣言した場合は必ず[Dim]宣言が必要
'[Option Explicit]を宣言しない場合はバリアント型 (Variant)

' 宣言しない場合、既定のバリアント型 (Variant)
Dim AnyValue, MyValue

' 整数型 (Integer)
Dim Number As Integer

' 変数 AnotherVar はバリアント型
Dim AnotherVar, Choice As Boolean, BirthDate As Date

' 変数 DayArray は、要素数 51 のバリアント型配列
' 添字の範囲は、0 ～ 50 になります。
Dim DayArray(50)

' 変数 Matrix は、整数型の 2 次元配列
Dim Matrix(3, 4) As Integer

' MyMatrix は、倍精度浮動小数点数型 (Double) の 3 次元配列
Dim MyMatrix(1 To 5, 4 To 9, 3 To 5) As Double

' BirthDay は、添字が 1 ～ 10 の範囲の日付型 (Date) の配列
Dim BirthDay(1 To 10) As Date

' MyArray は、バリアント型の動的配列です。
Dim MyArray()

Dim MyArray() As Integer        ' 動的配列を宣言
ReDim MyArray(5)                ' 5 要素分の領域を割り当て
For i = 1 To 5                  ' 5 回、ループ
    MyArray(i) = i              ' 配列を初期化
Next i

'配列のサイズを変更して､以前の要素を消去
ReDim MyArray(10)               ' 配列の要素数を 10 に変更
For i = 1 To 10                 ' 10 回、ループ
    MyArray(i) = i              ' 配列を初期化
Next i

'以前の要素を消去せずに､配列のサイズを変更
ReDim Preserve MyArray(15)      ' 配列の要素数を 15 に変更

End Sub

 

 

 

2000年01月01日|[VBサンプルコード]:[変数]