Sub 重設表格()

Dim 目前編號 As Integer

Sheets("訂單").Range("D5,D10:E16").ClearContents

目前編號 = Sheets("資料庫").Range("A1").CurrentRegion.End(xlDown).Value

Sheets("訂單").Range("G6").Value = 目前編號 + 1
Sheets("訂單").Range("G7").Value = Date

End Sub

Sub 儲存訂單()

Dim 品項數量 As Integer, 空白列 As Integer

品項數量 = WorksheetFunction.CountA(Sheets("訂單").Range("D10:D16"))
空白列 = Sheets("資料庫").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row

Sheets("訂單").Range("D10:G10").Resize(品項數量).Copy
Sheets("資料庫").Range("D" & 空白列).PasteSpecial xlPasteValues

Sheets("資料庫").Range("A" & 空白列).Resize(品項數量).Value = Sheets("訂單").Range("G6").Value
Sheets("資料庫").Range("B" & 空白列).Resize(品項數量).Value = Sheets("訂單").Range("G7").Value
Sheets("資料庫").Range("C" & 空白列).Resize(品項數量).Value = Sheets("訂單").Range("D5").Value

Call 重設表格
MsgBox "資料儲存完畢"

End Sub

Sub 查詢訂單()

Dim 訂單編號 As Integer, 訂單位置 As Integer, 品項數量 As Integer

訂單編號 = Sheets("訂單").Range("G6").Value
品項數量 = WorksheetFunction.CountIf(Sheets("資料庫").Range("A:A"), 訂單編號)

Sheets("訂單").Range("D5, D10:E16").ClearContents

If 品項數量 = 0 Then
    MsgBox "查無此訂單"
    Exit Sub
Else
    訂單位置 = WorksheetFunction.Match(訂單編號, Sheets("資料庫").Range("A:A"), 0)
    Sheets("資料庫").Range("D" & 訂單位置).Resize(品項數量, 2).Copy
    Sheets("訂單").Range("D10").PasteSpecial xlPasteValues
    
    Sheets("訂單").Range("G7").Value = Sheets("資料庫").Range("B" & 訂單位置).Value
    Sheets("訂單").Range("D5").Value = Sheets("資料庫").Range("C" & 訂單位置).Value
    
End If

End Sub

Sub 列印訂單()

Dim 檔名 As String
檔名 = Format(Range("G6").Value, "00000")

Sheets("訂單").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="\\Mac\Home\Downloads\" & 檔名, _
IgnorePrintAreas:=False

End Sub