【VBAリファレンス】VBAの基礎の基礎！演算子とオペランドで理解を深めるプログラミング入門

概要

VBA（Visual Basic for Applications）を学習する上で、避けては通れないのが「演算子」と「オペランド」の概念です。これらは、プログラミングにおける計算やデータ操作の根幹をなす要素であり、これらを理解することで、より複雑な処理もスムーズに記述できるようになります。本記事では、VBA初心者の方を対象に、演算子とオペランドの基本的な種類から、それらを組み合わせた具体的な使い方までを、豊富なサンプルコードと共に丁寧に解説します。この解説を通じて、VBAプログラミングの第一歩を確かなものにし、学習のモチベーションを高めていきましょう。

演算子とは？計算や比較を行うための記号

演算子とは、特定の操作（計算、比較、論理演算など）を実行するための記号やキーワードのことです。様々な種類の演算子がありますが、ここではVBAでよく使用されるものを中心に紹介します。

算術演算子：数値計算の基本

算術演算子は、数値を演算するための記号です。四則演算はもちろん、べき乗や剰余（余り）を求める演算子もあります。

• + (加算): 数値同士を足し合わせます。例: 5 + 3 は 8 になります。
• - (減算): 数値から数値を引きます。例: 10 - 4 は 6 になります。
• * (乗算): 数値同士を掛け合わせます。例: 6 * 7 は 42 になります。
• / (除算): 数値を別の数値で割ります。結果は小数点以下を含む浮動小数点数になります。例: 10 / 4 は 2.5 になります。
• \ (整数除算): 数値を別の数値で割り、結果の整数部分のみを取得します。例: 10 \ 4 は 2 になります。
• Mod (剰余): 数値を別の数値で割ったときの余りを取得します。例: 10 Mod 4 は 2 になります。
• ^ (べき乗): 数値を指定した回数だけ掛け合わせます。例: 2 ^ 3 は 8 (2 × 2 × 2) になります。

文字列連結演算子：文字列を繋げる

文字列連結演算子は、二つの文字列を繋げて一つの文字列にするために使用します。

• & (アンパサンド): 文字列を連結します。数値も文字列として連結されます。例: "Hello" & " " & "World" は "Hello World" になります。"Age: " & 30 は "Age: 30" になります。

比較演算子：値の大小や一致を調べる

比較演算子は、二つの値を比較し、その結果を真偽値（TrueまたはFalse）で返します。

• = (等しい): 両方の値が等しい場合にTrueを返します。例: 5 = 5 は True、5 = 3 は False になります。
• <> (等しくない): 両方の値が等しくない場合にTrueを返します。例: 5 <> 3 は True、5 <> 5 は False になります。
• < (より小さい): 左の値が右の値より小さい場合にTrueを返します。例: 3 < 5 は True、5 < 3 は False になります。
• > (より大きい): 左の値が右の値より大きい場合にTrueを返します。例: 5 > 3 は True、3 > 5 は False になります。
• <= (以下): 左の値が右の値以下の場合にTrueを返します。例: 3 <= 5 は True、5 <= 5 は True になります。
• >= (以上): 左の値が右の値以上の場合にTrueを返します。例: 5 >= 3 は True、5 >= 5 は True になります。
• Is (オブジェクトの同一性): 二つのオブジェクト変数が同じオブジェクトを参照している場合にTrueを返します。

論理演算子：複数の条件を組み合わせる

論理演算子は、複数の真偽値を組み合わせて、一つの真偽値を生成します。

• And: 両方の条件がTrueの場合にTrueを返します。例: (5 > 3) And (10 < 20) は True And True で True になります。
• Or: いずれかの条件がTrueの場合にTrueを返します。例: (5 < 3) Or (10 > 20) は False Or False で False になります。(5 > 3) Or (10 < 20) は True Or True で True になります。
• Not: 条件の真偽を反転させます。例: Not (5 < 3) は Not False で True になります。
• Xor: いずれか一方の条件のみがTrueの場合にTrueを返します。
• Eqv: 両方の条件が同じ真偽値の場合にTrueを返します。
• Imp: 左がTrueで右がFalseの場合のみFalseを返します。

代入演算子：値を変数に格納する

代入演算子は、右辺の値を左辺の変数に格納するために使用します。

• = (代入): 右辺の値を左辺の変数に代入します。例: Dim myValue As Integer: myValue = 10

オペランドとは？演算子の対象となる値や変数

オペランドとは、演算子が作用する対象のことです。数値、文字列、変数、あるいは他の演算の結果など、様々なものがオペランドになり得ます。

• リテラル: 直接記述された値のことです。数値リテラル（10, 3.14）、文字列リテラル（"Hello", "VBA"）などがあります。
• 変数: 値を格納しておくための名前付きのメモリ領域です。例: myNumber, userName
• プロパティ: オブジェクトの属性を表す値です。例: Range("A1").Value, ActiveSheet.Name
• 配列要素: 配列内の特定の要素です。例: myArray(3)
• 関数呼び出しの結果: 関数が返した値もオペランドになり得ます。例: Len("VBA")
• 別の演算の結果: 複雑な式では、演算の結果がさらに別の演算のオペランドになります。

演算子とオペランドの組み合わせ：具体的なコード例

それでは、演算子とオペランドを組み合わせて、実際にVBAコードを書いてみましょう。

算術演算子の例

2つの数値を足し合わせて、結果をメッセージボックスに表示します。

Sub ArithmeticOperatorExample()
    Dim num1 As Integer
    Dim num2 As Integer
    Dim sum As Integer

    num1 = 10
    num2 = 5

    ' 加算
    sum = num1 + num2
    MsgBox "加算の結果: " & sum ' 結果: 15

    ' 減算
    Dim difference As Integer
    difference = num1 - num2
    MsgBox "減算の結果: " & difference ' 結果: 5

    ' 乗算
    Dim product As Integer
    product = num1 * num2
    MsgBox "乗算の結果: " & product ' 結果: 50

    ' 除算 (小数点以下あり)
    Dim divisionResult As Double
    divisionResult = num1 / num2
    MsgBox "除算の結果: " & divisionResult ' 結果: 2

    ' 整数除算 (小数点以下切り捨て)
    Dim integerDivisionResult As Integer
    integerDivisionResult = num1 \ 3 ' 10 \ 3
    MsgBox "整数除算の結果: " & integerDivisionResult ' 結果: 3

    ' 剰余
    Dim remainder As Integer
    remainder = num1 Mod 3 ' 10 Mod 3
    MsgBox "剰余の結果: " & remainder ' 結果: 1

    ' べき乗
    Dim powerResult As Double
    powerResult = 2 ^ 3 ' 2の3乗
    MsgBox "べき乗の結果: " & powerResult ' 結果: 8
End Sub

文字列連結演算子の例

氏名と年齢を組み合わせて表示します。

Sub StringConcatenationExample()
    Dim firstName As String
    Dim lastName As String
    Dim fullName As String
    Dim age As Integer

    firstName = "太郎"
    lastName = "山田"
    age = 30

    ' 文字列を連結
    fullName = lastName & firstName
    MsgBox "氏名: " & fullName ' 結果: 山田太郎

    ' 文字列と数値を連結
    Dim message As String
    message = "氏名: " & lastName & firstName & ", 年齢: " & age & "歳"
    MsgBox message ' 結果: 氏名: 山田太郎, 年齢: 30歳
End Sub

比較演算子の例

条件分岐 (If文) で比較演算子を使ってみましょう。

Sub ComparisonOperatorExample()
    Dim score As Integer
    score = 85

    ' 等しい
    If score = 100 Then
        MsgBox "満点です！"
    End If

    ' 等しくない
    If score <> 0 Then
        MsgBox "0点ではありません。"
    End If

    ' より大きい
    If score > 80 Then
        MsgBox "合格です！"
    End If

    ' 以下
    If score <= 70 Then
        MsgBox "もう少し頑張りましょう。"
    Else
        MsgBox "良い点数です。"
    End If
End Sub

論理演算子の例

複数の条件を組み合わせて、より詳細な判定を行います。

Sub LogicalOperatorExample()
    Dim age As Integer
    Dim income As Long ' 金額なのでLong型を使用

    age = 25
    income = 4000000 ' 400万円

    ' And: 年齢が20歳以上 かつ 収入が300万円以上
    If age >= 20 And income >= 3000000 Then
        MsgBox "条件を満たしています（And）。"
    End If

    ' Or: 年齢が18歳未満 または 収入が100万円未満
    If age < 18 Or income < 1000000 Then
        MsgBox "若年層または低所得者層です（Or）。"
    End If

    ' Not: 収入が500万円未満ではない (つまり500万円以上)
    If Not (income < 5000000) Then
        MsgBox "高所得者層です（Not）。"
    End If
End Sub

代入演算子の例

変数の値に別の値を代入します。

Sub AssignmentOperatorExample()
    Dim counter As Integer
    counter = 1 ' 初期値

    ' 値を代入
    counter = 5 ' counterは5になる

    ' 変数の値を更新
    counter = counter + 1 ' counterは6になる
    MsgBox "Counterの値: " & counter ' 結果: 6

    ' 文字列の代入
    Dim greeting As String
    greeting = "こんにちは"
    MsgBox greeting ' 結果: こんにちは
End Sub

VBAにおける演算子の優先順位

一つの式の中に複数の演算子が存在する場合、VBAは特定の順序で演算を実行します。これを「演算子の優先順位」と呼びます。優先順位の高い演算子から順に評価されます。例えば、2 + 3 * 4 という式では、乗算 (*) が加算 (+) よりも優先されるため、まず 3 * 4 が計算され、その結果に 2 が足されます ( 2 + 12 = 14 )。

優先順位が同じ演算子が並んでいる場合は、通常、左から右へと評価されます（例: 10 - 5 + 2 は (10 - 5) + 2 となり 7 になります）。

演算子の優先順位を明示的に制御したい場合は、括弧 (( )) を使用します。括弧内の式は、他の演算よりも先に評価されます。

Sub OperatorPrecedenceExample()
    Dim result1 As Integer
    Dim result2 As Integer

    ' 優先順位に従う場合: 乗算が先
    result1 = 2 + 3 * 4
    MsgBox "優先順位に従う場合: " & result1 ' 結果: 14

    ' 括弧で優先順位を変更: 加算が先
    result2 = (2 + 3) * 4
    MsgBox "括弧で優先順位を変更: " & result2 ' 結果: 20
End Sub

主な演算子の優先順位は以下の通りです（高い順）。

1. 算術演算子 (^, - (単項), *, /, \, Mod)
2. 論理演算子 (Not)
3. 論理演算子 (And)
4. 論理演算子 (Or)
5. 論理演算子 (Xor)
6. 論理演算子 (Eqv)
7. 論理演算子 (Imp)
8. 比較演算子 (=, <>, <, >, <=, >=, Is)

※文字列連結演算子 (&) は、通常、算術演算子より優先順位が低く、比較演算子より優先順位が高いとみなされます。

実務アドバイス：演算子とオペランドを効果的に活用するために

1. 変数の型を意識する

演算子、特に算術演算子や比較演算子は、オペランドのデータ型によって結果が変わることがあります。例えば、文字列として格納された数値をそのまま計算しようとするとエラーになります。必要に応じて CInt (整数に変換) や CDbl (浮動小数点数に変換) などの型変換関数を使用しましょう。

Sub TypeConversionExample()
    Dim strNum As String
    Dim intNum As Integer

    strNum = "100"
    ' intNum = strNum ' これはエラーになる可能性がある
    intNum = CInt(strNum) ' 文字列を整数に変換してから代入
    MsgBox intNum + 10 ' 結果: 110
End Sub

2. 命名規則を遵守する

オペランドとして使用する変数の名前は、その役割がわかるように命名しましょう。例えば、合計値を格納する変数なら totalAmount、カウントを表すなら counter のように、意味のある名前をつけることで、コードの可読性が向上し、演算子の誤用を防ぐことにも繋がります。

3. 複雑な式は分割する

演算子の優先順位に頼りすぎると、コードが読みにくくなることがあります。複雑な計算や条件判定を行う場合は、中間変数を使用したり、If文を複数に分けたりして、処理を段階的に記述することを心がけましょう。

Sub ComplexCalculationExample()
    ' 読みにくい例
    ' Dim result As Double
    ' result = (val1 + val2) * (val3 / val4) - val5 ^ 2

    ' 分割して読みやすくした例
    Dim tempSum As Double
    tempSum = val1 + val2

    Dim tempDivision As Double
    tempDivision = val3 / val4

    Dim tempPower As Double
    tempPower = val5 ^ 2

    Dim result As Double
    result = tempSum * tempDivision - tempPower

    MsgBox "計算結果: " & result
End Sub

4. 文字列連結は「&」演算子を推奨

VBAには文字列連結演算子として & と + がありますが、+ は数値の加算と区別がつきにくいため、一般的には & を使用することが推奨されています。

5. 比較演算子でのオブジェクト比較

オブジェクト（Rangeオブジェクト、Worksheetオブジェクトなど）を比較する際は、= ではなく Is 演算子を使用します。Is 演算子は、二つのオブジェクト変数がメモリ上の全く同じオブジェクトを参照しているかどうかを判定します。

Sub ObjectComparisonExample()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet1") ' 同じシートを参照

    If ws1 Is ws2 Then
        MsgBox "ws1とws2は同じシートを参照しています。"
    End If

    ' 別のシートを参照させる場合
    ' Set ws2 = ThisWorkbook.Sheets("Sheet2")
    ' If ws1 Is ws2 Then
    '     MsgBox "ws1とws2は同じシートを参照しています。" ' このメッセージは表示されない
    ' Else
    '     MsgBox "ws1とws2は異なるシートを参照しています。"
    ' End If
End Sub

まとめ

本記事では、VBAプログラミングの基本となる「演算子」と「オペランド」について、その種類と具体的な使い方を解説しました。算術演算子、文字列連結演算子、比較演算子、論理演算子、そして代入演算子。これらはVBAで処理を行う上で不可欠な要素です。オペランドとして、リテラル、変数、プロパティなどが利用できることを理解し、演算子の優先順位も考慮しながら、正確で効率的なコードを記述できるようになりましょう。

今回ご紹介した基礎知識をしっかりと身につけることで、より高度なVBAプログラミングへの道が大きく開かれます。ぜひ、今回学んだことを活かして、様々な VBA プログラミングに挑戦してみてください。