½Ð°Ý³oÓ¦r¦ê¬°¤°»ò¥ÎFind¤è¦¡µLªk§ä¨ì, ¥Î´`ÁÙÀô¤è¦¡´N§ä¨ì
- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
½Ð°Ý³oÓ¦r¦ê¬°¤°»ò¥ÎFind¤è¦¡µLªk§ä¨ì, ¥Î´`ÁÙÀô¤è¦¡´N§ä¨ì
½Ð°Ý¬°¤°»ò¥ÎFind¤è¦¡µLªk§ä¨ì, ¥Î´`ÁÙÀô¤è¦¡´N§ä¨ì
TestItem = "Tube-Oil(1D;3.5~4Hrs)"
Sub Test2()
found = False
InfLastRow = Worksheets("Test").Range("A" & Rows.Count).End(xlUp).Row
TestItem = Worksheets("Test").Range("A3").Value
Set SearchRange = Worksheets("Test").Range("A2:K" & (InfLastRow))
Set c = SearchRange.Find(TestItem, , xlValues, xlWhole)
If c Is Nothing Then
MsgBox "¨S¦³§ä¨ì"
Else
MsgBox "¦³§ä¨ì"
End If
End Sub |
|
ªì¾ÇªÌcolor
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 13
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-10-25
|
½Ð°Ý¬°¤°»ò¥ÎFind¤è¦¡µLªk§ä¨ì, ¥Î´`ÁÙÀô¤è¦¡´N§ä¨ì
TestItem = "Tube-Oil(1D;3.5~4Hrs)"
Sub Test2( ...
color790 µoªí©ó 2024-8-27 17:04
¸g´ú¸Õ¦ü¥G¬O "~" ²Å¸¹¨Ï±o Find ¨ç¦¡·|§PÂ_ TestItem »P [A3] ªº¤º®e¬O¤£¦Pªº,
¥un§â "~" ®³±¼´N¥i¥H§ä¨ì¤F.
¦Ü©óì¦]§Ú´N¤£ª¾¹D¤F...... |
|
|
|
|
|
|
- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
¦^´_ 2# luhpro
·PÁ§AªºÀ°¦£~ |
|
ªì¾ÇªÌcolor
|
|
|
|
|
- ©«¤l
- 2827
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2883
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-10-27
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2024-9-15 17:31 ½s¿è
¦³¨Ç²Å¸¹¦³¤@©w³W½d,
TestItem = Worksheets("Test").Range("A3").Value
©³¤U¦A¥[³o¤@¦æ
TestItem = replace(TestItem, "~", "~~") '¶}ÀY¥["~", ªí¥Ü¥¦«á±¨ºÓ¦r¤¸¬°¤å¦r
¥H¤U¬Ò¦P//
TestItem = replace(TestItem, "*", "~*")
TestItem = replace(TestItem, "?", "~?")
==================
·Q§â 5.5*8*12 Åܦ¨ 5.5-8-12
¶·¿é¤J "~*" ´À´«¬° "-" |
|
|
|
|
|
|