[[20050708153136]]　『金額のあるところだけを別の表に出したい』（ちこり）　ページの最後に飛ぶ

『金額のあるところだけを別の表に出したい』（ちこり）

 はじめまして。よく拝見していたのですが、初めて質問します。
 初心者なので、上手く説明できていないかもしれませんが
 どうぞ宜しくお願いします。

 シート名「リスト」

  　 　A　　　　B　　　C　　　D　　E　　F
 1　コード　会社　振込先　金額　科目　科目
 2　245　　TT
 3　46　　　KK
 4　50　　　LL

 このリストには、金額以外全てのセルに内容が入っています。

 シート名「振込用紙」

　　 A　　　B　　　C　　　　D　　　E　　　F　　　　G

 1　会社　コード　振込先　金額　手数料　手数料2　振込金額

  振込用紙のセルは、何も入っていません。

 シート「リスト」に金額を入力したら
 金額の入力があるところだけをコードの小さい順に上から
 A～Dまでを表示したいのですが、どのような関数がいいのか分かりません。
 金額が空白の場合はシート振込用紙に表示したくないです。
 宜しくお願いします。

 こんな感じで如何でしょう？

 Sheet「リスト」
     A    B         C        D        E        F
 1 コード	会社	振込先	金額	科目	科目
 2 245	TT	あ	1000		
 3 46	KK	い	2000		
 4 50	LL	う	3000

 Sheet「振込用紙」

    A     B         C        D         E        F         G
 1 会社	コード	振込先	金額	手数料	手数料2	振込金額
 2 KK	46	い	2000			
 3 LL	50	う	3000			
 4 TT	245	あ	1000

 A2 =IF($B2="","",OFFSET(リスト!$B$1,MATCH($B2,リスト!$A$2:$A$10,FALSE),0))
 B2 =IF(ISERR(SMALL(リスト!$A$2:$A$10,ROW(A1))),"",OFFSET(リスト!$A$1,MATCH(SMALL(リスト!$A$2:$A$10,ROW(A1)),リスト!$A$2:$A$10,FALSE),0))
 以下コピー

 C2 =IF($B2="","",OFFSET(リスト!C$1,MATCH($B2,リスト!$A$2:$A$10,FALSE),0))
 必要範囲までコピー

 ※手数料や振込み金額は、何のこっちゃ解りませんので、何もしてません～

 （キリキ）(〃⌒o⌒)b

 ありがとうございます。
 キリキさんに回答していただけるなんて、とても光栄です。
 手数料は、手入力になるので、A～Dまでのセルに入れば
 私の思っていた通りなので、大丈夫です。

 これからも拝見させて頂き、勉強していきたいと思います。

 有難うございました。

 解決済みですか？
 キリキさんの式では、「金額の入力があるところだけを」という
 条件がクリアできなさそうですが、私の勘違い?

 シート「振込用紙」の B2 に 
 =IF(COUNT(リスト!$D$2:$D$10)<ROW()-1,"",SMALL(IF(リスト!$D$2:$D$10>0,リスト!$A$2:$A$10,""),ROW()-1))
 として、配列数式ですのでCtrl＋Shift＋Enterで確定して、適当に下方向にコピーしてください。
 下表のようになります。

 シート「リスト」
  　 　A　 　B　　　C　　　D　　 E　　 F  
 1　コード　会社　振込先　金額　科目　科目  
 2　245　　  TT            600                 245
 3　 46　　　KK            
 4　 50　　　LL           1000                  50

 シート「振込用紙」 
 　　A　　　B　　　 C　　　D　　　E　　　  F　　　　G      
 1　会社　コード　振込先　金額　手数料　手数料2　振込金額  
 2          50                                             
 3         245

 会社名、振込先、金額の欄は、B列のコードをキーにしてVLOOKUPでも出来ます。
 (sato)

 satoさんの仰る通りですね。。。

 >金額が空白の場合はシート振込用紙に表示したくないです。
 とも、書いてありましたね・・・

 も～　いつになったら、満足の行く回答ができることやら、、、
こうなったら、弥太郎先生の取っておきマクロのお出ましか？

せんせ～い　お願いしま～す

 （キリキ）（；⌒o⌒)b　satoさん、ありがとうございます（＾＾）

 あ～ぁ、残念！
 明日が早いんで、もうオヤスミの時間ですワ。（笑
 ホンマはシートイベントで作っとったんですけど、キー様の関数で保存せずに没に
 してしまいましたワ。責任はキー様に有るっちゅう事で、Goodナイト。
 　　　　（弥太郎）

　キリキさん、satoさん、弥太郎先生有難うございます。

 自宅からの返事だったので、月曜日に会社でやってみようと思っていました。
 早速、週明けから活用したいと思います。

 すばやい回答に本当に感謝です（＾－＾*）

 マクロにも興味あるのですが、奥が深くてなかなか使いこなせていません。
 もっと勉強しなくては・・・（*ｘ＿ｘ）

　　（ちこり）

 前に質問したのですが、若干変更したいのでまたご教授願い致します。

  =IF(COUNT(リスト!$D$2:$D$100)<ROW()-1,"",SMALL(IF(リスト!$D$2:$D$100>0,リスト!$A$2:$A$100,""),ROW()-1))

 昇順を無しにしたい場合は、どのような式になるのでしょうか？
 宜しくお願い致します。
 （ちこり）

 昇順を無くすって事は、表の分類が入れ替わっているだけのような気がしますが、、、

 B1 =リスト!A2
 をコピーだけではなく多分、何か意味があるんでしょうね～

 satoさんの式を利用させて頂いて、
 B1 =IF(COUNT(リスト!$D$2:$D$10)<ROW()-1,"",INDIRECT("リスト!A"&SMALL(IF(リスト!$D$2:$D$10>0,ROW($A$2:$A$10),""),ROW()-1)))
 ↑配列数式です。
 以下コピー

 （キリキ）(〃⌒o⌒)b 今度はどうかな？

 キリキさん、回答ありがとうございます。
 残念ながら、コピーするだけでは駄目なのです。
 金額が入力された箇所のデータのみをシート「振込用紙」に選び出したいのです。

 前は昇順で見やすくわかりやすい表にしたくて、教えていただいたのですが、
 会社のほうから、昇順は必要ないと指摘を受け・・・（*ｘ＿ｘ）

 シート「振込用紙」 
 1　　A　　　B　　　 C　　　D　　　E　　　  F　　　　G      
 2　会社　コード　振込先　金額　手数料　手数料2　振込金額  
 3          50                                             
 4         245

 シートも1行目にタイトルが入り、若干変わってしまいました。
 B1=　で・・・良いのでしょうか？

 どうぞよろしくお願いします。　（ちこり）

 返事が遅くなり、すいませんでした。。。

 >シートも1行目にタイトルが入り、若干変わってしまいました。
 タイトルが入ってたんでしたよね・・・
 そうしたら、B2 に入力してみてください。

 （キリキ）(〃⌒o⌒)b

 キリキさん、何度もありがとうございました。
 =IF(COUNT(リスト!$D$1:$D$100)<ROW()-1,"",INDIRECT("リスト!A"&SMALL(IF(リスト!$D$1:$D$100>0,ROW($A$1:$A$100),""),ROW()-1)))
 このようにしたら、完璧に出来ましたヽ(^▽^)ノ

 本当に有難うございました(*^_^*)

 （ちこり）

コメント返信：

[ 一覧(最新更新順) ]

[[20050708153136]] 『金額のあるところだけを別の表に出したい』（ちこり） ページの最後に飛ぶ

[[20050708153136]]　『金額のあるところだけを別の表に出したい』（ちこり）　ページの最後に飛ぶ