jesscc

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-18 23:43 | 只看該作者

[發問] 可正常顯示執行結果，可是會出現偵錯

本帖最後由 jesscc 於 2011-4-18 23:44 編輯

Sub NewShBtn_Click()
If OptionButton1 = True Then
Dim i As Integer, rng As Range, y As WorksheetFunction
Set y = WorksheetFunction
Range("B3:E8000").Font.ColorIndex = 0
For i = 2 To 5
Set rng = Cells(3, i).Resize(8000)
Cells(rng.Find(y.Max(rng), lookat:=xlWhole).Row, i).Font.ColorIndex = 3
Cells(rng.Find(y.Min(rng), lookat:=xlWhole).Row, i).Font.ColorIndex = 10
Next
End If
...
...

複製代碼

這段代碼可以正常執行出結果，可是在第八行會出現偵錯:

執行階段錯誤'91':
沒有設定物件變數或With區塊變數

是哪裡有問題嗎?

樓主熱帖

Jess

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-4-19 08:02 | 只看該作者

既然rng是在循環中的變量
第8行這樣即可
rng.Find(y.Max(rng), lookat:=xlWhole).Font.ColorIndex = 3
出現偵錯視窗應該是某次rng範圍沒有數字

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

3^#

發表於 2011-4-19 20:33 | 只看該作者

這次又出現

執行階段錯誤'1004':
無法取得類別 WorksheetFunction 的Max屬性

會不會是Max函數無法對空值的Cells做處理?

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

4^#

發表於 2011-4-21 19:41 | 只看該作者

我已經確定問題所在，如同大大說的，某次rng範圍沒有數字或是非數字、空值的時候就會產生這種錯誤，有沒有辦法讓MAX函數忽略這種情形呢?

Jess

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-4-22 16:41 | 只看該作者

回復 4# jesscc
For i = 2 To 5
Set rng = Cells(3, i).Resize(8000)
If y.Max(rng) Then
Cells(rng.Find(y.Max(rng), lookat:=xlWhole).Row, i).Font.ColorIndex = 3
Cells(rng.Find(y.Min(rng), lookat:=xlWhole).Row, i).Font.ColorIndex = 10
End If
Next

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

6^#

發表於 2011-4-22 23:08 | 只看該作者

可以正常執行了，謝謝大大。
加入的這段:
If y.Max(rng) Then
代表什麼意思呢?
最重要的一句，可是卻最感受不到它的重要性!

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

7^#

發表於 2011-4-23 00:02 | 只看該作者

Range("E3:E3000").Value = Range("E3:E3000").Value
If OptionButton1 = True Then
Dim i As Integer, rng As Range, y As WorksheetFunction
Range("B3:E3000").Font.ColorIndex = 0
Set y = WorksheetFunction
Range("B3:E3000").Font.ColorIndex = 0
For i = 2 To 5
Set rng = Cells(3, i).Resize(3000)
Cells(rng.Find(y.Max(rng), lookat:=xlWhole).Row, i).Font.ColorIndex = 3
Cells(rng.Find(y.Min(rng), lookat:=xlWhole).Row, i).Font.ColorIndex = 10
Next
End If

複製代碼

剛剛又試了一次，發現還是會出錯，乾脆我就把 Cells 裏的公式，直接轉為數值，這樣就Ok了。

Jess

TOP