update,

fps_draft/original_vba.txt

@@ -0,0 +1,95 @@
+
+
+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
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+