VBA練習問題解答
練習問題30(マトリックス→リスト形式)解答

Excelマクロ練習問題集、エクセルVBAの学習教材
最終更新日:2019-11-03

練習問題30(マトリックス→リスト形式)解答

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


マクロVBA練習問題

売上と仕入の、支店別年度別のマトリックス表があります。
これをリスト形式(データベース形式)のデータに変換してください。
以下の表をみて下さい。
縦横の項目の交点に数値が入っていて、ピボットテーブルのようなマトリックス表になっています。
これを1行1件のデータに変換してください。
いわゆる、「リスト形式」「データベース形式」に変換するという事です。

A支店 B支店 C支店
売上 仕入 仕入比 売上 仕入 仕入比 売上 仕入 仕入比
2017年 実績 1419 752 53.0% 2167 1235 57.0% 1828 1169 63.9%
予算 1079 517 47.9% 1160 730 62.9% 1653 909 55.0%
2018年 売上 1328 717 54.0% 1666 949 57.0% 1932 1120 58.0%
仕入 1305 835 64.0% 2705 1406 52.0% 1538 922 59.9%
2019年 売上 1097 658 60.0% 2093 1318 63.0% 1518 819 54.0%
仕入 1385 803 58.0% 2599 1273 49.0% 2247 1325 59.0%
※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

練習問題用のExcelファイル
このような表はエクセルを使っている現場では良く見かけます。
画面で見たり、印刷するには良いのですが、
このデータを他で使おうとした時に不便を感じたことはあるのではないでしょうか。
そこで、関数等で扱いやすいように以下のようなリスト形式(データベース形式)に変換します。

支店 年度 科目 区分 金額
A支店 2017年 売上 実績 1419
A支店 2017年 仕入 実績 752
B支店 2017年 売上 実績 2167
B支店 2017年 仕入 実績 1235
C支店 2017年 売上 実績 1828
C支店 2017年 仕入 実績 1169
A支店 2017年 売上 予算 1079
A支店 2017年 仕入 予算 517
B支店 2017年 売上 予算 1160
B支店 2017年 仕入 予算 730
C支店 2017年 売上 予算 1653
C支店 2017年 仕入 予算 909
A支店 2018年 売上 売上 1328
A支店 2018年 仕入 売上 717
B支店 2018年 売上 売上 1666
B支店 2018年 仕入 売上 949
C支店 2018年 売上 売上 1932
C支店 2018年 仕入 売上 1120
A支店 2018年 売上 仕入 1305
A支店 2018年 仕入 仕入 835
B支店 2018年 売上 仕入 2705
B支店 2018年 仕入 仕入 1406
C支店 2018年 売上 仕入 1538
C支店 2018年 仕入 仕入 922
A支店 2019年 売上 売上 1097
A支店 2019年 仕入 売上 658
B支店 2019年 売上 売上 2093
B支店 2019年 仕入 売上 1318
C支店 2019年 売上 売上 1518
C支店 2019年 仕入 売上 819
A支店 2019年 売上 仕入 1385
A支店 2019年 仕入 仕入 803
B支店 2019年 売上 仕入 2599
B支店 2019年 仕入 仕入 1273
C支店 2019年 売上 仕入 2247
C支店 2019年 仕入 仕入 1325

新規シート「練習30_解答」を挿入し、A1セルか上記表を作成してください。
出力する科目は、「売上」「仕入」だけにして、「仕入比」は不要です。


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

シンキングタイム

シンキングタイム開始


シンキングタイム終了

当サイトのコンテンツ
ExcelマクロVBA入門
VBAはExcelの操作を自動化するマクロ機能で使われているプログラミング言語です。「VisualBasicApplications」の略になります。マクロVBA入門シリーズでは、始めはより詳しく丁寧に解説し、少しずつ難易度を上げることで無理なく学習を進められるようにしています。

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

マクロVBA練習問題解答

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

Sub 練習問題30()
  Dim ws1 As Worksheet
  Set ws1 = Worksheets("練習30")
  Dim ws2 As Worksheet
  Set ws2 = getSheet("練習30_解答")
  With ws2
    .Cells.Clear
    .Range("A1") = "支店"
    .Range("B1") = "年度"
    .Range("C1") = "科目" '売上/仕入
    .Range("D1") = "区分" '実績予算
    .Range("E1") = "金額"
    .Select
  End With
  
  Dim iRow As Long, iCol As Long '入力シートの行列
  Dim rMax As Long, cMax As Long '入力シートの最大行列
  rMax = ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row
  cMax = ws1.Cells(2, ws1.Columns.Count).End(xlToLeft).Column
  Dim i As Long '出力シートの行
  i = 2
  For iRow = 3 To rMax
    For iCol = 3 To cMax
      'Ifでも良いが、拡張性を考えてSelect Caseにしています
      Select Case ws1.Cells(2, iCol).Value
        Case "売上", "仕入"
          ws2.Cells(i, 1).Value = ws1.Cells(1, iCol).MergeArea.Item(1)
          ws2.Cells(i, 2).Value = ws1.Cells(iRow, 1).MergeArea.Item(1)
          ws2.Cells(i, 3).Value = ws1.Cells(2, iCol).Value
          ws2.Cells(i, 4).Value = ws1.Cells(iRow, 2).Value
          ws2.Cells(i, 5).Value = ws1.Cells(iRow, iCol).Value
          i = i + 1
      End Select
    Next
  Next
End Sub

'シート名が無ければ挿入、あればそれを返す
Function getSheet(ByVal argName As String) As Worksheet
  Dim ws As Worksheet
  For Each ws In Worksheets
    If LCase(StrConv(ws.Name, vbNarrow)) = LCase(StrConv(argName, vbNarrow)) Then
      '存在した場合は削除してExit Forでも良い
      Set getSheet = ws
      Exit Function
    End If
  Next
  'シート挿入して名前変更
  Set getSheet = Worksheets.Add
  getSheet.Name = argName
End Function

上記VBAの解説は不要でしょう。
マクロVBA内の洋書にはコメントを入れていますので、じっくり読み解いてみてください。

練習問題をこの30問まで順に進めてきた方であれば、このVBAを読むことは難しくないでしょう。
難しい技術は何も使っていません。
マクロVBAをある程度覚えたら、後はVBAをどこまでスムーズに書けるようになるかが問題です。
これを習得するには、繰り返し練習以外には方法がありません。
いくら書籍やWEBページを読んでも、実際にVBAをスラスラ書けるようにはならないと思います。
実際に手を動かして、マクロVBAを書く練習をしてください。



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

練習問題22(総合練習4)解答
練習問題23(総合練習5)解答
練習問題24(再帰呼出し)解答
練習問題25(各種VBA関数)解答
練習問題26(全シート処理とハイパーリンク)解答
練習問題27(データ分割し別ブック保存)解答
練習問題28(シートを別ブックにして値のみにする)解答
練習問題29(ロット引き当て)解答
練習問題30(マトリックス→リスト形式)解答
練習問題31(セル結合を解除して値を埋める)解答
練習問題32(連続数値部分を取り出し記号で連結)解答


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

import文(パッケージ・モジュールのインポート)|Python入門(9月24日)
例外処理(try文)とexception一覧|Python入門(9月23日)
リスト内包表記|Python入門(9月22日)
Pythonの引数は参照渡しだが・・・|Python入門(9月21日)
lambda(ラムダ式、無名関数)と三項演算子|Python入門(9月20日)
関数内関数(関数のネスト)とスコープ|Python入門(9月18日)
関数の定義(def文)と引数|Python入門(9月18日)
組み込み関数一覧|Python入門(9月17日)
辞書(dict型)|Python入門(9月16日)
入力規則への貼り付けを禁止する|VBA技術解説(9月16日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




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


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



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