練習問題20（総合練習2）解答

最終更新日：2019-11-03

練習問題20（総合練習2）解答

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

マクロVBA練習問題

・「元表」を下の「出来上がりサンプル」のようにして下さい。
・月が変わったら１行挿入して、挿入した行に月の合計売上を入れて下さい。
　A列に、○月合計
　B列に、売上の合計
　それぞれ太字にして下さい。

※下に出来上がりサンプルがあります。

練習問題用のExcelファイル

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

元表
　　Ａ　　　　Ｂ

日付	売上
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)してください。

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

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

マクロVBA入門シリーズでは、Excelマクロを実務で自在に扱えるようになる事を目的として、始めはより詳しく丁寧に解説しつつ、少しずつ難易度を上げることで無理なく学習を進められるようにしています。VBAはExcelの操作を自動化するマクロ機能で使われているプログラミング言語です。

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

マクロ練習問題解答

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


  
    
      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練習問題解答」の記事

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.RangeとCellsの使い方｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.マクロって何？VBAって何？｜VBA入門
10.セルに文字を入れるとは（Range,Value）｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題20（総合練習2）解答

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

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

VBA練習問題解答
練習問題20（総合練習2）解答