ユーザーフォームでの検索結果を別シートに転記

質問

ユーザーフォームでの検索結果を別シートに転記して印刷したいのですが・・・

このようなイメージです↓↓

・データファイルがあります
　　　A　　　　B　　　　C　　　　D
1　0001　みかん　　3　　　　　300
2　0002　とうふ 1　　　　　500
3　0003　チョコ　　　2　　　　　100
4　0004　いか　　　 10　　　　 300

・データファイルとは別のファイルでユーザーフォームを表示します。

番号入力欄　-----
印刷ボタン

・ユーザーフォームで番号が入力され、「印刷」が押された時に、
入力されたのと同じ番号をデータファイルから検索して、
その番号の列データを別シートに転記して印刷したいのです

別シートに

番号：0001
商品：みかん
数量：3
単価：300

と転記して印刷（番号、商品、などの項目名は、転記するひな形シートに元々入れてあります）

*ユーザーフォームのイメージは、番号を入力するボックスと、「印刷」ボタンだけがある状態です。
ユーザーフォーム上で該当番号列のほかの値を表示する欄は持ちません。
また、列の情報が多いため、ユーザーフォーム上に表示させてそのまま印刷するというのは厳しいです

*ユーザーにはデータファイルを直接触ってほしくないので、ユーザーフォームを介してデータを取り出すようにこのような形にしたいのですが・・・

自分でいろいろと勉強する前に質問してしまい申し訳ありません。。。が
仕事で使うのに時間がなくお力を貸して頂ければと思います。

宜しくお願い致します。

回答No.1

keithin · ベストアンサー

【具体的なエクセルの姿】
ユーザーフォームにはTextBox1とCommandButton1が配置してある
ユーザーフォームを持っているブックのSheet1が印刷シートになっている
印刷シートのB1からB4にデータを表示する
元データはc:\testフォルダにあるbook1.xlsのSheet1にある
元データのＡ列，番号は「文字列設定のセル」に「0001」と記入してある

＃丸投げでマクロを誰かに書いて欲しいときは，これぐらいの情報が必要ですってことです。

private sub CommandButton1_Click()
　if textbox1 = "" then exit sub
　with thisworkbook.worksheets("Sheet1")
　.range("B1").numberformat = "@"　　’この行はオマケ
　.range("B1") = textbox1.value
　.range("B2").formula = "=VLOOKUP(B1,'c:\test\[book1.xls]Sheet1'!A:D,2,FALSE)"
　.range("B3").formula = "=VLOOKUP(B1,'c:\test\[book1.xls]Sheet1'!A:D,3,FALSE)"
　.range("B4").formula = "=VLOOKUP(B1,'c:\test\[book1.xls]Sheet1'!A:D,4,FALSE)"
　.range("B2:B4").value = .range("B2:B4").value
　end with
　worksheets("Sheet1").printout
end sub

こんなカンジにすると，データブックを一切開かずにデータを転記して印刷できます。
もちろん，テキストボックスに入力した番号がデタラメで該当データが無ければ，その旨エラー表示が現れます。

お礼

お礼が遅くなって申し訳ありません！
こんなに丁寧に書いて頂いて本当にありがとうございます！！

ルーチンが忙しくてなかなか手をつけられなかったんですが、
これから早速やってみます

補足

できました！
が・・・、印刷シートに表示する項目が30項目ぐらいあり、
コマンドボタンを押してから、すべてが表示されるまで非常に時間がかかるため、
元データファイルの行を丸々コピーして印刷シートに持って来たほうがよいでしょうか・・・（印刷用シートのsheet2にデータコピーをして、印刷用シートで必要な情報のみ表示する）。。

再度別質問させて頂きます。