馨。

帖子: 53
主題: 24
精華: 0
積分: 87
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2018-11-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-2-22 14:02 | 只看該作者

按鈕搜尋如果設置呢？

想請問各位大大
若是想在Excel中設一個按鈕，打上要搜尋的字串，畫面就可以跳到那個儲存格，要怎麼用呢？
(像是Ctrl+F那樣的效果)

再麻煩大大們幫忙解答。謝謝！

樓主熱帖

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

2^#

發表於 2016-3-5 21:39 | 只看該作者

回復 1# 馨。

如附件，在A1:G20間輸入字串，執行巨集，輸入搜尋字串，就可自動跳到該儲存格~

test.rar (12.13 KB)

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2016-3-6 11:58 | 只看該作者

回復 2# tku0216

Application.Goto Range(finddom.Address)
會跑到ActiveSheet位置

建議可以改為

Application.Goto finddom
當 finddom 若不是在 ActiveSheet 時，這樣才會跑正確跑到 finddom 的Sheet、WorkBook。

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

馨。

中學生 Rank: 2

帖子: 53
主題: 24
精華: 0
積分: 87
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2018-11-3

4^#

發表於 2016-3-6 12:39 | 只看該作者

回復馨。

如附件，在A1:G20間輸入字串，執行巨集，輸入搜尋字串，就可自動跳到該儲存格~
tku0216 發表於 2016-3-5 21:39

大大謝謝您的幫助
可是…很不好意思的是，因為我目前還是小學生，無法下載附件…
是否可以有另外的連結呢？謝謝您。

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

5^#

發表於 2016-3-6 23:27 | 只看該作者

回復 3# ML089

大大我不大了解您的意思，因為我已經設定dom為工作表2的特定範圍，故搜尋結果，我嘗試過無論是在工作表二或是新增一個工作表，搜尋後皆會跳到工作表二裡面，置換您的程式碼也不會對搜尋結果造成影響，請問我是否有誤解您的意思？

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

6^#

發表於 2016-3-6 23:28 | 只看該作者

回復 4# 馨。

請嘗試以下連結：
https://drive.google.com/file/d/0B7UZjepz0qBUenFQMm1LdFpsd0U/view?usp=sharing

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

7^#

發表於 2016-3-7 00:28 | 只看該作者

回復 5# tku0216

我測試你的程式都OK，在其他工作表執行都會跳回該工作表。

但下式有些測試會有不同結果提供你參考
Application.Goto Range(finddom.Address)

若程式放在工作表時，不管在哪裡個工作表執行會跳回該工作表的 Range(finddom.Address)
若程式放在模組時，只會跳到該Active工作表的 Range(finddom.Address)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

馨。