【シート1】
見積書フォーマットを作成しており、見積発行依頼があればこのシートに記入します。
【シート2】
シート1で作成した見積データを見積No.順に保存するシート。
ここからが、質問です!
・シート1で作成した見積のデータをマクロでシート2に蓄積していきたい。
・シート2に蓄積してある見積データの見積No.を選択すると自動的にシート1に見積内容が反映され、過去の見積書を印刷することが可能。
このようなことをしたいのですが、マクロをどう組めば良いのかわかりません。
どなたか教えてください!
仕事で困ってます・・・。
No.1ベストアンサー
- 回答日時:
全体の方針としては、わたしなら以下のようにします。
【1】シート1で作成した見積のデータをマクロでシート2に蓄積していきたい。
・・・シート2の1行目に必要項目名を振る。
シート1にコマンドボタンを貼り付け、入力が終わってそのボタンを押したら、入力したデータをシート2の最下行に書き込むようにする。
書き込むべき最終行は、普通に以下みたいな感じでとったらいいんじゃないでしょうか。
r = Worksheets(2).Cells(Rows.Count,1).End(xlup).Row + 1
見積もりデータは、必ずしも見積もりNo順に入力されるわけではないのですね?
それをNo順に蓄積したい、ということですから、データ入力後にSortをかけておけばよいでしょう。
Worksheets(2).Cells(1,1).CurrentRegion.Sort _
Key1:=Cells(1,1), _
Order1:=xlAscending, _
以下略
【2】
シート2に蓄積してある見積データの見積No.を選択すると自動的にシート1に見積内容が反映され、過去の見積書を印刷することが可能。
入力された見積もりNOを、シート2の見積もりNO列から検索して、その行のデータを拾えば良いのではないでしょうか。
r = Application.WorksheetFunction.Match(k,Worksheets(2).Columns(1),0)
行さえ拾えれば、あとは表示できますよね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 多数のファイルから値を抜き出したい 4 2022/12/12 16:49
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) Excelでポイントの管理表を作成したいです。 個人ごとにシートを作成し、発行者のシートでポイントを 3 2023/08/22 16:59
- Excel(エクセル) 再度掲載させていただきます。 Excelでポイントの管理表を作成したいです。 個人ごとにシートを作成 4 2023/08/22 20:24
- Visual Basic(VBA) VBA別シートの最終行の次行へ転記したい。 3 2022/06/01 17:54
- Excel(エクセル) エクセル表作成についてお分かりになる方教えて下さい。 10項目程度のエクセルデーターを一件、一件、デ 9 2022/05/28 14:53
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
MicrosoftOfficeの1ユーザー2...
-
MicrosoftOffice2019なんですが、
-
Microsoft 365のディフェンダー...
-
英数字のみ全角から半角に変換
-
Excel 日付を比較したら、同じ...
-
Microsoft Officeを2台目のPCに...
-
Microsoft365の「お支払いを更...
-
会社PCのメールが更新されない
-
エクセル関数について
-
エクセルのシフト表を簡単にGoo...
-
ウィンドウィズ メモ帳で日付だ...
-
会社のTeamsのことで相談です。...
-
バソコンが二台とも壊れ後換装...
-
Microsoft Formsの「個人情報や...
-
複数の写真を1枚に印刷
-
Formsにて、匿名にて回答する方...
-
パソコン画面の中の小さい画面...
-
マイクロソフト 一時使用コード...
-
MicrosoftOfficeについて質問で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報