Hsieh

¦^´_ 1# afu9240

1. Private Sub ComboBox3_Change()
   
2. With ¤u§@ªí1
   
3. n = Application.CountIf(.[A:A], ComboBox3 & "*")
   
4. TextBox1.Text = ComboBox3 & Format(n + 1, "0000")
   
5. End With
   
6. End Sub
   
7. 
   
8. Private Sub CommandButton1_Click() '·s¼W¿é¤J
   
9.     Dim x As Integer
   
10.     TextBox11.Text = Date
    
11.     CommandButton1.Visible = False
    
12.     CommandButton9.Visible = True
    
13. End Sub
    
14. 
    
15. Private Sub CommandButton2_Click() 'µ²§ô¨t²Î
    
16.     End
    
17. End Sub
    
18. 
    
19. Private Sub CommandButton9_Click() 'Àx¦s
    
20.      Dim CT As Control
    
21.    
    
22. For Each CT In Controls
    
23.    If CT.Parent.Name = "Page1" And CT.Name Like "*Box*" Then
    
24.       If CT = "" Then MsgBox "¸ê®Æ¥¼¶ñ": Exit Sub
    
25.    End If
    
26. Next
    
27. ar = Array(TextBox1, ComboBox3, ComboBox1, TextBox3, TextBox4, TextBox5, TextBox6, TextBox8, ComboBox2, TextBox9, "", TextBox7, TextBox10, "", TextBox11)
    
28. With ¤u§@ªí1
    
29. .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(ar) + 1) = ar
    
30. End With
    
31. End Sub

½Æ»s¥N½X