GBKEE

¦^´_ 1# afu9240

1. Option Explicit
   
2. Private Sub ComboBox1_Change()
   
3.     Dim E As Range, St As String
   
4.     With ¤u§@ªí1
   
5.         For Each E In .Range("a:a").SpecialCells(xlCellTypeConstants)
   
6.             If E Like ComboBox1 & "*" Then
   
7.                 St = IIf(Replace(E, ComboBox1, "") > St, Replace(E, ComboBox1, ""), St)
   
8.             End If
   
9.         Next
   
10.         If St = "" Then St = 0
    
11.     End With
    
12.     TextBox1.Text = ComboBox1 & Format(St + 1, "00000")
    
13. End Sub

½Æ»s¥N½X