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

[µo°Ý] ¦r¦ê¤¤¨S¦³¥]§t¬Y¦r¤¸¥Îªk

¦^´_ 1# v03586
±N
If .Cells(i, "A") Like "*AAA*"  Then
§ï¬°
If InStr(.Cells(i, "A").Value, "AAA") = 0 Then

¥ÎInStr¨ç¼Æ¡A¥i°µ¬°¦r¦ê¤ñ¹ïªº§PÂ_¡G
­Y§PÂ_¦¡µ¥©ó0ªí¥Ü¨S¦³²Å¦X¸ê®Æ¡A¤Ï¤§(<>0)«hªí¥Ü¦³²Å¦Xªº¸ê®Æ

InStr¨ç¼Æªº¨Ï¥Îªk½Ð°Ñ·ÓVBAªº©x¤è»¡©ú
[b]Kubi[/b]

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD