Excel VBA質問箱 IV

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

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


23098 / 76732 ←次へ | 前へ→

【59005】Re:ピボットテーブルを自動化したい
発言  ackkn  - 08/11/22(土) 20:55 -

引用なし
パスワード
   こんばんは、かみちゃん さん
>レスありがとうございます。
>>手間がかかるのは、わかります。
>>その手間を自動化するのが「マクロの記録」なのですが、まずは、記録してみた
>>コードをご提示いただくことはできませんか?

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プロパティを取得できません。

[デバッグ]を押すと上記=>の行に飛びます。
よろしくお願いします。
0 hits

【58993】ピボットテーブルを自動化したい ackkn 08/11/22(土) 10:23 質問
【58994】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 13:29 発言
【58995】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 13:55 発言
【58996】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 14:19 発言
【58997】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 16:13 発言
【58998】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 16:37 発言
【58999】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 17:46 お礼
【59000】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 17:48 質問
【59001】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 18:03 発言
【59002】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 18:13 発言
【59003】Re:ピボットテーブルを自動化したい かみちゃん 08/11/22(土) 19:50 発言
【59004】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 20:10 発言
【59005】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 20:55 発言
【59006】Re:ピボットテーブルを自動化したい かみちゃん 08/11/22(土) 21:42 発言
【59007】Re:ピボットテーブルを自動化したい [名前なし] 08/11/22(土) 23:11 発言
【59008】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 0:11 発言
【59009】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 9:24 発言
【59010】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 9:50 発言
【59011】Re:ピボットテーブルを自動化したい [名前なし] 08/11/23(日) 10:11 発言
【59012】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 10:16 発言
【59013】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 10:16 発言
【59014】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 10:37 発言
【59015】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 11:47 発言
【59016】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 19:47 発言
【59017】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 20:19 発言
【59019】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 21:53 発言
【59020】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 22:04 発言
【59021】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 22:45 発言
【59023】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 22:56 発言
【59025】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 23:06 発言
【59026】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 23:15 発言
【59027】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 23:46 発言
【59028】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 0:00 発言
【59029】Re:ピボットテーブルを自動化したい ackkn 08/11/24(月) 0:10 発言
【59030】Re:ピボットテーブルを自動化したい ackkn 08/11/24(月) 0:23 発言
【59031】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 0:34 発言
【59032】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 9:57 発言
【59048】Re:ピボットテーブルを自動化したい ackkn 08/11/24(月) 21:57 お礼
【59049】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 22:09 発言

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