[µo°Ý] ¦U¦ì¤j¤j¦n¡A§Ú·Q­n°Ý¤@¤U MAX function ªº°ÝÃD

hulk10425

­º¥ý ¥ý»¡©ú§Úªºµ{¦¡ªº¥Î³~¡AÀ£ÁYÄҸ̭±¦³¤@­Ó¥¨¶°ÄÒÁÙ¦³¤@­Ó¸ê®ÆÀÉ¡A§Ú·Q­n¥Î»E¶°ÄÒ¥h¿z¿ï¸ê®ÆÄҸ̭±ªº¸ê®Æ¡C

¦ý¬O§Úªº»E¶°ÄҸ̭±¦³¤@¦æ¥Î¨ìVBA ¤º«ØªºMAX¨ç¼Æ ¤]´N¬O
a_6 = Application.WorksheetFunction.Max(Range(Cells(a, 5), Cells(i_1, 5))) ³o¤@¦æ!

§Ú³oÃä¹J¨ì¤F·¥¤jªº§xÃø¡A§Úı±o§ÚÀ³¸Ó¬O°­¥´Àð¤F¡C §Ú·Q­n°Ýªº¬O ¬°¤°»ò a_6 ¥L·|¥X²{ "µL" ©O ?

§Ú©ú©ú¸Ó©w¸qªº­ÈÁÙ¦³¨ç¼Æ¥Îªk³£¥¿½T¡A¦ý¬Oa_6¨Ã¨S¦³¶]¥X¬Û¹ïÀ³ªº­È¡A¥i¥H½Ð¦U¦ìÀ°§Ú¬Ý¬Ý¶Ü ORZ

§Ú¯uªº«ÜµL§U¡A·PÁ¸U¤À¡C

register313

¦^´_ 1# hulk10425


If i_2 + n > a_1 > i_2 Then
   a_6 = Application.WorksheetFunction.Max(Range(Cells(a, 5), Cells(i_1, 5)))   

(1)          If i_2 + n > a_1 > i_2 Then
      §ï¬°  If i_2 + n > a_1 And a_1 > i_2 Then
(2)   i_2 , n , a_1 ¦¹¤TªÌ¤§¼Æ­È,¥Ã»·µLªk¨Ï i_2 + n > a_1 And a_1 > i_2 ¦¨¥ß

=>²Ä1¦æ¥Ã»·¤£¦¨¥ß
   ¬G¤£°õ¦æ²Ä2¦æ¤§³Ì¤j­Èªº­pºâ

Hsieh

¦^´_ 1# hulk10425
¥[¤J¤@¦æµM«á³v¦æ¬Ý¬Ýad±o¨ìªº½d³ò¬O¦b­þ¸Ì?
        '''''''''''''''''''''''''''°ÝÃD¦b¤U­±
                                    ad = Range(Cells(a, 5), Cells(i_1, 5)).Address(, , , 1)
                                    a_6 = Application.WorksheetFunction.Max(Range(Cells(a, 5), Cells(i_1, 5)))
                                    a_7 = Workbooks("Excel_Ror_" & i_0).Sheets("Excel_Ror_" & i_0).Cells(i_1 - 1, 5)
                                    
                                    a_2 = a_6
                                    a_3 = a_7
                                    
          ''''''''''''''''''''''''''°ÝÃD¦b¤W­±

hulk10425

ÁÂÁÂ¥H¤W¨â¦ìªº¦^µª¡A§Ú°¨¤W¥h¸Õ¸Õ¬Ý!