商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-1)

この講座は有料講座です。
講座の購入後ご覧になれます。

ログインアカウントの新規作成

解説

商品ごと、年ごとの販売額合計をピボットテーブルのように出力します。
商品が縦、年が横に並んだクロス集計表を作ります。

ここでは、この手の仕事に共通する「型」をお伝えします。
この「型」が見えてくると、マクロを書くことが一気に、楽に、楽しくなります。

2つの動画に分けて解説します。
その1本目です。

この教材についての過去の質問・感想

10022 : 小川慶一の回答 (2018-05-21 18:09:34)

伊藤博文さん:

以下のようにすればとりあえず動きはしますね。

    For hida = 2 To 231
        If Range("E" & hida).Value <> syohin Then
            yoko = 0 '[*]
            Range("H3").Offset(tate, 0).Value = Range("E" & hida).Value
            syohin = Range("E" & hida).Value
            tate = tate + 1
        
        ElseIf Range("B" & hida).Value <> toshi Then
            Range("I2").Offset(0, yoko).Value = Range("B" & hida).Value & "年"
            toshi = Range("B" & hida).Value
            yoko = yoko + 1
        End If
        
    Next


とはいえ、2005年から2008年というラベルを何度も上書きするだけなのであまり効率良いとは言えませんが。

[*]のやり方にすぐ気がつかないとしたら、以下の課題をまだ十分に理解できてないかもしれません。
無意識にやれるように。あるいはまた、誰かに説明するつもりでマクロの作りについて説明しながらでもスラスラ書けるように練習してください。

○出現回数を数える。CountIf関数がやっていることをマクロで書くと?
https://online.pc5bai.com/movie/index/27/150

○勘定項目ごとに合計額を算出する。SumIf関数がやっていることをマクロで書くと?
https://online.pc5bai.com/movie/index/27/151


10003 : 伊藤博文さんのコメント (2018-05-17 22:40:04)

お世話になっております。
右の表を年と商品を書くマクロを一気にすることができないかなと思ってトライしてみましたが、うまくいかなかったです。
Sub rensyu1()
Range("B1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:F231")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("E1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:F231")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


Dim tate
Dim hida
Dim yoko
Dim syohin
Dim toshi
 ここでタテ、ヨコの変数を0としても、
 上手くいかなかったです。
For hida = 2 To 231
If Range("E" & hida).Value <> syohin Then
Range("H3").Offset(tate, 0).Value = Range("E" & hida).Value
syohin = Range("E" & hida).Value
tate = tate + 1

ElseIf Range("B" & hida).Value <> toshi Then
Range("I2").Offset(0, yoko).Value = Range("B" & hida).Value & "年"
toshi = Range("B" & hida).Value
yoko = yoko + 1
End If

Next
NarabeID
End Sub
ご指導宜しくお願いします。


3日がかりのその仕事、3分で終わらせる方法教えます。ガラパゴスタディーオンライン講座 ユーザー登録

本講座の動画一覧

  1. 【動画1】 住所情報を都道府県から市区町村レベルで細かく分割する
    【動画1】 住所情報を都道府県から市区町村レベルで細かく分割する 未習得
  2. 【動画2】 保険料額表から標準報酬額ごとの保険料負担額を算出する
    【動画2】 保険料額表から標準報酬額ごとの保険料負担額を算出する 未習得
  3. 【動画3】 セル内の文字列から区切り文字を見つけ、その出現回数+1回だけデータ転記する
    【動画3】 セル内の文字列から区切り文字を見つけ、その出現回数+1回だけデータ転記する 未習得
  4. 【動画4】 セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を切り出す
    【動画4】 セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を切り出す 未習得
  5. 【動画5】 セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を反映しつつデータ転記する
    【動画5】 セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を反映しつつデータ転記する 未習得
  6. 【動画6】 VLookUp関数、Index関数、Match関数より便利なマクロ-該当する行が見つからない場合の処理をアレンジ
    【動画6】 VLookUp関数、Index関数、Match関数より便利なマクロ-該当する行が見つからない場合の処理をアレンジ 未習得
  7. 【動画7】 VLookUp関数、Index関数、Match関数より便利なマクロ-複数シート間、複数ファイル間でのマッチング
    【動画7】 VLookUp関数、Index関数、Match関数より便利なマクロ-複数シート間、複数ファイル間でのマッチング 未習得
  8. 【動画8】 転記先シートを生成してデータを流し込む。
    【動画8】 転記先シートを生成してデータを流し込む。 未習得
  9. 【動画9】 転記先ファイルを生成してデータを流し込む。
    【動画9】 転記先ファイルを生成してデータを流し込む。 未習得
  10. 【動画10】 条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で作成する。
    【動画10】 条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で作成する。 未習得
  11. 【動画11】 条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で同一ファイル内に連続的に作成する。
    【動画11】 条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で同一ファイル内に連続的に作成する。 未習得
  12. 【動画12】 条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。
    【動画12】 条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。 未習得
  13. 【動画13】 ファイル配布→配布先でのデータ記入→記入済データを手元資料に統合
    【動画13】 ファイル配布→配布先でのデータ記入→記入済データを手元資料に統合 未習得
  14. 【動画14】 データ記入用ファイルを配布する-その1
    【動画14】 データ記入用ファイルを配布する-その1 未習得
  15. 【動画15】 データ記入用ファイルを配布する-その2
    【動画15】 データ記入用ファイルを配布する-その2 未習得
  16. 【動画16】 各部署からファイルを回収し、記入済データを手元資料に統合その1
    【動画16】 各部署からファイルを回収し、記入済データを手元資料に統合その1 未習得
  17. 【動画17】 各部署からファイルを回収し、記入済データを手元資料に統合その2
    【動画17】 各部署からファイルを回収し、記入済データを手元資料に統合その2 未習得
  18. 【動画18】 商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その1)
    【動画18】 商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その1) 未習得
  19. 【動画19】 商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-1)
    【動画19】 商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-1) 未習得
  20. 【動画20】 商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-2)
    【動画20】 商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-2) 未習得

塾長 小川慶一

メニュー

コメント紹介

もっと見る

ページの先頭へ