- ©«¤l
- 91
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 130
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-5-14
- ³Ì«áµn¿ý
- 2020-5-17
|
¦^´_ 1# afu9240
°Ñ¦Ò¬Ý¬Ý- Private Sub ComboBox3_Change()
- With Worksheets(1).Range("A:A")
- Set c = .Find(ComboBox3.Text, LookIn:=xlValues, SearchDirection:=xlPrevious)
- If Not c Is Nothing Then
- TextBox1.Text = ComboBox3.Text & Format(Val(Right(c.Value, Len(c.Value) - 2)) + 1, "00000")
- Else
- TextBox1.Text = ComboBox3.Text & "00001"
- End If
- End With
- End Sub
½Æ»s¥N½X |
|