返回列表 上一主題 發帖

[發問] 如何處理用FIND時出現的ERROR91?

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-2 11:24 | 只看該作者

[發問] 如何處理用FIND時出現的ERROR91?

Name Amount
A     11
A     12
A     13
B     13
B     11
B     14
D     18

現在我在寫一個小程式去整理資料，而過程中我需要知道某一項資料最後出現的位置，例如：
last = x.columns(1).Find(CELL_FIND(I), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

如果CELL_FIND(I) ="B", last =6

find這個很好，很容易找到第一次出現和最後出現的位置。但我發現，如果當COLUMN A沒有CELL_FIND包含的資料，例如："C"，
系統就會出現error 91, 沒有設定物件變數或WITH區域變數

由於我無法在尋找前就知道那些KEYWORD是在目標區域沒有，所以我無法回避這個問題。請問各位，可以如何解決呢？
或者有沒有另外方法去找出資料的第一次出現和最後出現的位置？謝謝
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-8-2 11:53 | 只看該作者
回復 1# 小俠客

Dim a as range
    set a= x.columns(1).Find(CELL_FIND(I), SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
if not a is nothing then last = a.Row else msgbox "找不到資料"
學海無涯_不恥下問

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
3#
發表於 2012-8-2 13:03 | 只看該作者
試了版主的方法，真的可行，謝謝你！

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
4#
發表於 2012-8-2 16:32 | 只看該作者
本帖最後由 小俠客 於 2012-8-2 16:34 編輯
回復  小俠客

Dim a as range
    set a= x.columns(1).Find(CELL_FIND(I), SearchOrder:=xlByRows, S ...
Hsieh 發表於 2012-8-2 11:53



Hsieh大大，我有一個疑問，假設我在A1:A10 的值都是「陳大文」

用FIND 來找出第一個出現陳大文的位置：

Dim a As Range
    Set a = Columns(1).Find("陳大文", SearchOrder:=xlByRows, SearchDirection:=xlFirst)

我希望 a.row= 1，但EXCEL回給我的是2，請問是為什麼？有方法修正嗎？
P.S. 我不想直接減1，因為這樣做會影響程式的其他部份，謝謝

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2012-8-2 17:03 | 只看該作者
回復 4# 小俠客
  1. Sub ex()
  2. Set a = Columns("A").Find("陳大文", after:=[A65536], SearchOrder:=xlByRows, SearchDirection:=xlFirst)
  3. MsgBox a.Row
  4. Set a = Columns("A").Find("陳大文", after:=[A65536], SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
  5. MsgBox a.Row
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-8-2 17:30 | 只看該作者
回復 4# 小俠客
  1. Sub Ex() '指定的位置必須是範圍內的位置
  2.     Dim A As Range, Rng As Range
  3.     Set Rng = [A1:A10]
  4.     Set A = Rng.Find("陳大文")                                       '預設: 從範圍第1個位置(不含)開始找
  5.     MsgBox A.Row
  6.     Set A = Rng.Find("陳大文", After:=Rng(1).Cells(Rng.Rows.Count))  '指定從最後的位置找起
  7.     MsgBox A.Row
  8.     Set A = Rng.Find("陳大文", After:=Rng(5))                        '指定從範圍的Cells(5)的位置找起
  9.     MsgBox A.Row
  10. End Sub
複製代碼

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題