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

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

°ÝÃD´N¥u¬O¨S¦³¨Ï¥ÎSet³]¸mÅܼƬ°ª«¥ó
Hsieh µoªí©ó 2014-3-20 15:14

ª«¥ó©w¸q¿ù»~??½Ð±Ð¦p¦ó©w¸q¬d§ä¥X¨ÓªºÄÝ©Ê ?
Sub aaa()
Dim a
Set a=Sheets("She5555555555555et6").Range("ao20:ao350").Find(Application.Max(Sheets("She5555555555555et6").Range("ao20:ao350")))
Sheets("She5555555555555et6").Range("A10") = Sheets("She5555555555555et6").Range(a).Offset(0, -37)
End Sub

TOP

¦^´_  t8899

ª½±µ³o¼Ë¤£´N¦æ¤F¶Ü¡H¤£µM´N¬O­n
owen06 µoªí©ó 2014-3-20 20:07

¤£¦æ­C, ¨S¦³³]©wª«¥óÅܼÆ
a=Sheets("She5555555555555et6").Range("ao20:ao350").Find(Application.Max(Sheets("She5555555555555et6").Range("ao20:ao350"))).address

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

¦^´_  t8899

¤GºØ¤è¦¡¡G¤£µM´N¬O­n²Ä¤GºØ¤è¦¡¦]¬°¦³©w¸qaªº½d³ò¤F¡A©Ò¥H¤£»Ý­n¦ba«e­±¯S©w«ü¥Xsheetx¡A ...
owen06 µoªí©ó 2014-3-20 20:17

§Aªº¨S°ÝÃD¡A®M¦b§Ú³o¸Ì¨â­Ó³£¤£¦æ
¬d¤F¤@¤U
§ÚªºAOÄæ¬O¤½¦¡
AO21=IF(Q21="","",AM21-AN21)
AO22=IF(Q22="","",AM22-AN22)
........
¬O¤£¬O³o­ì¦]???

TOP

¦^´_ 14# t8899

¥Ñ©ó§Aªº¤½¦¡¦³¥i¯à¶Ç¦^ªÅ¦r¦ê¡A·í½d³ò¤º¨S¦³¥ô¦ó¼Æ­È¡AMAX©ÎLARGE³£µLªk¨D±o³Ì¤j­È
¸Õ¸Õ¬Ý
  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. If Not a Is Nothing Then Sheets("She5555555555555et6").Range("A10") = a.Offset(0, -37)
  5. End Sub
½Æ»s¥N½X
«Øij¤W¶ÇÀɮרӬݬÝ
¾Ç®üµL²P_¤£®¢¤U°Ý

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

¦^´_  t8899


    ­è¤~¸Õ¤F¤@¤U¤§«eªºµ{¦¡¡Aµo²{FIND«á­±¦pªG¨S¦³¸É¤W, , xlValues, xlWhole
    ¦b§A ...
owen06 µoªí©ó 2014-3-20 23:55


§äªº¸ê®Æ¸Ì­±ªº­È¬OªÅ¥Õ???(¤U¤@¼ÓªþÀÉ)

TOP

«Øij¤W¶ÇÀɮרӬݬÝ
Hsieh µoªí©ó 2014-3-20 23:37



ªþÀÉ Book2.rar (40.31 KB)

TOP

¦^´_ 18# t8899
  1. Sub aaa()
  2. Dim Rng As Range
  3. Set Rng = Sheets("She5555555555555et6").Range("ao20:ao350")
  4. k = Application.Max(Rng)
  5. s = Application.Match(k, Rng, 0)
  6. Sheets("She5555555555555et6").Range("A10") = Rng(s).Offset(0, -37)
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh µoªí©ó 2014-3-21 09:37

³o¬Oao20:ao350¬O¤½¦¡ªº°ÝÃD
¬°¦ó®M¦b owen06 ªº¬O¥i¥Hªº??

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD