アクセス数
健康情報 ⇒ どこへ向かって・・・ ⇒ VBAトップ ⇒ 変数について
プログラムを作るに当たり、一時的に利用する記憶領域を作らなければならない場面は多々あります。
一般的なのは以下のような使い方です。
Dim i as Integer
Dim j as Integer
For i = 1 to 9
For j = 1 to 9
Debug.Print i *j
Next
Next
Forループを使って九九の計算をしています。
「i」と「j」が変数であり、プロシージャが終了すると消えるため一時変数と呼ばれます。
宣言の種類
●Dim ステートメント 一般的 Dimension(次元）
Dim intX as Integer
intX⇒変数名（予約語でなければ自由に命名できますが、分かりやすいように。私の場合は、型が分かりやすいように「int」とか「str」などと先頭につけています）
Dim strX as String
String⇒変数の型です 型について（別窓）>>
●Static ステートメント 静的変数
Static xxx as Integer
宣言されたモジュールがリセットされるか再実行されるまで値を保持します。
●Private ステートメント プライベート変数
Private intX as Integer
モジュール先頭部分で宣言。モジュール内からしか参照できないグローバル変数。
●Public ステートメント パブリック変数
Public intX as Integer
モジュール先頭部分で宣言。他のモジュールからも参照できるグローバル変数。
配列 Ｄｉｍｅｎｓｉｏｎ（次元）
●Dim x(9) as Integer '一次元配列
⇒x(0),x(1),x(2)...x(9) の１０個の変数が用意されます。
●Dim x(9,9) as integer '二次元配列
⇒
x(0,0):x(0,1):x(0,2):x(0,3):x(0,4):x(0,5):x(0,6):x(0,7):x(0,8):x(0,9):
x(1,0):x(1,1):x(1,2):x(1,3):x(1,4):x(1,5):x(1,6):x(1,7):x(1,8):x(1,9):
x(2,0):x(2,1):x(2,2):x(2,3):x(2,4):x(2,5):x(2,6):x(2,7):x(2,8):x(2,9):
x(3,0):x(3,1):x(3,2):x(3,3):x(3,4):x(3,5):x(3,6):x(3,7):x(3,8):x(3,9):
x(4,0):x(4,1):x(4,2):x(4,3):x(4,4):x(4,5):x(4,6):x(4,7):x(4,8):x(4,9):
x(5,0):x(5,1):x(5,2):x(5,3):x(5,4):x(5,5):x(5,6):x(5,7):x(5,8):x(5,9):
x(6,0):x(6,1):x(6,2):x(6,3):x(6,4):x(6,5):x(6,6):x(6,7):x(6,8):x(6,9):
x(7,0):x(7,1):x(7,2):x(7,3):x(7,4):x(7,5):x(7,6):x(7,7):x(7,8):x(7,9):
x(8,0):x(8,1):x(8,2):x(8,3):x(8,4):x(8,5):x(8,6):x(8,7):x(8,8):x(8,9):
x(9,0):x(9,1):x(9,2):x(9,3):x(9,4):x(9,5):x(9,6):x(9,7):x(9,8):x(9,9):
↑100個の変数
表計算シートのように使えます。
●Dim x(9,9,3) as Integer '三次元配列
立体的な概念。表計算シートのそれぞれのセルに属性を持たせるような感じで使えます。
便利ですが、メモリ消費も多いです。
動的配列
ReDim （再宣言して配列の長さを変更する）
ReDim Preserve （それまでの配列内情報を保持したまま配列の長さを変更する）
'使い方
Dim x() As Integer '一旦、()として宣言
Dim i As Integer 'カウンタ
For i = 0 To 10
ReDim Preserve x(i) As Integer '配列を再定義
x(i) = i
Next
For i = 0 To 10
Debug.Print "x(" & i & ")=" & i ’配列の書き出し
Next
'結果
x(0)=0
x(1)=1
x(2)=2
x(3)=3
x(4)=4
x(5)=5
x(6)=6
x(7)=7
x(8)=8
x(9)=9
x(10)=10
上の使い方では、「i」の値が０〜１０と固定されているため意味がありませんが、それがユーザーに入力してもらうなどして、予測できない場合には有効です。
固定長文字列
Sub abc()
Dim strX As String * 10
strX = "abcdefghijklmnop"
Debug.Print strX
End Sub
変数strXには、「abcdefghij」の１０文字が収められています
定数
Dim PAI as Integer = 3.14
x = r * r * PAI '円の面積を求める