帖子: 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

超級版主 Rank: 8 Rank: 8

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

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

小俠客

中學生 Rank: 2

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

3^#

發表於 2012-8-2 13:03 | 只看該作者

試了版主的方法，真的可行，謝謝你！

TOP

小俠客

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-8-2 17:03 | 只看該作者

回復 4# 小俠客

Sub ex()
Set a = Columns("A").Find("陳大文", after:=[A65536], SearchOrder:=xlByRows, SearchDirection:=xlFirst)
MsgBox a.Row
Set a = Columns("A").Find("陳大文", after:=[A65536], SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
MsgBox a.Row
End Sub

複製代碼

學海無涯_不恥下問

TOP

GBKEE