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

°Ý­Ó¤p°ÝÃD~

°Ý­Ó¤p°ÝÃD~

¥»©«³Ì«á¥Ñ color790 ©ó 2010-8-20 00:06 ½s¿è

½Ð°Ý=«á­±­n«ç»ò­×§ï,§Úª¾¹D¬O¿ùªº
·Q­ncells(i-2 , 4)¨ìcells( i, 4)¦C³Ì¤j­È (¤§«á¤]¥i¯à§ïi-10~i )
Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Max(cells(i-2, 4):cells(i, 4))

Book2.rar (11.84 KB)

ªì¾ÇªÌcolor

³á~­ì¨Ó¦p¦¹,¤S¾Ç¨ì¤F,ÁÂÁÂ~^^
ªì¾ÇªÌcolor

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2010-8-20 00:58 ½s¿è
¦^´_  luhpro


    ¦pªG·í«eªº¤u§@ªí¬Osheet2, ¥X¨Óªº´N¬Osheet2ªºRange(Cells(i - 6, 4), Cells(i, 4 ...
kimbal µoªí©ó 2010-8-20 00:08



§â Worksheets() §ï¦¨ Sheets() À³¸Ó´N¥i¥H¤F

Sheets("sheet2").Cells(j, 4) = Sheets("sheet1").Application.Max(Range(Cells(i - 6, 4), Cells(i, 4)))

¥D­n¬O©w¸q¤Wªº°ÝÃD
Worksheets ªí¥Ü¥¿¦b "¤u§@¤¤" ªºªí®æ

¸É¥R :
­è­èµo²{¤W­zªºµ{¦¡¤º®e :
Sheets("sheet1").Application.Max(Range(Cells(i - 6, 4), Cells(i, 4)))
½T¹ê·|¨ü­­©ó¥Ø«e§@¥Î¤¤ªº Sheet ¬O­þ¤@­Ó,
¬ã§PÀ³¸Ó¬O¨º­Ó Application ±Ô­z±N§@¥Îª«¼h¯Å´£¤É¨ì Application ¥H¦Ü©ó¨ä«á­±ªº­pºâ¦bWorksheet«D¬° sheet1 ®É,¤Ï¦ÓµLªk¯u¥¿¹ïÀ³¨ì sheet1,
«Øij§AÁÙ¬O§ï±Ä Hsieh  ¤jªº¤Þ¥Î¤è¦¡¬°©y.

TOP

¦^´_ 7# kimbal

¯uªº­C~¬°¤°»ò???¤£¬O«ü©w­þ­Ó sheet¤F?
ªì¾ÇªÌcolor

TOP

¦^´_ 5# luhpro


    ¦pªG·í«eªº¤u§@ªí¬Osheet2, ¥X¨Óªº´N¬Osheet2ªºRange(Cells(i - 6, 4), Cells(i, 4))
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¤w¸gªþ¤W¤F,¦A³Â·Ð¤@¤U,ÁÂÁ¦U¦ì
ªì¾ÇªÌcolor

TOP

HI~ÁÂÁÂÀ°¦£,¦A½Ð°Ý¤@¤U
Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Application.Max(Rang ...
color790 µoªí©ó 2010-8-19 23:38


§Ú¦³¸Õ¹Lµ{¦¡¨Ã¤£·|¦³¿ù»~ªºµ²ªG©O...

Sub aa()
  Dim i, j
  i = 10
  j = 1
  Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Application.Max(Range(Cells(i - 6, 4), Cells(i, 4)))
End Sub

D1=2
D2=8
D3=6
D4=5
D5=10
D6=15
D7=8
D8=9
D9=10
D10=11

¤W­zµ{¦¡°õ¦æ«áªºµ²ªG Sheet2 ªº D1 = 15

«Øij§A¬O¤£¬O¦Ò¼{§âµ{¦¡¶K¤W¨Ó¬Ý¬Ý?

TOP

Worksheets("sheet2").Cells(j, 4) = Application.Max(sheet1.Range(sheet1.Cells(i - 2, 4), sheet1.Cells(i, 4)))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

HI~ÁÂÁÂÀ°¦£,¦A½Ð°Ý¤@¤U
Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Application.Max(Range(Cells(i - 2, 4), Cells(i, 4)))
¬O§ï¦¨³o¼Ë¶Ü?¥i¬O³o¼Ërun,«ç»ò³£¨q0
ªì¾ÇªÌcolor

TOP

Application.Max(Range(Cells(i - 2, 4), Cells(i, 4)))

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD