返回列表 上一主題 發帖

請問插入 搜尋功能

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 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

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題