- 帖子
- 106
- 主題
- 35
- 精華
- 0
- 積分
- 146
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-8-30
- 最後登錄
- 2024-3-26
|
年份補0
各位好!
我想請問一下, 在dMonth這個部分, 若想要1-9月前面都加個0, 10~12月的話不變動,
我該如何做呢?
Sub 訂單號碼()
Dim myNumber As String
Dim dYear As Integer
Dim dMonth As Integer
dYear = Year(Date)
dMonth = Month(Date)
myNumber = InputBox("訂單編號")
Range("K5").Select
ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYear - 1911 & dMonth & "-" & myNumber
End Sub |
|