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

xgirlxs

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

下載 (37.88 KB)

2016-12-12 11:21

jsc0518

回復 12# cw3076

感謝您的回復

語法有加上去，仍無法移至第2個CCC，語法是不是我有誤解

Sub Search()

ActiveCell.Offset(1, 0).Activate

Worksheets("工作表1").[D:D].Find([A1]).Activate

End Sub

cw3076

Hello jsc0518 你好,
如果在執行搜尋前讓當前位置的儲存格先下移一格再搜尋以避開停留的問題是否可以解決

ActiveCell.Offset(1, 0).Activate

michael101772

抱歉，這個目前我就無法辦到了。
再麻煩版上的高手了。

jsc0518

回復 8# michael101772

您好，再請教一下，若我在A1 輸入 CCC
有辦法像 Ctrl +F 一樣嗎
當我按下第一次時，它會到D4
當我按下第二次時，它會到D7

下載 (10.29 KB)

2017-2-18 17:40

michael101772

因為你找A2，A2是空的，所以儲存格就移到空格了。
改成這樣就行了
Worksheets("工作表1").[D].Find([A1]).Activate

jsc0518

回復 6# michael101772


  請問一下，我依照語法，但仍無像Ctrl+F一樣，可以到找到的欄位上，是否哪裡有誤?

能.rar (14.28 KB)

Excel_VBA-類似Ctrl加F-搜尋功能
下載次數: 4

2017-2-17 20:28

michael101772

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

cw3076

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

michael101772

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