総合練習問題1解答｜VBA練習問題解答

公開日：2013年5月以前　最終更新日：2019-11-03

第19回.総合練習問題1解答

マクロVBA練習問題の解答ページです。

マクロVBA練習問題

マクロVBA入門で今までに説明した、

この「VBA入門」シリーズは、マクロVBAを習得し、日々のExcel作業を効率化・自動化できるようになることを目指します。VBAが初めての方でも無理なくステップアップできるよう、基礎から丁寧に、そして段階的に解説を進めます。そのため、シリーズ後半では入門レベルに留まらず、実務レベルで通用する高度なテクニックや幅広い知…

For～Next
最終行の取得
四則演算

以上を使って、以下の練習問題をやりましょう。

上記表で、A列の単価×B列の数量を計算して、C列の金額を出して下さい。

ヒント！

For Nextで2行目から表の最終行まで単価×数量を計算してしてください。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

マクロVBA練習問題解答

では解答のマクロVBAコードです。
※.Valueは適宜省略しています。


  
    
      Sub 練習1()

      　　Dim i As Long

      　　For i = 2 To Cells(Rows.Count, 
1).End(xlUp).Row

      　　　　Cells(i, 3) = Cells(i, 1) * Cells(i, 2)

      　　Next 
i

      End Sub

※.Valueは省略しています。

上記の場合ですと、
Cells(Rows.Count, 1).End(xlUp).Row
これは、
Cells(1, 1).End(xlDown).Row

これでも同じですが、通常は、End(xlUp)を使うようにして下さい。
回答のマクロVBAコードについては解説は不要でしょう。

もし、これが書けなかった場合は、
前回までの内容を、再度確認して下さい。

また、
上記回答は、定型文として丸暗記して下さい。
理屈抜きで、そのまま書けるように練習して下さい。

今回は、For～Nextでと言う事だったのですが、
Do～Loopを使って書くと、


  
    
      Sub 練習2()

      　　Dim i As Long

      　　i = 2

      　　Do While Cells(i, 1) <> 
""

      　　　　Cells(i, 3) = Cells(i, 1) * Cells(i, 2)

      　　　　i = i + 
1

      　　Loop

      End Sub

Do While Cells(i, 1) <> ""
これは、
Do Until Cells(i, 1) = ""
これでもよいです。

セルに値が入っていないかの判定を、
""（連続ダブルクォーテーション）で判定しています。
"（ダブルクォーテーション）で文字を囲むわけですが、
その文字が空っぽで無い状態という事です。

同じテーマ「マクロVBA練習問題解答」の記事

第19回.総合練習問題1解答
第26回.総合練習問題2解答
 第30回.総合練習問題3解答
 第36回.総合練習問題4解答
 第43回.総合練習問題5解答
 第50回.総合練習問題6解答
 第67回.総合練習問題7解答
 第78回.総合練習問題8解答
 第81回.総合練習問題9解答
 第86回.総合練習問題10解答
 練習問題1（For～Nextの練習）解答

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA練習問題解答
総合練習問題1解答

第19回.総合練習問題1解答

マクロVBA練習問題

シンキングタイム

マクロVBA練習問題解答

同じテーマ「マクロVBA練習問題解答」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング・・・ランキング一覧を見る

第19回.総合練習問題1解答

マクロVBA練習問題

シンキングタイム

マクロVBA練習問題解答

同じテーマ「マクロVBA練習問題解答」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

アクセスランキング・・・ランキング一覧を見る