[µo°Ý] ¦p¦óÅýªí³æ¦Û°Ê²£¥Í°]²£½s¸¹??

afu9240

¦U¦ì°ª¤â¤Îª©¤j¦n

  ªí³æ¦A·s¼W«á·|²£¥Í®É¶¡¡A¿ï¾Ü¸ê²£Ãþ§O«á,°]²£½s¸¹­n¦p¦ó¦Û°Ê±a¨ì¤U­Ó¤@½s¸¹©O??¦]¬°¸ê²£Ãþ§O¦³¤À,¦p¦ó¨Ì·Ó¸ê²£Ãþ§O¥h§ì¤U¤@­Ó½s¸¹©O!!!¨D¸Ñ «ô°U

¤U¸ü (107.5 KB)

2018-4-12 14:53

20180412.zip (21.62 KB)

¤U¸ü¦¸¼Æ: 19

2018-4-12 14:55

afu9240

¦³¤H¥i¥H±Ð§Ú¤@¤U¶Ü>??

naruto018

¦^´_ 1# afu9240

°Ñ¦Ò¬Ý¬Ý

1. Private Sub ComboBox3_Change()
   
2.     With Worksheets(1).Range("A:A")
   
3.         Set c = .Find(ComboBox3.Text, LookIn:=xlValues, SearchDirection:=xlPrevious)
   
4.         If Not c Is Nothing Then
   
5.             TextBox1.Text = ComboBox3.Text & Format(Val(Right(c.Value, Len(c.Value) - 2)) + 1, "00000")
   
6.         Else
   
7.             TextBox1.Text = ComboBox3.Text & "00001"
   
8.         End If
   
9.     End With
   
10. 
    
11. End Sub

½Æ»s¥N½X

afu9240

¦^´_ 3# naruto018


    «D±`·PÁÂn¤j´£¨Ñcode,¤º®eÁÙ­n¦A²`¤J¤F¸Ñ,¦ý³oÃä¥ý¸òn¤j½Ð±Ð¤@¤U,

  ¦b¿ï¾Ü combobox3¸ê²£Ãþ§O¿ï¶µ«á,°]½s·|¦Û°Ê±a¥X,¦ý«öÀx¦s«á¦³¥X²{¤U­±µe­±,(¸ê®Æ¦³¦s¤J¨ì¤u§@ªí1),

¤U¸ü (155.52 KB)

2018-4-16 11:28

¤U¸ü (167.63 KB)

2018-4-16 11:28

¤U¸ü (51.53 KB)

2018-4-16 11:28

iamaraymond

¦^´_ 4# afu9240

·|¦³³o­Ó¿ù¬O¦]¬°·í§A«ö¤U"Àx¦s"®É¡A©Ò¥H®æ¤l³£³Q²MªÅ¡A©Ò¥HIJ°Ê¨ìcombobox3_change¡A¦ý¦¹®Écombobox3¸Ì­±¨S¦³­È
©Ò¥H¸Ñ¨M¤èªk´N¬O¡A§PÂ_­Ycombobox3¸Ì¨S¦³­È¡A´N¤£°õ¦æµ{¦¡

1. Private Sub ComboBox3_Change()
   
2. If ComboBox3.Text = "" Then Exit Sub
   
3.     With Worksheets(1).Range("A:A")
   
4.         Set c = .Find(ComboBox3.Text, LookIn:=xlValues, SearchDirection:=xlPrevious)
   
5.         If Not c Is Nothing Then
   
6.             TextBox1.Text = ComboBox3.Text & Format(Val(Right(c.Value, Len(c.Value) - 2)) + 1, "00000")
   
7.         Else
   
8.             TextBox1.Text = ComboBox3.Text & "00001"
   
9.         End If
   
10.     End With
    
11. 
    
12. End Sub

½Æ»s¥N½X

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

afu9240

¦^´_ 5# iamaraymond


    i ¤j ·PÁ  ¨ü±Ð¤F~~¸Ñ¨M³o¶µ°ÝÃD

GBKEE

¦^´_ 7# afu9240


    ªí³æ¦Û°Ê²£¥Í°]²£½s¸¹ (¦Û°ÊÀx¦s).zip (27.88 KB)

¤U¸ü¦¸¼Æ: 29

2018-4-17 11:22

¤F¸Ñ¬Ý¬Ý,¤£À´¦A°Ý

afu9240

¦^´_ 6# Hsieh

·PÁ¶W¯Åª©¥D*20000,³o¬qCODE§Ú»Ý­n¦n¦n¬ã¨s,¡A,¯uªº«D±`·PÁÂ...