[發問] 請幫小弟除錯...是不能連續用find函數嗎?!

VBALearner

小弟我想要找兩個目標儲存格十字交錯的儲存格值
但不知道錯在哪裡...還請高手賜教除錯，感激不盡!
(提醒一下:非VBA程式碼的回答，例如用直接在worksheet上面的儲存格打index...都不是我想要的答案，大概的目的是要能在多個工作表中的資料裡查多個不同儲存格的值，感謝各位!)

1. Sub test()
   
2. 
   
3.     Dim rng1, rng2 As Range
   
4.     號碼 = CStr(Cells(3, 17).Value)
   
5.     日期 = CStr(Cells(2, 18).Text)
   
6.    
   
7.     With Sheets(1)
   
8.         .Activate
   
9.         Set rng1 = .Range("A:A").Find(號碼)
   
10.         Set rng2 = .Range("A1:A20").Find(日期)
    
11.         Cells(3, 18).Value = Cells(rng1.Row, rng2.Column).Value
    
12.     End With
    
13.    
    
14. End Sub

複製代碼

感謝您的協助!.zip (14.26 KB)

下載次數: 5

2016-8-15 16:41

lpk187

回復 1# VBALearner


    程式有誤已幫你修正，日期必須宣告為Date ，Find才會找到
應該要養成宣告變數的習慣！

1. Sub test()
   
2. 
   
3.     Dim rng1 As Range, rng2 As Range
   
4.     Dim 日期 As Date
   
5.     With Sheets(1)
   
6.         號碼 = .Cells(3, 18)
   
7.         日期 = .Cells(2, 19)
   
8.         '.Activate'這行可以不用
   
9.         Set rng1 = .Columns(1).Find(號碼)
   
10.         Set rng2 = .Rows(1).Find(日期, LookIn:=xlValues)
    
11.         .Cells(3, 19) = .Cells(rng1.Row, rng2.Column).Value
    
12.     End With
    
13.    
    
14. End Sub

複製代碼

VBALearner

回復 2# lpk187

O____O! 原來是這樣一個小錯誤...感謝lpk大一直解決我的問題OwQ 感激不盡!