返回列表 上一主題 發帖

[發問] 各位大大好，我想要問一下 MAX function 的問題

hulk10425

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
win7 
軟體版本
home 
閱讀權限
10 
註冊時間
2012-5-13 
最後登錄
2012-5-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

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

程式.zip (320.37 KB)

收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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行之最大值的計算

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 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
                                    
          ''''''''''''''''''''''''''問題在上面
學海無涯_不恥下問

TOP

hulk10425

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
win7 
軟體版本
home 
閱讀權限
10 
註冊時間
2012-5-13 
最後登錄
2012-5-13 
4#
發表於 2012-5-13 22:19 | 只看該作者
謝謝以上兩位的回答，我馬上去試試看!

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題