ªð¦^¦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

¦^´_ 2# luhpro

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

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD