標題: [發問] Excel VBA 查找寫法 [打印本頁]

---

作者: d03ey    時間: 2020-6-17 19:12     標題: 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    時間: 2020-6-17 21:26

1. Sub tets()
   
2. 
   
3. keyword = Range("d1")
   
4. 
   
5. i = 1
   
6. 
   
7. Do Until Cells(i, 1) = ""
   
8. 
   
9. 
   
10. If Cells(i, 1) = keyword Then
    
11.     Cells(i, 1).Select
    
12.     MsgBox ActiveCell.Address
    
13. End If
    
14. 
    
15. 
    
16. 
    
17. 
    
18. 
    
19. i = i + 1
    
20. Loop
    
21. 
    
22. 
    
23. 
    
24. 
    
25. 
    
26. 
    
27. End Sub

複製代碼

---

作者: adrian_9832    時間: 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

---

作者: n7822123    時間: 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

---

作者: d03ey    時間: 2020-6-18 00:59

本帖最後由 d03ey 於 2020-6-18 01:00 編輯

回復 1# d03ey
樓上兩位大大，我都有測試了但會進入debug

下面是測試檔(寫失敗的)


    [attach]32182[/attach]

---

作者: n7822123    時間: 2020-6-18 03:11

回復 5# d03ey


我的程式沒有問題喔~~

[attach]32187[/attach]

---

作者: 准提部林    時間: 2020-6-18 09:37

回復 5# d03ey


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

多了一左括號(
搜尋不在第 3 列

---

作者: d03ey    時間: 2020-6-18 22:04

回復 6# n7822123


    感謝哥~成功了 感激不盡

---

作者: d03ey    時間: 2020-6-18 22:04

回復 7# 准提部林


    感謝!!!有成功了 感激不盡

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)