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開発依頼受付はこちらから

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

コメントフォーム

名前

メールアドレス

URL

コメント

トラックバックURL: 
プロフィール

50歳、派遣社員。いつもいつも派遣切りにビクビクしながら生きています。50歳という大台を迎えると派遣先がほとんどなく、次の派遣先は無いに等しい。でも、家庭を支えなければならない。だから私は、複数の仕事が出来るように在宅ワークが出来るプログラミング、ブログを選択。50歳からフリーランスを目指してプログラミング、ブログを始めました。

私と一緒に始めませんか?

お問い合わせ
プログラミング依頼

 

最近の投稿
アーカイブ

ページの先頭へ