[發問] 類似Ctrl+F的功能

如下圖，請問高手們能在VBA寫一個語法是
在B2輸入欲搜尋的名稱，按下搜尋後，即跑到D或E欄對應的欄位內
就像Ctrl+f的模糊搜尋功能

樓主熱帖

cw3076

中學生 Rank: 2

帖子: 42
主題: 12
精華: 0
積分: 283
點名: 2
作業系統: WINDOWS XP
軟體版本: SP2
閱讀權限: 20
來自: KAOHSIUNG
註冊時間: 2010-5-8
最後登錄: 2024-12-7

2^#

發表於 2016-12-14 21:47 | 只看該作者

Worksheets("Sheet1").[D:E].Find([A2]).Activate

TOP

xgirlxs

中學生 Rank: 2

帖子: 36
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-22
最後登錄: 2016-12-19

3^#

發表於 2016-12-19 10:53 | 只看該作者

超棒的，感謝CW3076

TOP

michael101772

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 22
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-2-23
最後登錄: 2017-11-17

4^#

發表於 2017-2-16 09:51 | 只看該作者

CW3076大大，
發現如果要尋找的欄位是屬於合併儲存格的話，就會一直出現"沒有設定物件變數或With區塊變數"的訊息，該如何解決這個問題？

TOP

cw3076

中學生 Rank: 2

帖子: 42
主題: 12
精華: 0
積分: 283
點名: 2
作業系統: WINDOWS XP
軟體版本: SP2
閱讀權限: 20
來自: KAOHSIUNG
註冊時間: 2010-5-8
最後登錄: 2024-12-7

5^#

發表於 2017-2-16 21:21 | 只看該作者

你好 michael101772,
如要讓錯誤不要出現可以在上方加入
On Error Resume Next
意思指表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式，而繼續執行下去。

TOP

michael101772

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 22
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-2-23
最後登錄: 2017-11-17

6^#

發表於 2017-2-16 22:38 | 只看該作者

感謝cw3076大大的回覆，我知道如何讓程式繼續執行下去。
我自己後來也發現若你要找的值是一個合併儲存格時，搜尋的範圍就要擴大，
例如儲存格的欄位從C~F時，程式就要改寫成：
Worksheets("Sheet1").[C:F].Find([A2]).Activate
不然就會跳出我之前提到的訊息。

TOP

jsc0518