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