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