麻辣家族討論版版 - Powered by Discuz! Board

標題: 請問插入搜尋功能 [打印本頁]

作者: starry1314 時間: 2015-4-29 21:08 標題: 請問插入搜尋功能

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

作者: starry1314 時間: 2015-4-29 21:32

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

作者: luhpro 時間: 2015-4-29 21:59

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

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

複製代碼

作者: starry1314 時間: 2015-4-29 22:11

本帖最後由 starry1314 於 2015-4-29 22:23 編輯

回復 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 時間: 2015-4-29 23:07

回復 3# luhpro

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

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

作者: lpk187 時間: 2015-4-29 23:23

回復 5# starry1314

修改下面這
LookAt:=xlPart

作者: luhpro 時間: 2015-4-30 00:56

本帖最後由 luhpro 於 2015-4-30 00:57 編輯

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

改成這樣 :

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

複製代碼

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

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

SendKeys "^f"

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

作者: starry1314 時間: 2015-4-30 12:26

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

SendKeys "^f"

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

感謝分享~已解決！！

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)