ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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



20180412.zip (21.62 KB)
yvonne

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

TOP

¦^´_ 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. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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),

yvonne

TOP

¦^´_ 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. End Sub
½Æ»s¥N½X
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 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. Private Sub CommandButton1_Click() '·s¼W¿é¤J
  8.     Dim x As Integer
  9.     TextBox11.Text = Date
  10.     CommandButton1.Visible = False
  11.     CommandButton9.Visible = True
  12. End Sub

  13. Private Sub CommandButton2_Click() 'µ²§ô¨t²Î
  14.     End
  15. End Sub

  16. Private Sub CommandButton9_Click() 'Àx¦s
  17.      Dim CT As Control
  18.    
  19. For Each CT In Controls
  20.    If CT.Parent.Name = "Page1" And CT.Name Like "*Box*" Then
  21.       If CT = "" Then MsgBox "¸ê®Æ¥¼¶ñ": Exit Sub
  22.    End If
  23. Next
  24. ar = Array(TextBox1, ComboBox3, ComboBox1, TextBox3, TextBox4, TextBox5, TextBox6, TextBox8, ComboBox2, TextBox9, "", TextBox7, TextBox10, "", TextBox11)
  25. With ¤u§@ªí1
  26. .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(ar) + 1) = ar
  27. End With
  28. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# iamaraymond


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

TOP

¦^´_ 7# afu9240


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

¤F¸Ñ¬Ý¬Ý,¤£À´¦A°Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# Hsieh

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

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD