Excel VBA質問箱 IV

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

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


16245 / 76738 ←次へ | 前へ→

【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
0 hits

【65951】データ集計の手法について 八家九僧陀 10/7/10(土) 0:11 質問
【65953】Re:データ集計の手法について かみちゃん 10/7/10(土) 0:48 発言
【65957】Re:データ集計の手法について 八家九僧陀 10/7/10(土) 20:23 発言
【65959】Re:データ集計の手法について かみちゃん 10/7/10(土) 21:33 発言
【65963】Re:データ集計の手法について 八家九僧陀 10/7/10(土) 23:47 質問
【65954】Re:データ集計の手法について UO3 10/7/10(土) 8:05 回答
【65956】Re:データ集計の手法について 八家九僧陀 10/7/10(土) 20:19 質問
【65958】Re:データ集計の手法について かみちゃん 10/7/10(土) 21:32 発言
【65960】Re:データ集計の手法について UO3 10/7/10(土) 22:54 発言
【65961】Re:データ集計の手法について 八家九僧陀 10/7/10(土) 23:39 質問
【65964】Re:データ集計の手法について かみちゃん 10/7/11(日) 0:13 発言
【65965】Re:データ集計の手法について 八家九僧陀 10/7/11(日) 0:24 発言

16245 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free