練習問題4（Ifの練習）解答

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

練習問題4（Ifの練習）解答

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

マクロVBA練習問題

・箱数とバラ数を計算して、それぞれの列に入れて下さい。
・1箱に満たない場合は、D列の箱数に"×"を入れて下さい。

※入数とは、1箱に入る数量です。

　　商品1なら、箱数1、バラ数3となります。

※商と余り

　　商：数値1 \ 数値2
　　余り：数値1 Mod 数値2
　　または、
　　商： Int(数値1 / 数値2)
　　余り：数値1 - (Int(数値1 / 数値2) * 数値2)

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

　Ａ　　　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ

日付	納品数	入数	箱数	バラ数
商品1	15	12
商品2	95	6
商品3	49	24
商品4	96	10
商品5	5	16
商品6	36	8
商品7	93	8
商品8	78	24
商品9	95	36
商品10	93	20
商品11	82	10
商品12	10	15
商品13	9	16
商品14	9	6
商品15	28	14
商品16	98	18
商品17	30	5
商品18	92	22
商品19	7	26
商品20	88	12

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

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

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

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


  
    
      Sub 練習問題4_1()

      　　Dim i As Long

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

      　　　　Cells(i, 4) = Int(Cells(i, 2) / Cells(i, 3))

      　　　　Cells(i, 5) = Cells(i, 2) - (Cells(i, 4) * Cells(i, 3))

      　　　　If Cells(i, 4) = 0 Then

      　　　　　　Cells(i, 4) = "×"

      　　　　End If

      　　Next

      End Sub


  
    
      Sub 練習問題4_2()

      　　Dim i As Long

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

      　　　　If Cells(i, 2) < Cells(i, 3) Then

      　　　　　　Cells(i, 4) = "×"

      　　　　　　Cells(i, 5) = Cells(i, 2) Mod Cells(i, 3)

      　　　　Else

      　　　　　　Cells(i, 4) = Cells(i, 2) \ Cells(i, 3)

      　　　　　　Cells(i, 5) = Cells(i, 2) Mod Cells(i, 3)

      　　　　End If

      　　Next

      End Sub

今回は２通りの書き方で回答しています。
Ifの使い方によって、書き方は千差万別となります。
だからこそ、Ifステートメンが重要なのです。

ここでは考え方が重要になります。
「1箱に満たない」これを、
練習問題4_1では、箱数が0になったらと考え
練習問題4_2では、納品数<入数と考えたということになります。
このような問題に対する解決方法を、
事前に文章化して整理する事が重要です。

Ifステートメントこそ、プログラムの基本です。
プログラムはIfに始まりIfに終わる、と言っても過言ではありません。

以下も参考にして下さい。

ExcelマクロVBA入門.第20回.条件分岐（If）

ある条件の時だけ処理したい、ある条件の時は処理したくない、そのような条件によって処理内容を変更したい場合があります。VBAで条件により処理を分岐させたい場合に使うのが、Ifステートメントです。マクロVBAで自動化する場合の多くは、条件により処理を変えつつ一定回数繰り返すという事です。

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

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

1.生成AIパスポート試験練習問題（四肢択一式）｜生成AI活用研究
2.最終行の取得（End,Rows.Count）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.RangeとCellsの使い方｜VBA入門
7.FILTER関数（範囲をフィルター処理）｜エクセル入門
8.日本の祝日一覧｜Excelリファレンス
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.セルのクリア（Clear,ClearContents）｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題4（Ifの練習）解答

このサイトがお役に立ちましたら「シェア」「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練習問題解答
練習問題4（Ifの練習）解答