VBA再入門
セルの値を使って計算する（四則演算）

まずは足し算だけ、Cellsで書きましょう。
sub 練習5
Enter
TAB
cells(2,3)=cells(2,1)+cells(2,2)
Enter

このようになりましたね。
=や+の前後には、勝手に半角空白が入って見やすくなってくれます。
では入力カーソルが、
Sub 練習5 ～ End Sub の間にある状態で実行F5

C2セルに、
110
と表示されました。
セルの書き方は、セルに値を入れる時と同じですので、
Cells(2, 3) = Cells(2, 1) + Cells(2, 2)
Range("C2") = Range("A2") + Range("B2")
この2つは同じことです。
しかし、この場合のセル位置は移動する可能性が高そうですね、
こういう場合は、最初からCellsで書きましょう。
計算式の書き方は、シートでの計算式と同じなので、簡単ですね。

では、引き算、掛け算、割り算も書きましょう
足し算の下の行から、
cells(2, 4)=cells(2, 1)-cells(2, 2)
Enter
cells(2, 5)=cells(2, 1)*cells(2, 2)
Enter
cells(2, 6)=cells(2, 1)/cells(2, 2)
Enter

実行すると、

ちゃんと計算できました。
四則演算の記号については、シートの計算式と同じです。
+ 足し算
- 引き算
* 掛け算
/ 割り算
これは問題ないでしょう。

では、少しだけ複雑な計算をしてみましょう。
以下の計算をしてみましょう。

数量1と数量2を足し、税抜き単価を掛けて税抜き小計を求めます。
そして、税抜き小計に消費税(1.08)を掛けて税込み合計を求めます。

sub 練習6
Enter
TAB
cells(2,4)=cells(2,1)*(cells(2,2)+cells(2,3))
Enter
cells(2,5)=cells(2,4)*1.08
Enter

実行すると、

計算できました。
括弧がちょっと面倒ですね。
小学校で習いましたが、
掛け算と割り算を先に計算して、その後に足し算と引き算を行います。
エクセルは、これを忠実に守っていますので、
今回の場合は、足し算を先に行う必要があるので括弧()で囲んでいます。
110×(5+7)
Cellsで書くとちょっと混乱しますが、このように書けばわかるはずです。
それぞれの数値をCellsに置き換えれば完成します。
また、固定の数値は、このまま書けば良いです。
これは、シートでの計算と同じです。

税込み合計の小数が気になりますか・・・なりますよね。
四捨五入か切り捨てか、1円未満の端数処理が必要です。
シートなら、
=ROUND(D2*1.08,0)
四捨五入なら、このように書くでしょう。
切り捨てなら、INT関数を使うかもしれません。
何にしろ、関数が必要なんです。
マクロVBAでも同様に関数が必要です。
Cells(2, 5) = WorksheetFunction.Round(Cells(2, 4) * 1.08, 0)
このように書きます。
WorksheetFunctionって何？
関数についての詳細は、後々に説明します。
今は、シートで使う関数を書くときは、
WorksheetFunction.関数名(引数・・・)
このように書くものだと覚えてください。

第15回.四則演算と注釈（コメント）

第87回.WorksheetFunction（ワークシート関数を使う）

同じテーマの記事
新着記事
アクセスランク