c_c_lai

¦^´_ 1# elaine688
¥ç¥i¦p¦¹¡G

1. Private Sub Workbook_Open()
   
2.     If TimeValue(Now) >= "¤W¤È 08:45:00" Then [B1] = 1
   
3. End Sub
   
4. 
   
5. Sub Ex()
   
6.     [A1] = SerialNo
   
7.     [A2] = SerialNo
   
8.     [A3] = SerialNo
   
9. End Sub
   
10. 
    
11. Function SerialNo() As String
    
12.     Static cJ As Integer
    
13.    
    
14.     If [B1] = 1 Then cJ = 0
    
15.     [B1] = 0
    
16.     SerialNo = Format(Date, "emmdd") & "-" & Format(cJ + 1, "00000")
    
17.     cJ = cJ + 1
    
18. End Function

½Æ»s¥N½X