VBA 仕入管理７（注文書）

注文書ボタン

注文書ボタンは発注リストから進捗状況が“発注予約”ものをピックアップして注文書を作成します。
ワークシート「発注入力」と「注文書」の間でデータが転送されます。

注文書ボタンの処理の流れ

　1. Activeワークシートに「発注書」を指定します。
　2. ワークシート「発注書」の入力欄をデータクリアします。
　3. ワークシート「発注入力」の発注リスト欄から”発注予約”のオーダーを転記していきます。
　4. 初めて転記されたオーダーの仕入先を記録して同一仕入先のオーダーのみ連続で転記します。
　5. 転記されたオーダーが0件の場合メッセージ”発注予約がありません。”を表示します。
　6. 転記されたオーダーがあった場合、印刷プレビューを表示します。

一説ずつ解説していきます。

Worksheets(“発注書”).Activate
Worksheets(“発注書”).Range(“B8:I15,B5,I5”).Select
Selection.ClearContents

Dim DTH1 As Object
Set DTH1 = Worksheets(“発注入力”)
str1 = “”
f = 8
h = 7

Do While・・・Loop

Do While DTH1.Cells(h, 5).Value <> “”
　　　　　　・・・省略・・・ 　　
　　　　　　h = h + 1
Loop

　　If DTH1.Cells(h, 17).Value = “発注予約” Then
　　　　If f = 8 Then ‘仕入先確定
　　　　　　str1 = DTH1.Cells(h, 7).Value
　　　　　　・・・省略・・・ 　　
　　　　End If
　　　　If str1 = DTH1.Cells(h, 7).Value Then
　　　　　　・・・省略・・・ 　　
　　　　End If
　　End If

　　　　　Cells(5, 2).Value = DTH1.Cells(h, 7).Value‘仕入先名
　　　　　Cells(5, 9).Value = Mid(Date, 1, 4) & Mid(Date, 6, 2) & Mid(Date, 9, 2)‘発注日

　　　　　　Cells(f, 2).Value = DTH1.Cells(h, 9).Value ‘商品名
　　　　　　Cells(f, 3).Value = DTH1.Cells(h, 10).Value ‘数量
　　　　　　Cells(f, 4).Value = DTH1.Cells(h, 11).Value ‘単位
　　　　　　Cells(f, 5).Value = DTH1.Cells(h, 12).Value ‘入目
　　　　　　Cells(f, 6).Value = DTH1.Cells(h, 13).Value ‘単価
　　　　　　Cells(f, 7).Value = DTH1.Cells(h, 14).Value ‘金額
　　　　　　Cells(f, 8).Value = DTH1.Cells(h, 15).Value ‘納期
　　　　　　Cells(f, 9).Value = DTH1.Cells(h, 16).Value ‘備考
　　　　　　DTH1.Cells(h, 17).Value = “注文書発行”
　　　　　　f = f + 1

If f = 8 Then
　　MsgBox (“発注予約がありません。”)
Else
　　Worksheets(“発注書”).PrintPreview EnableChanges:=False
End If