按鈕搜尋如果設置呢？

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

9^#

發表於 2016-3-7 22:38 | 只看該作者

回復 7# ML089

瞭解了，謝謝大大分享~

馨。

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

8^#

發表於 2016-3-7 14:51 | 只看該作者

回復馨。

請嘗試以下連結：
https://drive.google.com/file/d/0B7UZjepz0qBUenFQMm1LdFpsd0U/view?u ...
tku0216 發表於 2016-3-6 23:28

可以了，感謝您哦:-)

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 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 三鍵輸入公式

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

帖子: 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的特定範圍，故搜尋結果，我嘗試過無論是在工作表二或是新增一個工作表，搜尋後皆會跳到工作表二裡面，置換您的程式碼也不會對搜尋結果造成影響，請問我是否有誤解您的意思？

馨。

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

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

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 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 三鍵輸入公式

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