25 lines
875 B
QBasic
25 lines
875 B
QBasic
|
|
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
|