練習問題20（総合練習2）回答
練習問題20の回答ページです、
・月が変わったら、１行追加して下し、追加行に月の合計売上を入れて下さい。
B列に、売上の合計
それぞれ太字にして下さい。
Ａ Ｂ
| 日付 | 売上 |
| 1月1日 | 72778 |
| 1月2日 | 50131 |
| 1月3日 | 53199 |
| 1月4日 | 19689 |
| 1月5日 | 51958 |
| 1月6日 | 47925 |
| 1月7日 | 59398 |
| 1月8日 | 90072 |
| 1月9日 | 34529 |
| 1月10日 | 31438 |
| 1月11日 | 68503 |
| 1月12日 | 50072 |
| 1月13日 | 79666 |
| 1月14日 | 65678 |
| 1月15日 | 54750 |
| 1月16日 | 10675 |
| 1月17日 | 69021 |
| 1月18日 | 83697 |
| 1月19日 | 85693 |
| 1月20日 | 61482 |
| 1月21日 | 33488 |
| 1月22日 | 30215 |
| 1月23日 | 38957 |
| 1月24日 | 28897 |
| 1月25日 | 84546 |
| 1月26日 | 99548 |
| 1月27日 | 20791 |
| 1月28日 | 41829 |
| 1月29日 | 53036 |
| 1月30日 | 78958 |
| 1月31日 | 61127 |
| 2月1日 | 84110 |
| 2月2日 | 10899 |
| 2月3日 | 75030 |
| 2月4日 | 21923 |
| 2月5日 | 26074 |
| 2月6日 | 82228 |
| 2月7日 | 32832 |
| 2月8日 | 10172 |
| 2月9日 | 34976 |
| 2月10日 | 56789 |
| 2月11日 | 13350 |
| 2月12日 | 32685 |
| 2月13日 | 12884 |
| 2月14日 | 48129 |
| 2月15日 | 21450 |
| 2月16日 | 64164 |
| 2月17日 | 88569 |
| 2月18日 | 98465 |
| 2月19日 | 23664 |
| 2月20日 | 67282 |
| 2月21日 | 34529 |
| 2月22日 | 31438 |
| 2月23日 | 68503 |
| 2月24日 | 50072 |
| 2月25日 | 79666 |
| 2月26日 | 65678 |
| 2月27日 | 54750 |
| 2月28日 | 30215 |
出来上がりサンプル
| 1月1日 | 72778 |
| 1月2日 | 50131 |
| ・・・ | |
| 1月31日 | 61127 |
| 1月合計 | 1711746 |
| 2月1日 | 84110 |
| ・・・ | |
| 2月28日 | 30215 |
| 2月合計 | 1320526 |
※上記表の全体選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。
では、お考えください。
・・
・・・
・・・・
・・・・・
・・
・・・
・・・・
・・・・・
Sub 練習問題20()
Dim i As Long
Dim mm As Integer
Dim total As Long
i = 2
mm = Month(Cells(i, 1))
total = 0
Do Until Cells(i, 1) = ""
If mm <> Month(Cells(i, 1)) Then
Rows(i).Insert
Cells(i, 1) = mm & "月合計"
Cells(i, 2) = total
Range(Cells(i, 1), Cells(i, 2)).Font.Bold = True
total = 0
i = i + 1
mm = Month(Cells(i, 1))
End If
total = total + Cells(i, 2)
i = i + 1
Loop
Cells(i, 1) = mm & "月合計"
Cells(i, 2) = total
Range(Cells(i, 1), Cells(i, 2)).Font.Bold = True
End Sub
表を処理する場合、同一の表内で行挿入等が必要な場合は、ちょっと面倒になります。
For〜Nextでカウントアップせずに、
Do〜Loopで自分でカウントアップした方が良いと言う事です。
同じテーマ「マクロVBA練習問題解答」の記事
練習問題17（ブック・シートの操作の練習）回答
練習問題18（Dir関数の練習）回答
練習問題19（総合練習1）回答
練習問題20（総合練習2）回答
練習問題21（総合練習3）回答
練習問題22（総合練習4）回答
練習問題23（総合練習5）回答
練習問題24（再帰呼出し）回答
練習問題25（各種VBA関数）回答
練習問題26（全シート処理とハイパーリンク）回答
練習問題27（データ分割し別ブック保存）回答
新着記事NEW ・・・新着記事一覧を見る
クラスとCallByNameとポリモーフィズム(多態性)｜VBA技術解説（4月6日）
VBAでのタイマー処理（SetTimer,OnTime）｜VBA技術解説（4月3日）
クラスとイベントとマルチプロセス並列処理｜VBA技術解説（4月2日）
エクセルの日付と時刻のまとめ｜エクセル関数超技（3月6日）
Excelシートの複雑な計算式を解析するVBA｜VBAサンプル集（2月18日）
VBAクラスの作り方：独自Rangeっぽいものを作ってみた｜VBA技術解説（2月16日）
VBAクラスの作り方：列名のプロパティを自動作成する｜VBA技術解説（2月14日）
VBAクラスの作り方：列名の入力支援と列移動対応｜VBA技術解説（2月11日）
クラスを使って他ブックのイベントを補足する｜VBA技術解説（2月6日）
Excelアドインの作成と登録について｜VBA技術解説（2月3日）
アクセスランキング ・・・ ランキング一覧を見る
1.ひらがな⇔カタカナの変換｜エクセル基本操作
2.最終行の取得（End,Rows.Count）｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.変数とデータ型（Dim）｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.繰り返し処理（For Next)｜ExcelマクロVBA入門
9.とにかく書いて見よう（Sub,End Sub）｜VBA入門
10.セルに文字を入れるとは（Range,Value）｜VBA入門
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。