|
こんばんは、かみちゃん さん
>レスありがとうございます。
>>手間がかかるのは、わかります。
>>その手間を自動化するのが「マクロの記録」なのですが、まずは、記録してみた
>>コードをご提示いただくことはできませんか?
Sub Macro2()
Range("G1").Select
ActiveCell.FormulaR1C1 = "倉庫"
ActiveCell.Characters(1, 2).PhoneticCharacters = "ソウコ"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-3],4)"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G26"), Type:=xlFillDefault
Range("G2:G26").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Application.CutCopyMode = False
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet2!C1:C7").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
=> With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("倉庫")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("等級")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("出荷数量")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("ピボットテーブル2").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル2").PivotFields("商品名"), "データの個数 / 商品名", xlCount
ActiveWindow.SmallScroll Down:=-3
End Sub
上記のコードが記録されましたが、再度実行すると何故かエラーになります。
実行時エラー'1004'
PivotTableクラスのPivotFieldsプロパティを取得できません。
[デバッグ]を押すと上記=>の行に飛びます。
よろしくお願いします。
|
|