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

§Q¥ÎFind§ä¤é´Á¡A¥X²{¿ù»~!!

°²³]²Ä¤@¦¸¶}±ÒEXCEL«á,¨Ã¥¼°õ¦æ¥ô¦óªº·j´M°Ê§@,
¥u¶i¦æ³oÀɮתºFIND, ¦Ó¦³®É¥i, ¦³®É¤£¥i(½T©w´M§ä­È¬O¦s¦bªº),
«hÀ³¤£¬O·j´M±ø¥ó°Ñ¼Æªº°ÝÃD¤F~~

TOP

­Y¥ÎFIND¤@ª½¦³§xÂZ, ¥i§ï¥ÎMATCH¨ç¼Æ
Dim ST&
ST = Range("W3")
A = Application.Match(ST, [G:G], 0)
If IsError(A) Then MsgBox "§ä¤£¨ì W3 ªº¤é´Á!!!": Exit Sub
MsgBox A

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD