xgirlxs

中學生 Rank: 2

帖子: 36
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-22
最後登錄: 2016-12-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-12-12 11:23 | 只看該作者

[發問] 類似Ctrl+F的功能

如下圖，請問高手們能在VBA寫一個語法是
在B2輸入欲搜尋的名稱，按下搜尋後，即跑到D或E欄對應的欄位內
就像Ctrl+f的模糊搜尋功能

樓主熱帖

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 238
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

12^#

發表於 2017-2-19 08:25 | 只看該作者

回復 12# cw3076

感謝您的回復

語法有加上去，仍無法移至第2個CCC，語法是不是我有誤解

Sub Search()

ActiveCell.Offset(1, 0).Activate

Worksheets("工作表1").[D:D].Find([A1]).Activate

End Sub

Just do it.

TOP

cw3076

中學生 Rank: 2

帖子: 42
主題: 12
精華: 0
積分: 283
點名: 1
作業系統: WINDOWS XP
軟體版本: SP2
閱讀權限: 20
來自: KAOHSIUNG
註冊時間: 2010-5-8
最後登錄: 2024-8-13

11^#

發表於 2017-2-18 23:50 | 只看該作者

Hello jsc0518 你好,
如果在執行搜尋前讓當前位置的儲存格先下移一格再搜尋以避開停留的問題是否可以解決

ActiveCell.Offset(1, 0).Activate

TOP

michael101772

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 22
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-2-23
最後登錄: 2017-11-17

10^#

發表於 2017-2-18 20:48 | 只看該作者

抱歉，這個目前我就無法辦到了。
再麻煩版上的高手了。

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 238
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

9^#

發表於 2017-2-18 17:40 | 只看該作者

回復 8# michael101772

您好，再請教一下，若我在A1 輸入 CCC
有辦法像 Ctrl +F 一樣嗎
當我按下第一次時，它會到D4
當我按下第二次時，它會到D7

Just do it.

TOP

michael101772

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 22
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-2-23
最後登錄: 2017-11-17

8^#

發表於 2017-2-17 23:18 | 只看該作者

因為你找A2，A2是空的，所以儲存格就移到空格了。
改成這樣就行了
Worksheets("工作表1").[D

].Find([A1]).Activate

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 238
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

7^#

發表於 2017-2-17 20:28 | 只看該作者

回復 6# michael101772

請問一下，我依照語法，但仍無像Ctrl+F一樣，可以到找到的欄位上，是否哪裡有誤?

能.rar (14.28 KB)

Just do it.

TOP

michael101772

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 22
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-2-23
最後登錄: 2017-11-17

6^#

發表於 2017-2-16 22:38 | 只看該作者

感謝cw3076大大的回覆，我知道如何讓程式繼續執行下去。
我自己後來也發現若你要找的值是一個合併儲存格時，搜尋的範圍就要擴大，
例如儲存格的欄位從C~F時，程式就要改寫成：
Worksheets("Sheet1").[C:F].Find([A2]).Activate
不然就會跳出我之前提到的訊息。

TOP

cw3076