Excel VBA質問箱 IV

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

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


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

21286 / 76732

←次へ　｜　前へ→


	【60847】Re:データの位置を変えたい

横入り - 09/3/17(火) 23:12 -


	引用なし

	パスワード

>　　On Error Resume Next
>　　Set pt = ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1")
>　　e = Err.Number
>　　On Error GoTo 0
>　　
>　　If e <> 0 Then
>　　　　Set pt = ActiveWorkbook.PivotCaches.Add( _
>　　　　　　SourceType:=xlDatabase, _
>この部分がどのような処理をしているのかいまいちわからなかったのですが、
>どのような処理なのでしょうか・・・

Set pt = ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1")
を実行すると、
・"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"が未作成ならば、エラーになって
　e = Err.Number には、0 ではないエラーコードが入ります。
・"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"が作成済みなら、エラーにはならず　e = 0
（on error 云々はエラーになってもそこで止まらないための工夫です。）

後続の処理では　eの内容により、未作成か作成を判定し、それぞれに
あった処理を実行します。

例えば、
>　　Else
>　　　　pt.SourceData = myRange.Address
>　　　　pt.RefreshTable
>　　End If
これは、"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"が作成済みのケースの処理です。
対象範囲を設定し直して、テーブルを再作成しています。
ssさんのご指摘どおりです。

グラフについては、両方を比較してみてください。
あなたの判断でどちらでもお使いください。

1 hits

▼

【60791】データの位置を変えたい たかと 09/3/15(日) 0:15