VBA

VBAで「変数を使って合計を計算」する

目安時間 3分
  • コピーしました

プログラミングには、「変数」を必ず使用します。
簡単なプログラミングなら使わないかもしれませんけどね。
なので、変数の使い方は必ず覚えなければなりません。
変数が使えるようになると、プログラミングも組みやすくなりますよ。
では、変数を使うプログラミングの課題を出して勉強して行きましょう。
【課題】
・数量 * 単価を計算して、金額列に設定
・金額列の合計を計算し、最終行の22行目の金額列に設定

【VBA】
ボタンを追加してVBAが実施出来るようにしました。

Sub variable()
Dim i As Long
Dim lngTotal As Long
Dim lastRow As Long
lngTotal = 0
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
    Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
    lngTotal = lngTotal + Cells(i, 4)
Next
Cells(lastRow + 1, 4) = lngTotal
End Sub


簡単な説明
・「Dim i As Long」「Dim lngTotal As Long」「Dim lastRow As Long」が変数です
・「lastRow = Cells(Rows.Count, 1).End(xlUp).Row」は以前説明をしたのでこちらを御覧ください
・「Cells(i, 4) = Cells(i, 2) * Cells(i, 3)」は、金額の計算
・「lngTotal = lngTotal + Cells(i, 4)」は、各行の金額を足す
・「Cells(lastRow + 1, 4) = lngTotal」は、最終行の22行目の金額列に設定

あなたのお役に立てるなら、コピーして使用してください。

今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。

VBA開発もしておりますので開発のご要望があればご連絡をください。

VBA開発依頼受付はこちらから

  • コピーしました

この記事に関連する記事一覧

この記事を書いた人

すーさん

生きるためにはお金が必要

すーさん

50歳、派遣社員。いつもいつも派遣切りにビクビクしながら生きています。50歳になった途端、次の就職先が中々見つからず、生活のため嫌な仕事でも断らず進んで行っていました。それと同時に副業も始めました。今では副業で稼ぐことができるようになったので、嫌な仕事は断ることができ、仕事がなくなっても贅沢はできませんが生活はできます。このブログは、副業を行うために学習した情報を公開しております。子供が私立の中学校に行っているので学費もかかるので持っと稼がなければ・・・ この情報が少しでもあなたにお役に立てばと思います。 お問い合わせ

コメントフォーム

名前  (必須)

メールアドレス (公開されません) (必須)

URL (空白でもOKです)

コメント

CAPTCHA


トラックバックURL: