Range("a:a").Find(5)精準的用法
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
Range("a:a").Find(5)精準的用法
請教先進
A1儲存格的值是空白
A2儲存格的值是空白
A3儲存格的值是 56
A4儲存格的值是 5
使用指令
Set rng = Range("a:a").Find(5)
MsgBox rng.Row
結果是3 ===>我要的結果是4
請教如何能精準的找到5而不56? 感謝! |
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
2#
發表於 2012-3-5 15:45
| 只看該作者
|
MsgBox [a:a].Find(5, , , 1).Row |
|
|
|
|
|
|
|
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
3#
發表於 2012-3-5 16:23
| 只看該作者
感恩 ,
再請教如果想要, 在[a:a]搜尋5, [b:b]搜尋6, [c:c]搜尋7, 而且結果必須在一列, 請教如何用Find的指令寫法,速度會比較快, 還是oobird先進有Find其他相關用法能一併賜教, 讓我能多多充實vba功力, 感謝! |
|
|
|
|
|
|
|
- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
4#
發表於 2012-3-5 16:54
| 只看該作者
- Sub FIND()
- For i = 1 To 3
- c = 1
- Columns(i + 4) = ""
- Set rng = Columns(i).FIND(i + 4, , , xlWhole)
- If Not rng Is Nothing Then
- findrow = rng.Row
- Do
- Cells(c, i + 4) = rng.Row
- c = c + 1
- Set rng = Columns(i).FindNext(rng)
- Loop While Not rng Is Nothing And rng.Row <> findrow
- End If
- Next i
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 12
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003/2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-8-24
- 最後登錄
- 2019-2-26
|
5#
發表於 2012-3-6 00:17
| 只看該作者
I think.....- Cells.Find(what:="56", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
|
|
|
|
|
|
|
|
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
6#
發表於 2012-3-6 11:48
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
7#
發表於 2012-3-6 13:36
| 只看該作者
find方法在vba中使用相當廣泛
建議多練習：
1.find工作表上某值出現的位置
2.find工作表上公式帶出某值的位置
3.find工作表上設定某格式的位置，如填滿色彩或粗體文字
4.find工作表上設定合併儲存格的位置 |
|
|
|
|
|
|
|
