アクセスを使って、レポートの作成について（エクセルでも）

質問

科目 内訳1 詳細
食費 主食 パン
食費 主食 米
食費 野菜 ナス
食費 野菜 かぼちゃ
食費 野菜 ネギ
食費 外食 お好み焼き
食費 外食 ファミレス
食費 外食 焼肉
食費 外食 お寿司
通信費 電話 携帯
通信費 電話 固定
通信費 宅急便 ヤマト
通信費 宅急便 佐川
通信費 宅急便 ペリカン
通信費 切手 80円
通信費 ネット ADSL
消耗品費 衛生 トイレットペーパー
消耗品費 衛生 浴槽洗剤
消耗品費 衛生 台所洗剤
消耗品費 電球 リビング
消耗品費 用紙 A4
消耗品費 用紙 A3

アクセスでもエクセルでも特にこだわっていないのですが、上記のようなデーターベースを下記のようなレポートにしたいのですが、
食費 主食 野菜 外食
パン ナス お好み焼き
米 かぼちゃ ファミレス
ネギ 焼肉
お寿司

通信費 電話 宅急便 切手 ネット
携帯 ヤマト 80円 ADSL
固定 佐川
ペリカン

消耗品費 衛生 用紙
トイレットペーパー A4
浴槽洗剤 A3
台所洗剤

なにか方法はありますか？データの件数が1600件ほどです。
手作業も考えたのですが、気が遠くなってきたので・・・
ちなみにOfficeは2000、OSはWin2000を使用しています。
ピポットテーブルも考えたのですが、ピポットテーブルで集計以外の目的で使用することって可能なのでしょうか？
宜しくお願いします

回答No.2

zap35 · ベストアンサー

エクセルで実現する場合のヒントです。手作業で1,600件並べるよりは楽だと思います。（ただし科目、内訳１、詳細でソートされていることが前提）

　　　　Ａ列　Ｂ列　　　Ｃ列　　
１行目　科目　内訳１　　詳細
２行目　食費　主食　　　パン
３行目　食費　主食　　　米
としてＤ，Ｅ，Ｆ列に科目、内訳１、詳細の出現順番を計算させます

Ｄ２：=TEXT(IF(A2=OFFSET(A2,-1,0),OFFSET(D2,-1,0),OFFSET(D2,-1,0)+1),"0000")
Ｅ２：=TEXT(IF(A2=OFFSET(A2,-1,),IF(B2=OFFSET(B2,-1,0),OFFSET(E2,-1,0),OFFSET(E2,-1,0)+1),1),"0000")
Ｆ２：=TEXT(IF(B2=OFFSET(B2,-1,),IF(C2=OFFSET(C2,-1,0),OFFSET(F2,-1,0),OFFSET(F2,-1,0)+1),1),"0000")

そしてＧ列にＤ～Ｆ列を連結します
　=CONCATENATE(D2,E2,F2)

Ｄ～Ｇ列はデータ行数分下にコピーしてください。次に集計表ですが、例えばＪ１に一番目の科目を示す0001（文字列）を入れて、Ｊ２に
　=INDEX($A:$A,MATCH(OFFSET(J2,-1,0),$D:$D,0))
と入れれば「食費」が得られます

Ｋ２に
　=INDEX($B:$B,MATCH($J1&TEXT(COLUMN()-COLUMN($J1),"0000")&"0001",$G:$G,0))
と入れれば内訳１の１番目の「主食」が得られます。Ｋ２を横にコピーすれば内訳１の２番目、３番目が得られます

そしてＫ３に
　=INDEX($C:$C,MATCH($J$1&TEXT(COLUMN()-COLUMN($J$1),"0000")&TEXT(ROW()-ROW($J$2),"0000"),$G:$G,0))
と入れると「主食」の１番目の詳細である「パン」が得られます。これを縦にコピーすると２番目、３番目の詳細が得られます。Ｋ３～Ｋｎを横にコピーするとそれぞれの内訳１に対する詳細が得られます。

なお上記式は関数がエラーになったときの処理は入れていませんので、エラー処理は追加してください。

お礼

お礼が遅くなりすみません。
具体的な記述までして頂いて、ありがとうございます。
少しバタバタしているので、この件が後回しになりそうです。
早速、試してみます。
ありがとうございます。

回答No.1

akina_line

こんにちは。

　いまひとつ貴方の考えているレポート作成のルールがよく分かりません。例で示すより、言葉でルールを作成してそのルールに則って作成するにはどうしたらよいか質問したほうが良いと思います。
　ピボットテーブルは上記の表に「費用」の列が加わったときに、各分類毎に合計（例えば食費の合計）することが可能です。「費用」の列が無くても表は作れますが。。。

では。

お礼

すみません。(+_+)
最初は文書で書いていたのですが、帰って分かりづらいと思って、具体的に例をあげたつもりだったんですけど、却ってアダになってしまったようで、反省です。
でも、なんとなく分かってきたのでありがとうございました。