17 lines
325 B
QBasic
17 lines
325 B
QBasic
Option Explicit
|
|
|
|
|
|
|
|
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
|