Excel VBA質問箱 IV

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

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


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

23164 / 76732

←次へ　｜　前へ→


	【58938】Re:「PivotItemクラスのVisibleプロパティを設定できません。」の解決法

あい - 08/11/19(水) 9:59 -


	引用なし

	パスワード

▼n さん：
ありがとうございます。

取り敢えずマクロの記録で作ってみたのを貼り付けます。

Sub Macro1()

　　ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="=リスト"). _
　　　　CreatePivotTable TableDestination:=Range("A5"), TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"
　　
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("あ")
　　　　.Orientation = xlPageField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("い")
　　　　.Orientation = xlPageField
　　　　.Position = 2
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("う")
　　　　.Orientation = xlPageField
　　　　.Position = 3
　　End With
　　
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("A")
　　　　.Orientation = xlRowField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("B")
　　　　.Orientation = xlRowField
　　　　.Position = 2
　　End With
　　
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("1")
　　　　.Orientation = xlColumnField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("2")
　　　　.Orientation = xlDataField
　　　　.Position = 1
　　End With
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("2")
　　　　.Orientation = xlDataField
　　　　.Position = 2
　　End With
　　Range("D6").Select
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("データ")
　　　　.Orientation = xlColumnField
　　　　.Position = 1
　　End With
　　
　　ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("データの個数 : 2").Function _
　　　　= xlSum
End Sub

レイアウトは以下のような感じ。

　　　　　２の個数　　２の合計
　　　　　○　　×　　○　　×　
Ａ　Ｂ　
１　１　　2　　　3　　1　　-2
　　２　　3　　　2　　2　　-4
　　３　　0　　　4　　0　　-6
２　１　　5　　　1　　4　　-1
　　２　　6　　　1　　7　　-6
　　３　　1　　　0　　5　　 0
３　１　　8　　　9　　9　　-10
　　２　　1　　　1　　1　　-1
　　３　　0　　　5　　0　　-6

Sub　ピボット()
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("A")
　　　　.PivotItems("1").Visible = True
　　　　.PivotItems("2").Visible = True
　　　　.PivotItems("3").Visible = False
　　End With
End Sub
の
.PivotItems("1").Visible = True
で引っ掛かります。
全部をFalseにしようとするとエラーが出るのは仕様なのかなと理解しているのですが、Trueでエラーが出るのが良く分かりません。

Sub　ピボット()
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("B")
　　　　.PivotItems("1").Visible = True
　　　　.PivotItems("2").Visible = True
　　　　.PivotItems("3").Visible = False
　　End With
End Sub
であれば問題なく動くようです。

>・エラーが出る状況で、同じ動作を手作業で行った場合はどうなりますか？
>・また、Excelのバージョンは何でしょう？
手作業では問題無く動きます。
エクセル2000です。
宜しくお願いします

0 hits

▼

【58912】「PivotItemクラスのVisibleプロパティを設定できません。」の解決法 あい 08/11/18(火) 4:22