[發問] 請教此程序錯在何處，如何改 ??

Sub BBB()
A = Application.Large(Sheets("Sheet6").Range("ao20:ao350"), 1)
Sheets("Sheet6").Range("A10").Value = A.Offset(0, -37)
End Sub

樓主熱帖

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

2^#

發表於 2014-3-20 06:36 | 顯示全部帖子

A返回的是區間中最大數值,是數值而非該數值所在的儲存格
而offset函數必先指定一個儲存格或範圍(物件)再去 ...
a8350070 發表於 2014-3-19 22:15

試過可以，但參數太多，看不太懂?有無較易懂的解法?

TOP

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

3^#

發表於 2014-3-20 08:43 | 顯示全部帖子

回復 t8899

A = Application.Large(Sheets("Sheet6").Range("ao20:ao350"), 1)

這樣得到的是區間最 ...
Hsieh 發表於 2014-3-20 08:28

Application.Large
application.max
這兩個有差別嗎???

TOP

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

4^#

發表於 2014-3-20 11:59 | 顯示全部帖子

回復 t8899 max只能取最大，large能選擇要第幾大，差別在這
owen06 發表於 2014-3-20 09:39

large 即已包含max , 就無須max 啊

TOP

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

5^#

發表於 2014-3-20 14:44 | 顯示全部帖子

回復 t8899 max只能取最大，large能選擇要第幾大，差別在這
owen06 發表於 2014-3-20 09:39

剛試了一下，沒有設定物件變數??

TOP

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

6^#

發表於 2014-3-20 19:31 | 顯示全部帖子

問題就只是沒有使用Set設置變數為物件
Hsieh 發表於 2014-3-20 15:14

物件定義錯誤??請教如何定義查找出來的屬性 ?
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