請問插入 搜尋功能 excel

starry1314

請問要怎麼在excel裡面插入搜尋功能, 並可自動挑到符合搜尋文字的欄位呢

starry1314

如ctrl+F的搜尋功能 找到之後 自動跳到該位置

luhpro

回復 2# starry1314
善用 "錄製新巨集" 功能, 可得到如下指令 :

1. Sub Macro1()
   
2. '
   
3. ' Macro1 巨集表
   
4. ' ccc 在 2015/4/29 錄製的巨集
   
5. '
   
6. 
   
7. '
   
8.     Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
   
9.         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
   
10.         .Activate
    
11. End Sub

複製代碼

starry1314

回復 3# luhpro



我有錄製出來,但無法指定按鈕使用 說沒有指定物件
另這可以點擊下去出現搜尋框框嗎?
紅字部分請問要如何達成點擊下去依我輸入文字來尋找呢?
因現在變成預設只能找1



'
    Range("H17").Select
    Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

starry1314

回復 3# luhpro


    主要是想做關鍵字搜尋功能, 從A~Z欄
輸入部分關鍵字可自動跳到符合該條件的欄位即可

錄製的巨集變成是指定的,不知該怎修改可依據某欄位的條件做搜尋或是跳出清單再輸入關鍵字

lpk187

回復 5# starry1314

修改下面這
    LookAt:=xlPart

luhpro

回復  luhpro
我有錄製出來,但無法指定按鈕使用 說沒有指定物件
另這可以點擊下去出現搜尋框框嗎 ...
starry1314 發表於 2015-4-29 22:11

改成這樣 :

1. Cells.Find(What:=[H17], After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
   
2.         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
   
3.         .Activate

複製代碼

回復  luhpro
    主要是想做關鍵字搜尋功能, 從A~Z欄
輸入部分關鍵字可自動跳到符合該條件的欄位即 ...
starry1314 發表於 2015-4-29 23:07

要叫出搜尋畫面只要直接模擬使用者按下 Ctrl+F 按鍵即可,如下指令:

SendKeys "^f"

之後就可以直接輸入要搜尋的文字.

starry1314

改成這樣 :
要叫出搜尋畫面只要直接模擬使用者按下 Ctrl+F 按鍵即可,如下指令:

SendKeys "^f"

之後 ...
luhpro 發表於 2015-4-30 00:56

    感謝分享~已解決！！