[[20190317181340]]　『VBA　438エラー』（ｄｓｋｃ）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『VBA　438エラー』（ｄｓｋｃ）

Sub pivotTW()

    Worksheets("sheet2").Active

    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Worksheets("sheet1").Range("a1:d16"), tabledestination:=Worksheets("sheet2").Range("a1"), tablename:="集計表"

    ActiveSheet.PivotTables("集計表").AddFields RowFields:="商品名", ColumnFields:="月", _
    PageFields:="支店名"

    ActiveSheet.PivotTables("集計表").PivotFields("売上金額").Orientation = xlDataField

End Sub

438エラーになってしまうのですがどこが間違っているのかわかりません。

＜ 使用 Excel：Excel2010、使用 OS：Windows10 ＞

---

＞Worksheets("sheet2").Active

Activateでは？

というか、

Worksheets("sheet2").PivotTableWizard

とすれば、その行はなくてもよいです。

（マナ） 2019/03/17(日) 19:38

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.