返回列表 上一主題 發帖

年份補0

年份補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

回復 3# yc1031
一般模組
  1. Sub Auto_Open()

  2. Dim myNumber As String
  3. Dim dYM As String
  4. dYM = Format(Date, "emm")
  5. myNumber = InputBox("訂單編號")
  6. Range("K5").Select
  7. ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYM & "-" & myNumber
  8.    
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 2# Hsieh


非常感謝您!
問題已解決...

另外,  想請教您是否能做成, 一開excel 檔, 就立即跳出這個inputbox的VBA呢?

TOP

本帖最後由 Hsieh 於 2012-8-8 11:21 編輯

回復 1# yc1031
  1. Sub 訂單號碼()

  2. Dim myNumber As String
  3. Dim dYM As String
  4. dYM = Format(Date, "emm")
  5. myNumber = InputBox("訂單編號")
  6. Range("K5").Select
  7. ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYM & "-" & myNumber
  8.    
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題