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

[µo°Ý] ½Ð±Ð¦¹µ{§Ç¿ù¦b¦ó³B¡A¦p¦ó§ï ??

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-3-20 09:45 ½s¿è

¦^´_ 3# t8899
  1. Sub BBB()
  2. A = [ao20:ao350].find(Application.Large(Sheets("Sheet6").Range("ao20:ao350"), 1),,,xlwhole).address
  3. Sheets("Sheet6").Range("A10").Value = range(A).Offset(0, -37)
  4. End Sub
½Æ»s¥N½X
max¥u¯à¨ú³Ì¤j¡Alarge¯à¿ï¾Ü­n²Ä´X¤j¡A®t§O¦b³o

TOP

¦^´_ 7# t8899


¬O³o»ò»¡¨S¿ù°Õ¡A   
¦ý¦pªG§A¥u¬O­n³Ì¤j­È¡A´N¥i¥Hª½±µ¥ÎMAX¡A¤½¦¡¤ñ¸û²µu¤@ÂI¡A
MAX(RANGE)
LARGE(RANGE,1)
®¦¡A¯uªº¥u¦³¤@ÂI¡K

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-3-20 20:24 ½s¿è

¦^´_ 11# t8899

¤GºØ¤è¦¡¡G
  1. Sub aaa()
  2. a = Sheets("She5555555555555et6").Range("ao20:ao350").Find(Application.Max(Sheets("She5555555555555et6").Range("ao20:ao350"))).Address
  3. Sheets("She5555555555555et6").Range("A10") = Sheets("She5555555555555et6").Range(a).Offset(0, -37)
  4. End Sub
½Æ»s¥N½X
¤£µM´N¬O­n
  1. Sub aaa()
  2. Dim a As Range
  3. Set a = Sheets("She5555555555555et6").Range("ao20:ao350").Find(Application.Max(Sheets("She5555555555555et6").Range("ao20:ao350")))
  4. Sheets("She5555555555555et6").Range("A10") =a.Offset(0, -37)
  5. End Sub
½Æ»s¥N½X
²Ä¤GºØ¤è¦¡¦]¬°¦³©w¸qaªº½d³ò¤F¡A©Ò¥H¤£»Ý­n¦ba«e­±¯S©w«ü¥Xsheetx¡A¥L´N¯à¥h§ä¨ì¥Lªº¦ì¸m¤F¡C

ªþÀɧA¸Õ¸Õ¬Ý¡A§Ú°µ¬O³£¨S°ÝÃD§r¡C

Book1.rar (16.19 KB)

TOP

¦^´_ 14# t8899


    ­è¤~¸Õ¤F¤@¤U¤§«eªºµ{¦¡¡Aµo²{FIND«á­±¦pªG¨S¦³¸É¤W, , xlValues, xlWhole
    ¦b§Aªº¤½¦¡¤U§ä¥X¨Óªº­È·|¤£¬O¥¿½T¸Ñµª¡A§Ú¨Ì·Ó§Aªº¤½¦¡¥h¼ÒÀÀ¤F¤@­ÓÀɮסA§A¬Ý¬Ý¤º®e¦A¥h§ï­×§AªºÀɮסA
    §Æ±æ¯à°÷¸Ñ¨M§Aªº°ÝÃD¡C

Book1.rar (18.29 KB)

TOP

¦^´_ 20# t8899


   ¸Õ¤F¤@¤Uı±o¤£¬O¤½¦¡ªº°ÝÃD¡A¦Ó¬OÀx¦s®æ®æ¦¡ªº°ÝÃD¡A
   ¦ý¤£ª¾¹D¬O¦ó­ì¦]³y¦¨¨t²Î»{©w¸Ó½d³òªºÀx¦s®æ®æ«D¬°¤@¯ëªº¼Æ­È®æ¼Æ¡A
   ¦]¦Ó¦bvba¸Ì·|§ä¤£¨ìª«¥ó¡C

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD