エクセルマクロ オンライン講座コメント紹介

コメント紹介
   └ エクセルマクロ・VBA基礎編フォローアップ アドバンスド
       └ 商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その1)

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

[10176] 2018-06-29 16:09:13 わかやまさんからの投稿です。

小川様

いつもありがとうございます。
特に深く考えたわけではなかったのですが、以下のマクロができました。

Sub kotae1()

Columns("A:F").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E2:E231") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B231") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:F231")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'ここから自装したマクロ
Dim moto
Dim saki
Dim syoukei
saki = 3
For moto = 2 To 231
syoukei = syoukei + Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("F" & moto).Value
If Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("B" & moto).Value <> Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("B" & moto + 1).Value Then
Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("H" & saki).Value = Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("E" & moto).Value
Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("I" & saki).Value = Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("B" & moto).Value
Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("J" & saki).Value = syoukei
saki = saki + 1
syoukei = 0
End If
Next

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A231") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:F231")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With



End Sub

はじめとおわりの操作がないので、すごくシンプルだと思います。
これでもよいでしょうか?

 


[10185] 2018-07-01 10:45:26 小川慶一さんからの投稿です。

わかやまさん:

コメント投稿ありがとうございます。
なるほど、よさそうですね。

 


まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ