vbaで資料を転記し、後日検索して印刷させたい

質問

excel2010です。配達日付別に、商品・数量・取引先等を作成した表があります。
これをvbaで転記保存し、配達日前日に該当表を検索して印刷させたいと考えています。
　事前に作成した表を印刷していれば良いとは思うのですが、配達前に数量や商品が変わる事が往々にしてあり、印刷して日付別に保存し、それを修正して当日差し替えるとすれば時間的に非常に厳しいのです。

印刷も1ページに充分収まる量なので、日々30件前後の配達予定を、何日も前にExcelで作っていますが、自動転記保存や、前日に検索して印刷すればいいのかわからず、ご教授をお願い出来ればと思っています。
表はこのようなものです。
　A1:配達先　　　　　　B1:単価　　　　C1:数量 D1:合計金額　　
　A2:住所
　A3: 配達日
　A4:以下縦並び商品名

この中で日付を何処かのセルに移動することは可能です。
保存を1シートの中に縦並びに保存していきたいと思っていますが、商品数はランダムになりますので、顧客毎の別シート保存でも可能です。
前日に日付検索し、修正があれば手を加えて印刷、修正がなければそのままで印刷したいのですが、この様なものをvbaで自動化は可能なのでしょうか。
　データは顧客毎、又は日付毎に残せればと考えています。

色々検索して自分でマクロをと考えていましたが、全然上手くいきません。初心者です。
お手数ですが、お教えください。

回答No.5

HohoPapa · ベストアンサー

>前日に日付検索し
を見誤っていました。
実行日の翌日を検索するんでしょうから

　'前日を初期表示して検索日を求める
　wsStr = InputBox( _
　　Prompt:="検索日を入力してください。", _
　　Default:=Format(Date - 1, "yyyy/m/d"))
　ChkDate = CDate(wsStr)

を

　'翌日を初期表示して検索日を求める
　wsStr = InputBox( _
　　Prompt:="検索日を入力してください。", _
　　Default:=Format(Date + 1, "yyyy/m/d"))　　　'<==ここ
　ChkDate = CDate(wsStr)

に変更してください。

お礼

色々とありがとうございます。
参考にさせていただきます。
ご丁寧にありがとうございました。

回答No.4

HohoPapa

>配達日付別に、商品・数量・取引先等を作成した表
これがシート単位に格納されている。
つまり、
>日々30件前後の配達予定
30枚前後のシートが追加や修正されている。
かつ、
そのレイアウトは提示されたものだ。

ということであれば、
次のようなコードを実行することで
指定した配達日のシートたちを（複数）選択することができます。

よかったら参考にしてみてください。

Option Explicit

Sub Sample()

　Dim ChkDate As Date
　Dim wsStr As String
　Dim Sh As Worksheet
　Dim ArrayShName() As String
　Dim i As Long

　'前日を初期表示して検索日を求める
　wsStr = InputBox( _
　　Prompt:="検索日を入力してください。", _
　　Default:=Format(Date - 1, "yyyy/m/d"))
　ChkDate = CDate(wsStr)

　'配列を初期化
　ReDim ArrayShName(0)

　'ヒットしたシートを（複数）選択
　For Each Sh In ThisWorkbook.Worksheets
　　If Sh.Range("B3").Value = ChkDate Then
　　　ReDim Preserve ArrayShName(i)
　　　ArrayShName(i) = Sh.Name
　　　i = i + 1
　　End If
　Next Sh

　'指定した名前のシートがあるか確認
　If ArrayShName(0) = "" Then
　　 MsgBox "該当シートがありません"
　　 Exit Sub
　End If
　Worksheets(ArrayShName).Select

End Sub

回答No.3

imogasi

（１）データベース　がまず作ってあり
（２）質問のフォーマットの書式の帳票シートがあり（１シートの一部分を
、そのつど全取引先で、中身を変えて使いまわすのがよいと思う。）
ーー
（１）より１社分のデータを取ってきて、
（これをするとき、アクセス（MsAccess)などのほうが、しやすい。）
（２）に項目データを配置し
（３）印刷する（VBAで自動印刷。そして（２）の項目をクリア）。
これを、全と請求先分を順次繰り返す。
ーー
このうち（１）のデータのサンプルが、質問に書いてないのは、質問として不都合だろう。難しさを左右するのは（１）の方なんだ。
そういう点から推定して、まだ経験が不足だろう。
仕事のこういう課題に手を付けられるのは、会社に、VBAなどの経験者の先輩がいて、適宜教えてもらえることが必要と思う。
それか数年かけてVBAなどの勉強をするかだ。
本当は業者に頼むことだ。甘く見て首を突っ込むのは、良くない。
質問者の本職（担当）は、請求事務か？完成したら上司や社長に評価してもらえるか？横目で、頭だけで、出来そうだということで、乗り出すのなら、やめた方がよい。
本件で、丸投げしても、今後の修正や、システムの発展に応じられない、だろうから、無理をしない方がよい。

補足

仰る通りですね。

　自分で取引先のデータベースを先日作り、帳票(1)は予めフィルターで商品を選択し、vbaでワンクリック印刷及び別シートに集計保存を出来るようにしていましたが、集計を簡素化するため商品を行方向に並べてました。
　ここが間違いの元だとは思っていますので、帳票と同じく列方向に縦並びにして保存しようと思っています。
　そこで保存したものを、前日に印刷する場合に、日にち検索で簡単に一括印刷する手立てはないものかと色々検索してみたのですが、どうにも判らないのです。
　褒められるとかそういう物ではなく、皆が楽に少しでも早く出来ればと質問させていただいたのですが、どちらかの業者の方を探して相談してみます。
ありがとうございました

回答No.2

kkkkkm

VBAで検索するにしても検索指定日付を入力して検索するわけですし、元の表でエクセルの検索機能(Ctrl+F)を使えばいいだけだと思いますが…。

回答No.1

oboroxx

なぜVBAでやろうとするのかがわかりません。
シートのフォーマットが決まっているのであれば、テンプレートを作って置き、必要な時にダブルクリックでコピーされた新規ブックに書き込み、配達日の日付をファイル名に含めて保存しておいて、差し替えがあるときに再度開いて書き換えればいいだけだと思うのですが。
終わったものは、過去のフォルダーでも作ってそこに入れて置けば何かの時に確認が取れるかなと思います。