　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-4-29 21:08 | 只看該作者

請問插入搜尋功能

excel

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

樓主熱帖

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

8^#

發表於 2015-4-30 12:26 | 只看該作者

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

SendKeys "^f"

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

感謝分享~已解決！！

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

7^#

發表於 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"

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2015-4-29 23:23 | 只看該作者

回復 5# starry1314

修改下面這
LookAt:=xlPart

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

5^#

發表於 2015-4-29 23:07 | 只看該作者

回復 3# luhpro

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

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

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

4^#

發表於 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

TOP

luhpro