¦~¥÷¸É0

yc1031

¦U¦ì¦n!

§Ú·Q½Ð°Ý¤@¤U, ¦bdMonth³o­Ó³¡¤À, ­Y·Q­n1-9¤ë«e­±³£¥[­Ó0, 10~12¤ëªº¸Ü¤£ÅÜ°Ê,
§Ú¸Ó¦p¦ó°µ©O?

Sub ­q³æ¸¹½X()

Dim myNumber As String
Dim dYear As Integer
Dim dMonth As Integer
dYear = Year(Date)
dMonth = Month(Date)
myNumber = InputBox("­q³æ½s¸¹")
   
Range("K5").Select
ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYear - 1911 & dMonth & "-" & myNumber
   
End Sub

Hsieh

¦^´_ 1# yc1031

1. Sub ­q³æ¸¹½X()
   
2. 
   
3. Dim myNumber As String
   
4. Dim dYM As String
   
5. dYM = Format(Date, "emm")
   
6. myNumber = InputBox("­q³æ½s¸¹")
   
7. Range("K5").Select
   
8. ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYM & "-" & myNumber
   
9.    
   
10. End Sub

½Æ»s¥N½X

yc1031

¦^´_ 2# Hsieh


«D±`·PÁ±z!
°ÝÃD¤w¸Ñ¨M...

¥t¥~,  ·Q½Ð±Ð±z¬O§_¯à°µ¦¨, ¤@¶}excel ÀÉ, ´N¥ß§Y¸õ¥X³o­ÓinputboxªºVBA©O?

Hsieh

¦^´_ 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("­q³æ½s¸¹")
   
7. Range("K5").Select
   
8. ActiveCell.Offset(1, 0).FormulaR1C1 = "DO-" & dYM & "-" & myNumber
   
9.    
   
10. End Sub

½Æ»s¥N½X