- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 10# dechiuan999 - 'InStr ¨ç¼Æ ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
- Private Sub TextBox2_Change()
- Dim xl As Integer, xText As String
- xText = TextBox1 '¦r¦ê=TextBox1
- ComboBox1.Clear
- Do While InStr(xText, TextBox2)
- 'While: ±ø¥ó¦¨¥ß °õ¦æ¦^°é -> TextBox2¦r¦ê¦bxText¦r¦ê¤¤³Ì¥ý¥X²{¦ì¸m >1 => True¦¨¥ß, 0=>False ¤£¦¨¥ß
- 'Until: ±ø¥ó¤£¦¨¥ß °õ¦æ¦^°é
- ComboBox1.AddItem xl + 1
- xl = xl + 1
- xText = Mid(xText, InStr(xText, TextBox2) + Len(TextBox2))
- '¦r¦ê=ç°£¤w¥X²{¦ì¸mªº¦r¤¸ªº¦r¦ê ¥HÁקKµL½aªº°j°é
- 'InStr(xText, TextBox2) + Len(TextBox2) :³Ì¥ý¥X²{¦ì¸m+TextBox2ªº¦r¤¸¼Æ
- Loop
- End Sub
½Æ»s¥N½X |
|