|
▼かみちゃん さん:
>記録したコードがどのようなコードなのか、どのコードでどのようなエラーが出るのか
>説明しないとアドバイスできません。
>
>必要なら、説明してみてはいかがでしょうか?
申し訳ありませんでした。
マクロ記録でしたコードを以下に記述します。記録中はうまくいくのですが、記録したマクロを実行するとエラー「実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです。」との表示が出て実行できません。
なおExcel97を使用しています
sub ピボット作成()
Sheets("売上明細").Select
Range("A2").select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase,SourceData:= _
"'雇用作業'!R1C1:R607C96", TableDestination:="[格納庫.xls]売上集計!R1C1", _
TableName:="ピボットテーブル1"
ActiveSheet.PivotTables("ピボットテーブル1").AddFields RowFields:=Array("品名ID", _
"品名"), ColumnFields:=Array("仕入年月日","店名")
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("売上").Orientation = _
xlDataField
'////デバック時、以下の部分が黄色に表示されます
ActiveSheet.PivotTables("ピボットテーブル1").PivotSelect "仕入年月日[すべて;合計]", _
xlDataAndLabel
'//////////////////////////////
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("仕入年月日").Subtotals = Array( _
False,False,False,False,False,False,False,False,False,False,False,False)
ActiveSheet.PivotTables("ピボットテーブル1").PivotSelect "品名ID[すべて;合計]", _
xlDataAndLabel
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("品名ID").Subtotals = Array( _
False,False,False,False,False,False,False,False,False,False,False,False)
End Sub
|
|