VBAで「最終行の取得」を使って見よう

目安時間:約 2分

行数は随時変化するので、VBAで最終行を取得し、ループする範囲を設定するやり方について勉強したことを記載します。

 

「最終行の取得」の勉強の課題として下記の条件を設定しました。

 

【課題】
金額を計算して、D列に設定
※金額 = 商品数 × 単価

 

 

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

 

Sub 金額()
Dim k As Long
For k = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(k, 4) = Cells(k, 2) * Cells(k, 3)
Next
End Sub

 

簡単な説明
・「Cells(Rows.Count, 1).End(xlUp).Row」は、最終行の取得するのでこの場合は、「21」になる
・「For」ループ範囲は、2〜21になる
・「Cells(k, 2)」は、商品数行
・「Cells(k, 3)」は、単価行
・「Cells(k, 4)」は、金額行

 

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

 

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

 

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

 

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

 

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

コメントフォーム

名前

メールアドレス

URL

コメント

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

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

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

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

 

最近の投稿
アーカイブ

ページの先頭へ