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

[µo°Ý] ¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅÜ¼Æ ?

[µo°Ý] ¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅÜ¼Æ ?

Private Sub CommandButton21_Click()
     A = Application.Large(Range("G160:G228"), 1)
  MsgBox A 'aªº­È¬°39
Set bb = Range("g160:g228").Find(What:=A, SearchOrder:=xlByRows, LookIn:=xlValues)
MsgBox bb.Row  '¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅÜ¼Æ ?
End Sub

¦^´_ 1# t8899

«e½ú¦n~
·í Find ¤èªk¨S¦³§ä¨ì¤Ç°t¶µ®É¡A¥¦·|ªð¦^ Nothing¡A¦Ó±q Nothing ¤¤Àò¨ú .Row ÄÝ©Ê·|¾É­P¿ù»~¡A
¤£ª¾¬O§_¬°¤W­z­ì¦]¡C

TOP

¦^´_ 1# t8899


ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾Ç¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
MsgBox Evaluate("MATCH(LARGE(G160:G228,1),G160:G228,0)+159")
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD