VBA(VB6)のプログラミング言語特性

JavaエンジニアがVBAを始めるにあたって、覚えておきたい内容を書き連ねたいと思います。

ローカル変数の宣言と初期化は別に行います。

Dim strVal as String
strVal = "初期値"

VBA の配列には「静的配列」と「動的配列」の２種類の配列が存在します。動的配列は要素数が決まっていない場合に使う配列です。

格納したデータを残したまま配列の要素数を変更する場合には、ReDim Preserve を指定します。

Dim A() As String
ReDim A(2)
A(0) = "山田"
A(1) = "鈴木"
A(2) = "佐藤"
 
ReDim Preserve A(3)
A(3) = "木村"
MsgBox Join(A) 'Joinは配列を結合して文字列を返す関数です

Variant 型は VB あるいは VBA 独自のどんな値でも入れることができる型です。また、変数の宣言時に型を指定しない場合、変数は自動的にVariant型になります。

Dim val 'Variant型として処理される
val = 123; '数値も入る
val = "文字列" '文字も入る
val = Date '日付も入る

ブロック単位のスコープがないことにご注意ください。

If bol = True Then
  Dim strVal as String
  strVal = "メッセージ"
End If
Msgbox strVal '正常に「メッセージ」が表示される

VBAコードは1行ごとに命令文を記述して実行されます。行の途中で改行したい場合は、「 _」半角スペース＋アンダースコアで改行することができます。

If A(0) = 100 And _
    A(1) = 100 And _
    A(2) = 100 And _
    A(3) = 100 And _
    A(4) = 100 Then
    MsgBox "○"
End If

Sub（メインプログラム）とFunction（プロシージャ：関数）のちがいは外部からの実行の有無と戻り値の有無です。

Function関数の戻り値は、「関数名 = 戻り値」で設定します。

Function FuncSample() As String
    FuncSample = "Hello World!" '戻り値の設定
End Function

途中で処理を終了するには、Exitステートメントを使います。

Dim i As Integer
For i = 1 To 5
    If i = 3 Then
        Exit For  'Forを抜ける
    End If
Next

GoToで任意のラベルにジャンプする

GoToステートメントは指定したラベルまで処理をジャンプさせることができます。ラベルは同じプロシージャ内だけで、他のプロシージャへジャンプさせることはできません。

GoToステートメントを多用するとプログラムが分かりにくくなるので、なるべく使わないようにしましょう。

Sub ExecGoTo()
    MsgBox "メッセージ1"
    GoTo Label1
    MsgBox "メッセージ2"  '実行されない
Label1:
    MsgBox "メッセージ3"
End Sub

条件分岐

'
' VBA
'
If 条件式1 Then
    処理1
ElseIf 条件式2 Then
    処理2
Else
    処理3
End If

//
// Java
//
if (条件1) {
    処理1;
} else if (条件2) {
    処理2;
} else {
    処理3;
}

繰り返し

'
' VBA
'
For 変数 = 初期値 To 到達値
    処理
Next

'
' VBA
'
Do While 条件式
    処理
Loop

//
// Java
//
for ( 変数 = 初期値; 条件式; 増分 ) {
    処理;
}

//
// Java
//
while (条件式) {
    処理;
}

以上、VBA特有の構文を並べました。