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