ExcelマクロVBA練習問題解答 | 練習問題4(Ifの練習)回答 | Excelマクロ練習問題集、エクセルVBAの学習教材



最終更新日:2015-10-22

練習問題4(Ifの練習)回答

練習問題4の回答ページです、


問題

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


※入数とは、1箱に入る数量です。
  商品1なら、箱数1、バラ数3となります。
※商と余り
  商 : 数値1 \ 数値2
  余り : 数値1 Mod 数値2
  または、
  商 : Int(数値1 / 数値2)
  余り : 数値1 - (Int(数値1 / 数値2) * 数値2)

 A     B   C   D   E
日付 納品数 入数 箱数 バラ数
商品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入門

ここで、じっくり勉強して下さい。



・・
・・・
・・・・
・・・・・




では、回答です。

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


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

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

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

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

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





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

練習問題5(ElseIfとSelect Caseの練習)回答
練習問題6(変数を使っての合計の練習)回答
練習問題7(メッセージボックスの練習)回答
練習問題8(表示形式の練習)回答
練習問題9(文字色・背景色の練習)回答
練習問題10(罫線の練習)回答
練習問題11(色々なコピーの練習)回答

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

大量VlookupをVBAで高速に処理する方法について|ExcelマクロVBA技術解説(12月12日)
オセロを作りながらマクロVBAを学ぼう|ExcelマクロVBAサンプル集(11月26日)
ScreenUpdating=False時にエラー停止後にシートが固まったら|ExcelマクロVBA技術解説(11月21日)
データクレンジングと名寄せ|ExcelマクロVBA技術解説(10月20日)
SUMIFの間違いによるパフォーマンスの低下について|エクセル関数超技(6月17日)
条件式のいろいろな書き方:TrueとFalseの判定とは|ExcelマクロVBA技術解説(6月15日)
空白セルを正しく判定する方法2|ExcelマクロVBA技術解説(5月6日)
フルパスをディレクトリ、ファイル名、拡張子に分ける|ExcelマクロVBA技術解説(4月15日)
テキストボックスの各種イベント|Excelユーザーフォーム入門(4月9日)
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除|ExcelマクロVBAサンプル集(4月4日)

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

1.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
2.RangeとCellsの使い分け方|ExcelマクロVBA入門
3.変数とデータ型(Dim)|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
6.定数と型宣言文字(Const)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.CSVの読み込み方法|ExcelマクロVBAサンプル集
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
10.ひらがな⇔カタカナの変換|エクセル基本操作



  • >
  • >
  • >
  • 練習問題4(Ifの練習)回答

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


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

    ↑ PAGE TOP