返回列表 上一主題 發帖

請問插入 搜尋功能

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
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: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
2#
發表於 2015-4-29 21:32 | 只看該作者
如ctrl+F的搜尋功能 找到之後 自動跳到該位置

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
3#
發表於 2015-4-29 21:59 | 只看該作者
回復 2# starry1314
善用 "錄製新巨集" 功能, 可得到如下指令 :
  1. Sub Macro1()
  2. '
  3. ' Macro1 巨集表
  4. ' ccc 在 2015/4/29 錄製的巨集
  5. '

  7. '
  8.     Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
  9.         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
  10.         .Activate
  11. End Sub
複製代碼

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 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

lpk187

帖子
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

luhpro

帖子
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

改成這樣 :
  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"

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

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 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

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題