プログラミングには、「変数」を必ず使用します。
簡単なプログラミングなら使わないかもしれませんけどね。
なので、変数の使い方は必ず覚えなければなりません。
変数が使えるようになると、プログラミングも組みやすくなりますよ。
では、変数を使うプログラミングの課題を出して勉強して行きましょう。
【課題】
・数量 * 単価を計算して、金額列に設定
・金額列の合計を計算し、最終行の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開発依頼受付はこちらから
コメントフォーム