標題: [發問] 各位大大好，我想要問一下 MAX function 的問題 [打印本頁]

---

作者: hulk10425    時間: 2012-5-13 11:47     標題: 各位大大好，我想要問一下 MAX function 的問題

首先 先說明我的程式的用途，壓縮黨裡面有一個巨集黨還有一個資料檔，我想要用聚集黨去篩選資料黨裡面的資料。

但是我的聚集黨裡面有一行用到VBA 內建的MAX函數 也就是
a_6 = Application.WorksheetFunction.Max(Range(Cells(a, 5), Cells(i_1, 5))) 這一行!

我這邊遇到了極大的困難，我覺得我應該是鬼打牆了。 我想要問的是 為什麼 a_6 他會出現 "無" 呢 ?

我明明該定義的值還有函數用法都正確，但是a_6並沒有跑出相對應的值，可以請各位幫我看看嗎 ORZ

我真的很無助，感謝萬分。

---

作者: register313    時間: 2012-5-13 16:19

回復 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 此三者之數值,永遠無法使 i_2 + n > a_1 And a_1 > i_2 成立

=>第1行永遠不成立
   故不執行第2行之最大值的計算

---

作者: Hsieh    時間: 2012-5-13 17:19

回復 1# hulk10425
加入一行然後逐行看看ad得到的範圍是在哪裡?
        '''''''''''''''''''''''''''問題在下面
                                    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
                                    
          ''''''''''''''''''''''''''問題在上面

---

作者: hulk10425    時間: 2012-5-13 22:19

謝謝以上兩位的回答，我馬上去試試看!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)