Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16240 / 76733

←次へ　｜　前へ→


	【65963】Re:データ集計の手法について

八家九僧陀 - 10/7/10(土) 23:47 -


	引用なし

	パスワード

▼かみちゃんさん：

>記録したコードがどのようなコードなのか、どのコードでどのようなエラーが出るのか
>説明しないとアドバイスできません。
>
>必要なら、説明してみてはいかがでしょうか？

申し訳ありませんでした。
マクロ記録でしたコードを以下に記述します。記録中はうまくいくのですが、記録したマクロを実行するとエラー「実行時エラー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

3 hits

▼

【65951】データ集計の手法について 八家九僧陀 10/7/10(土) 0:11