一覧表から抽出したいのですがどうすればいいの？

品名が書かれた一覧表から注文表が作りたいのですが、チェック欄をつくってチェックしたものを注文表の品名欄に自動で抽出してくれる方法はありませんか？
　例　　　　　　一覧表　　　　　　　　　　　　注文表
　　　　　　　＊ねこ　　　　　　　　　　　　　ねこ
　　　　　　　　いぬ　　　　　　　　　　　　　ねずみ
　　　　　　　＊ねずみ　　　　　　　　　　　　　　　　　　　　　　　　　
例を作ってみました。回答よろしくおねがいします。

No.2 回答者： noname#79209 回答日時： 2007/11/21 12:34

強引ですが、ワークシート関数のみでやってみました。

Sheet1を一覧表として、
A列には選択用の「*」を入れます。
B列には商品名を入れます。
C列にはワーク用として使う行番号を数式「=ROW()」をいれて、下へコピー。
行はとりあえず7行分とします。
　　　Ａ　　　Ｂ　　　　　Ｃ
１　　選択　商品名　行番号
２　　＊　　　ねこ　　　2
３　　 　　　　いぬ　　　3
４　　＊　　　ねずみ　　4
５　　　　　　　たこ　　　5
６　　＊　　　くま　　　　6
７　　＊　　　しゃけ　　　7

Sheet2を注文表とします。
A1にはワーク用として、sheet1の「*」の数を数えます。
A1：=COUNTIF(Sheet1!$A$1:$A$7,"*")
B2：=IF(AND($A$1>0,ROW()-1<=$A$1),VLOOKUP("*",Sheet1!$A$2:$B$7,2,0),"")
C2：=IF(B2<>"",VLOOKUP("*",Sheet1!$A$2:$C$7,3,0),"")
B3：
=IF(AND($A$1>0,ROW()-1<=$A$1),VLOOKUP("*",OFFSET(INDIRECT(ADDRESS(C2+1,1,1,,"sheet1")),0,0,7-C2,3),2,0),"")
C3：
=IF(B3<>"",VLOOKUP(B3,Sheet1!B2:C7,2,0),"")
B3、C3を7行目までコピーします。
　　　Ａ　　　Ｂ　　　　　Ｃ
１　　4　　商品名　　ワーク
２　　　　ねこ　　　　　2
３　　　　ねずみ　　　4
４　　　　くま　　　　　5
５　　　　しゃけ　　　　6
６
７
7行以上ある時は、数式の「7」の所を全てMAXの行数にしてください。
当然、コピーもMAX行まで行ってください。
ワーク列が見えて、見栄えが悪いときは、列幅を0にしてください。

この回答へのお礼

回答ありがとうございます
勉強になりました
詳しい説明でとても助かります
さっそくやってみようと思います

お礼日時：2007/11/21 22:47

No.1 回答者： noname#63784 回答日時： 2007/11/20 22:27

なにの話でしょうか？

エクセルとかですか？

VBAなどで、記述すればできます
一覧表にボタンなどを作ります
ボタンを押されたときの処理をVBAで書きます

この回答へのお礼

早速の回答ありがとうございます
わかりにくい質問でしたね　すみません　
やはりVBAなんですね
まだVBAは組めないので、エクセルでオートフィルタか関数でつくろうとしたのですが、できませんでした
エクセルの勉強をし始めたばかりなのですが、おくが深いですね

お礼日時：2007/11/20 23:59