演算を理解する – Excelメモ

今回は演算についてメモしておきます。

代入演算子

"="を使うことで右辺を左辺に代入します。

実行プログラム

Sub Sample1_4_1()

    Dim strBuff As String

    strBuff = "Excel VBA"

End Sub

Sub Sample1_4_1()

Dim strBuff As String

strBuff = "Excel VBA"

End Sub

実行結果

算術演算

演算	演算子	説明
加算	+	2つの数値を加算した値を返します。
減算	–	2つの数値の差を返します｡
乗算	*	2つの数値の積を返します。
除算	/	2つの数値の商を浮動小数点で返します。
べき乗	^	指数演算の結果を返します。
整数の除算	\	2つの数値の商を整数で返します。
剰余演算	Mod	被除数を除数で割った余りを返します

実行プログラム

Sub Sample1_4_2()

    ' ＋演算子
    Cells(1, 4).Value = Cells(1, 2).Value + Cells(1, 3).Value

    ' －演算子
    Cells(2, 4).Value = Cells(2, 2).Value - Cells(2, 3).Value
    
    ' ＊演算子
    Cells(3, 4).Value = Cells(3, 2).Value * Cells(3, 3).Value
    
    ' ／演算子
    Cells(4, 4).Value = Cells(4, 2).Value / Cells(4, 3).Value

    ' ＾演算子
    Cells(5, 4).Value = Cells(5, 2).Value ^ Cells(5, 3).Value

    ' ￥演算子
    Cells(6, 4).Value = Cells(6, 2).Value \ Cells(6, 3).Value
    
    ' Mod演算子
    Cells(7, 4).Value = Cells(7, 2).Value Mod Cells(7, 3).Value

End Sub

Sub Sample1_4_2()

' ＋演算子

Cells(1, 4).Value = Cells(1, 2).Value + Cells(1, 3).Value

' －演算子

Cells(2, 4).Value = Cells(2, 2).Value - Cells(2, 3).Value

' ＊演算子

Cells(3, 4).Value = Cells(3, 2).Value * Cells(3, 3).Value

' ／演算子

Cells(4, 4).Value = Cells(4, 2).Value / Cells(4, 3).Value

' ＾演算子

Cells(5, 4).Value = Cells(5, 2).Value ^ Cells(5, 3).Value

' ￥演算子

Cells(6, 4).Value = Cells(6, 2).Value \ Cells(6, 3).Value

' Mod演算子

Cells(7, 4).Value = Cells(7, 2).Value Mod Cells(7, 3).Value

End Sub

実行結果

D列が演算結果です。

比較演算子

演算	演算子	説明
等しい	=	1番目の式の値と2番目の式の値が等しいかどうか
等しくない	<>	1番目の式の値と2番目の式の値が等しくないかどうか
小なり	<	1番目の式の値が2番目の式の値より小さいかどうか
大なり	>	1番目の式の値が2番目の式の値より大きいかどうか。
<=	以下	1番目の式の値が2番目の式の値以下かどうか
>=	以上	1番目の式の値が2番目の式の値以上かどうか

実行プログラム

Sub Sample1_4_3()

    ' =演算子
    If Cells(1, 2).Value = Cells(1, 3).Value Then Cells(1, 4).Value = "等しい"

    ' <>演算子
    If Cells(2, 2).Value <> Cells(2, 3).Value Then Cells(2, 4).Value = "等しくない"

    ' <演算子
    If Cells(3, 2).Value < Cells(3, 3).Value Then Cells(3, 4).Value = "小さい"

    ' >演算子
    If Cells(4, 2).Value > Cells(4, 3).Value Then Cells(4, 4).Value = "大きい"

    ' <=演算子
    If Cells(5, 2).Value <= Cells(5, 3).Value Then Cells(5, 4).Value = "以下"
    If Cells(6, 2).Value <= Cells(6, 3).Value Then Cells(6, 4).Value = "以下"

    ' >=演算子
    If Cells(7, 2).Value >= Cells(7, 3).Value Then Cells(7, 4).Value = "以上"
    If Cells(8, 2).Value >= Cells(8, 3).Value Then Cells(8, 4).Value = "以上"

End Sub

Sub Sample1_4_3()

' =演算子

If Cells(1, 2).Value = Cells(1, 3).Value Then Cells(1, 4).Value = "等しい"

' <>演算子

If Cells(2, 2).Value <> Cells(2, 3).Value Then Cells(2, 4).Value = "等しくない"

' <演算子

If Cells(3, 2).Value < Cells(3, 3).Value Then Cells(3, 4).Value = "小さい"

' >演算子

If Cells(4, 2).Value > Cells(4, 3).Value Then Cells(4, 4).Value = "大きい"

' <=演算子

If Cells(5, 2).Value <= Cells(5, 3).Value Then Cells(5, 4).Value = "以下"

If Cells(6, 2).Value <= Cells(6, 3).Value Then Cells(6, 4).Value = "以下"

' >=演算子

If Cells(7, 2).Value >= Cells(7, 3).Value Then Cells(7, 4).Value = "以上"

If Cells(8, 2).Value >= Cells(8, 3).Value Then Cells(8, 4).Value = "以上"

End Sub

実行結果

論理演算子

演算	演算子	説明
論理積	And	2つの式の論理積を求めます
論理同値比較	Eqv	2つの式での論理同値比較を実行します
論理包含	Imp	2つの式に対する論理包含を実行
論理否定	Not	式に対する論理否定を実行します
論理和演算	Or	2つの式に対して論理和演算を実行します
排他的論理演算	Xor	2つの式に対して排他的論理演算を実行します