Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9882 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24957】結果の表示 みみ 05/5/15(日) 11:40 質問[未読]
【24961】Re:結果の表示 ちゃっぴ 05/5/15(日) 18:25 発言[未読]
【24964】Re:結果の表示 ponpon 05/5/15(日) 18:55 発言[未読]
【24966】Re:結果の表示 Jaka 05/5/16(月) 11:13 回答[未読]
【24957】結果の表示
質問  みみ  - 05/5/15(日) 11:40 -
引用なし
パスワード
   こんにちは。
教えてください。
Sheet2の方へ各お店の数量と金額の結果を出したいのですが
過去ログなど参考にさせていただいたのですが、うまくいきません。
どうか宜しくお願いします。

sheet1
　　 Ａ　　Ｂ　　Ｃ　　　Ｄ　　Ｅ
1　商品　項目　　　　数量　金額　 店　　　　
2　1001　　　　 ﾘﾝｺﾞ　　　　1　　 ***　　1
3　1002　　　　 ﾐｶﾝ　　　　2　　 ***　　2
4　1003　　　　 ﾊﾞﾅﾅ　　　　1　　 ***　　3
5　2010　　　　 ﾘﾝｺﾞ　　　　20　　***　　1
6　3020　　　　 ﾘﾝｺﾞ　　　　5　　 ***　　　　　　1
7　1002　 ﾐｶﾝ　　　　8　　 ***　　　　　　2
8　2011　　　　 ﾐｶﾝ　　　　9　　 ***　　　　　　3
9　3021　 ﾐｶﾝ　　　　7　　 ***　　4
10 3023　　　　 ﾐｶﾝ　　　　15　　*** 　 3

sheet2
　Ａ　　 Ｂ　　Ｃ　　Ｄ　　Ｅ　　　Ｆ　　Ｇ
1　　　　 ﾘﾝｺﾞ　　　　ﾐｶﾝ　　 　　　ﾊﾞﾅﾅ
2　店　　 数量　金額　数量　金額　　数量 金額
3　1　　　**　　***　 **　　***　　 **　 ***
4　2　　　**　　***　 **　　***　　 **　 ***
【24961】Re:結果の表示
発言  ちゃっぴ  - 05/5/15(日) 18:25 -
引用なし
パスワード
   品目を店舗ごとに集計しているようですが、
ご自身でどこまでできましたか？

すでに途中までできているものがあるなら
それを公開してみましょう。

また、Codeがかけていなくても、
日本語で処理を記述することができますか？

とりあえず、ほとんどの処理は、条件分岐(If)とLoopで表せますので、
どういう風に処理を行えばできるか、日本語で書いてみて、
整理してみることをお勧めします。
【24964】Re:結果の表示
発言  ponpon  - 05/5/15(日) 18:55 -
引用なし
パスワード
   こんばんは。

1,sheet1を店番号でオートフィルター
2,B列を見て、リンゴかミカンかバナナを判断
3,offset(0,1)が数量になる
4,offset(0,2)が金額になる
5,それぞれ集計する
6,sheet2に書き出す。
7,これを店番号の終わりまで繰り返す。

初心者の私はこのように考えますが・・・いかがでしょうか？
【24966】Re:結果の表示
回答  Jaka  - 05/5/16(月) 11:13 -
引用なし
パスワード
   　こんにちは。

シート２
Ｂ３に
=SUMPRODUCT((Sheet1!$B$2:$B$10=$B$1)*(Sheet1!$E$2:$E$10=$A3),(Sheet1!C$2:C$10))
上記関数を入れ、C列までフィル。
B3:C3を選択後、右下角にポインタを当て「＋」をなった所でＷクリック。
マウスで下にフィルしても良いです。

Ｄ３に
=SUMPRODUCT((Sheet1!$B$2:$B$10=$D$1)*(Sheet1!$E$2:$E$10=$A3),(Sheet1!C$2:C$10))
上記関数を入れ、Ｅ列までフィル。
以下上と同じように。

Ｆ３に
=SUMPRODUCT((Sheet1!$B$2:$B$10=$F$1)*(Sheet1!$E$2:$E$10=$A3),(Sheet1!C$2:C$10))
以下上と同じようにする。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9882 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free