Excel VBAの演算子：データ処理を効率化するための基本構文

Sub ArithmeticOperations()
    ' 変数の宣言
    Dim a As Integer
    Dim b As Integer
    Dim sum As Integer
    Dim difference As Integer
    Dim product As Integer
    Dim quotient As Double
    Dim power As Double
    Dim remainder As Integer

    ' 変数に値を代入
    a = 10
    b = 3

    ' 算術演算
    sum = a + b
    difference = a - b
    product = a * b
    quotient = a / b
    power = a ^ b
    remainder = a Mod b

    ' 結果の表示
    MsgBox "Sum: " & sum
    MsgBox "Difference: " & difference
    MsgBox "Product: " & product
    MsgBox "Quotient: " & quotient
    MsgBox "Power: " & power
    MsgBox "Remainder: " & remainder
End Sub

Sub ComparisonOperations()
    ' 変数の宣言
    Dim a As Integer
    Dim b As Integer

    ' 変数に値を代入
    a = 10
    b = 20

    ' 比較演算
    If a = b Then
        MsgBox "a is equal to b"
    ElseIf a <> b Then
        MsgBox "a is not equal to b"
    End If

    If a > b Then
        MsgBox "a is greater than b"
    ElseIf a < b Then
        MsgBox "a is less than b"
    End If

    If a >= b Then
        MsgBox "a is greater than or equal to b"
    ElseIf a <= b Then
        MsgBox "a is less than or equal to b"
    End If
End Sub

Sub LogicalOperations()
    ' 変数の宣言
    Dim x As Boolean
    Dim y As Boolean

    ' 変数に値を代入
    x = True
    y = False

    ' 論理演算
    If x And y Then
        MsgBox "Both x and y are True"
    ElseIf x Or y Then
        MsgBox "Either x or y is True"
    End If

    If Not x Then
        MsgBox "x is False"
    Else
        MsgBox "x is True"
    End If
End Sub

Sub StringOperations()
    ' 変数の宣言
    Dim firstName As String
    Dim lastName As String
    Dim fullName As String

    ' 変数に値を代入
    firstName = "John"
    lastName = "Doe"

    ' 文字列の結合
    fullName = firstName & " " & lastName

    ' 結果の表示
    MsgBox "Full Name: " & fullName
End Sub