[發問] Excel VBA 查找寫法

想問問各位大神研究了很久寫出來都怪怪的
我在A1格函數設定=today()，所以每次開excel都會跳今天日期
然後從B1~AN1 為一連串日期，(例如2020/05/01,2020/05/02,.......)

今天欲設計一個控制按鈕
按一下它會自動在B1~AN1尋找是不是A1欄的日期
|最後會停在找到的日期上

我的寫法是這樣..一直用不出來，感謝各位大大

Sub 巨集1()

Dim Rng As Range

Set Rng = Range("B1:AN1").Find("A1", lookat:=xlWhole)

Rng.Address

End Sub

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

2^#

發表於 2020-6-17 21:26 | 只看該作者

Sub tets()
keyword = Range("d1")
i = 1
Do Until Cells(i, 1) = ""
If Cells(i, 1) = keyword Then
Cells(i, 1).Select
MsgBox ActiveCell.Address
End If
i = i + 1
Loop
End Sub

複製代碼

123.PNG (103.9 KB)

TOP

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

3^#

發表於 2020-6-17 21:32 | 只看該作者

回復 1# d03ey

Sub test()

Dim Rng As Range

keyword = Range("d1")

Set Rng = Range("a1:a11").Find(keyword, lookat:=xlWhole)

Rng.select

End Sub

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2020-6-18 00:11 | 只看該作者

回復 1# d03ey

需求：
想問問各位大神研究了很久寫出來都怪怪的
我在A1格函數設定=today()，所以每次開excel都會跳今天日期
然後從B1~AN1 為一連串日期，(例如2020/05/01,2020/05/02,.......)
今天欲設計一個控制按鈕
按一下它會自動在B1~AN1尋找是不是A1欄的日期
|最後會停在找到的日期上

沒檔案測試～～～自己試看看吧！

Sub 巨集1()
[B1:AN1].Find([A1], , xlValues, xlWhole).Select
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

d03ey