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さんのご指摘どおりです。

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

2 hits

【60791】データの位置を変えたい たかと 09/3/15(日) 0:15 質問
【60792】Re:データの位置を変えたい 横入り 09/3/15(日) 7:04 発言
【60793】Re:データの位置を変えたい 横入り 09/3/15(日) 8:57 発言
【60797】Re:データの位置を変えたい たかと 09/3/15(日) 23:23 質問
【60798】Re:データの位置を変えたい 横入り 09/3/16(月) 0:05 発言
【60803】Re:データの位置を変えたい たかと 09/3/16(月) 11:29 質問
【60804】Re:データの位置を変えたい ss 09/3/16(月) 12:21 回答
【60820】Re:データの位置を変えたい 横入り 09/3/16(月) 21:23 発言
【60846】Re:データの位置を変えたい たかと 09/3/17(火) 22:54 質問
【60847】Re:データの位置を変えたい 横入り 09/3/17(火) 23:12 発言
【60848】Re:データの位置を変えたい たかと 09/3/17(火) 23:40 質問
【60849】Re:データの位置を変えたい 横入り 09/3/17(火) 23:50 発言
【60867】Re:データの位置を変えたい たかと 09/3/18(水) 23:32 お礼

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