ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý³o­Ó¦r¦ê¬°¤°»ò¥ÎFind¤è¦¡µLªk§ä¨ì, ¥Î´`ÁÙÀô¤è¦¡´N§ä¨ì

½Ð°Ý³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

½Ð°Ý¬°¤°»ò¥Î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ªº,

¥u­n§â "~" ®³±¼´N¥i¥H§ä¨ì¤F.

¦Ü©ó­ì¦]§Ú´N¤£ª¾¹D¤F......

TOP

¦^´_ 2# luhpro

·PÁ§AªºÀ°¦£~
ªì¾ÇªÌcolor

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ª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 "~*"  ´À´«¬° "-"

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD