標題: 年份補0 [打印本頁]

---

作者: yc1031    時間: 2012-8-8 09:54     標題: 年份補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

---

作者: Hsieh    時間: 2012-8-8 11:10

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

回復 1# yc1031

1. Sub 訂單號碼()
   
2. 
   
3. Dim myNumber As String
   
4. Dim dYM As String
   
5. dYM = Format(Date, "emm")
   
6. myNumber = InputBox("訂單編號")
   
7. Range("K5").Select
   
8. ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYM & "-" & myNumber
   
9.    
   
10. End Sub

複製代碼

---

作者: yc1031    時間: 2012-8-8 17:25

回復 2# Hsieh


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

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

---

作者: Hsieh    時間: 2012-8-8 18:56

回復 3# yc1031
一般模組

1. Sub Auto_Open()
   
2. 
   
3. Dim myNumber As String
   
4. Dim dYM As String
   
5. dYM = Format(Date, "emm")
   
6. myNumber = InputBox("訂單編號")
   
7. Range("K5").Select
   
8. ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYM & "-" & myNumber
   
9.    
   
10. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)