ªð¦^¦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 : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD