エクセルのマクロ

質問

【シート1】
見積書フォーマットを作成しており、見積発行依頼があればこのシートに記入します。

【シート2】
シート１で作成した見積データを見積No.順に保存するシート。

ここからが、質問です！
・シート１で作成した見積のデータをマクロでシート２に蓄積していきたい。
・シート２に蓄積してある見積データの見積No.を選択すると自動的にシート１に見積内容が反映され、過去の見積書を印刷することが可能。

このようなことをしたいのですが、マクロをどう組めば良いのかわかりません。
どなたか教えてください！
仕事で困ってます・・・。

回答No.1

soixante · ベストアンサー

全体の方針としては、わたしなら以下のようにします。

【１】シート１で作成した見積のデータをマクロでシート２に蓄積していきたい。

・・・シート２の１行目に必要項目名を振る。
シート１にコマンドボタンを貼り付け、入力が終わってそのボタンを押したら、入力したデータをシート２の最下行に書き込むようにする。

書き込むべき最終行は、普通に以下みたいな感じでとったらいいんじゃないでしょうか。

r = Worksheets(2).Cells(Rows.Count,1).End(xlup).Row + 1

見積もりデータは、必ずしも見積もりＮｏ順に入力されるわけではないのですね？
それをＮｏ順に蓄積したい、ということですから、データ入力後にSortをかけておけばよいでしょう。

Worksheets(2).Cells(1,1).CurrentRegion.Sort _
Key1:=Cells(1,1), _
Order1:=xlAscending, _
以下略

【２】
シート２に蓄積してある見積データの見積No.を選択すると自動的にシート１に見積内容が反映され、過去の見積書を印刷することが可能。

入力された見積もりNOを、シート２の見積もりNO列から検索して、その行のデータを拾えば良いのではないでしょうか。

r = Application.WorksheetFunction.Match(k,Worksheets(2).Columns(1),0)

行さえ拾えれば、あとは表示できますよね。