Excel VBA質問箱 IV

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

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


60475 / 76732 ←次へ | 前へ→

【20895】Re:データの頻出順にリストを作りたいのですが
発言  [名前なし]  - 04/12/23(木) 19:44 -

引用なし
パスワード
   補足でピボットテーブルの作成手順
1)一行目に項目名を入力し、表を以下のようにします。
   A
1 項目名
2 a
3 b
4 a
5 a

2)A列を選択します。
3)メニューで データ→ピボットテーブルとピボットグラフレポートを選択
4)ウィザードの1/3,2/3はそのまま「次へ」を選択。
3/3で既存のワークシートを選択し、別シートのA1を選択して完了。
5)仮に4)の既存のワークシートをSheet2にした場合、Sheet2にピボットテーブルの
テンプレートみたいなのが出てくるので、項目名を行のフィールドとデータアイテムの
所にドラッグアンドドロップします。すると、以下のような表が出来ます。

データの個数 / タイトル    
タイトル 合計
a     3
b     1
(空白)    
総計   4

6)ピボットテーブルのどこかを右クリックし、オプションを選択。
名前を「一列目」に変更します。
総計が不要なら、「列の総計」のチェックをはずします。
7)また右クリックし、今度はフィールドの設定を選択。右側の詳細ボタンを押し、
自動並べ替えオプションを降順、使用するフィールドを「データの個数 / 項目名」
に変更します。
8)項目名の右にある▼をクリックすると、フィールドのリストが出てくるので、
(空白)のところのチェックをはずします。
9)最後に、元データのあるシートのChangeイベントを以下のように作成します。
(ピボットテーブルを更新してるだけです。)
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then Sheets("Sheet2").PivotTables("一列目").PivotCache.Refresh
End Sub
これで、元データのシートに項目を追加すると、自動でピボットテーブルが
更新されます。

これを、他の列も同様の手順で設定するだけです。
ChangeイベントのIf Target.Column = 1 Then は、「一列目だったら」という
意味なので、二列目の場合は、2に変更したものを追加します。
PivotTables("一列目")のカッコ内は、6)で付けた名前を指定します。

複数列同時に設定出来そうな気がするのですが、私にはやり方がよくわかりません。

0 hits

【20864】データの頻出順にリストを作りたいのですが あいりあり 04/12/23(木) 12:47 質問
【20865】Re:データの頻出順にリストを作りたいので... IROC 04/12/23(木) 12:55 回答
【20867】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 13:33 質問
【20871】Re:データの頻出順にリストを作りたいので... ちゃっぴ 04/12/23(木) 13:51 回答
【20877】Re:データの頻出順にリストを作りたいので... IROC 04/12/23(木) 14:17 回答
【20892】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 18:15 お礼
【20893】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 18:22 お礼
【20887】Re:データの頻出順にリストを作りたいので... Hirofumi 04/12/23(木) 15:54 回答
【20891】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 18:14 お礼
【20894】Re:データの頻出順にリストを作りたいので... Hirofumi 04/12/23(木) 18:42 回答
【20890】Re:データの頻出順にリストを作りたいので... [名前なし] 04/12/23(木) 17:31 回答
【20895】Re:データの頻出順にリストを作りたいので... [名前なし] 04/12/23(木) 19:44 発言
【20896】Re:データの頻出順にリストを作りたいので... [名前なし] 04/12/23(木) 19:48 発言

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