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

¦p¦ó¼g¤@vba §ì¥X CALL/PUT ³Ì¤j¦¨¥æ¶q

  1. Sub yy()
  2. a = [e:e].Find([max(e:e)], , , 1)(1, 2)
  3. b = [k:k].Find([max(k:k)], , , 1)(1, -4)
  4. MsgBox a & vbLf & b
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# alims

³Ì¦n¦Û¤v¹Á¸Õ¤@¤U¡C

TOP

¦^´_ 7# freeffly

¦ì²¾ªº¤@ºØ¼gªk¡A·í§ä¨ì³Ì¤j­È®É¦ì²¾¨ì¦P¦Cªº¬Y­ÓÄæ¦ì

TOP

§A¥i¥H¨Ì·Ó¶¶§Ç¤ñ¹ï
³o­Ó1¥Nªíªº¬O LookAt:=xlWhole¡A¹w³](Àq»{)­È¬OxlPart
°Ñ¼Æ³£¦³¤@­Ó¹w³]­È¡A¬Ù²¤ªº°Ñ¼Æ´N·|¦Û°Ê±Ä¥Î¹w³]­È¡C

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD