[發問] 為什麼VLOOKUP不能執行？

stevenliu555

請問：

為什麼附加檔案之下列VBA碼不能執行？
           iLo_St_Ret_Perf(j, i) = Application.WorksheetFunction.VLookup(iLo_St_Ret(j, i), data, 2, False)

每月報酬率 r2.zip (51.06 KB)

下載次數: 14

2013-11-28 16:39

謝謝。

stevenliu555

stevenliu555

您好：

太好了，感激指導。都OK了。

GBKEE

回復 7# stevenliu555

1. Option Explicit
   
2. Sub Ex()
   
3. Dim Ar(1 To 5, 1 To 10)
   
4.     Ar(1, 1) = 1   'Ar(1, 1)等同[A1:J5].Cells(1,1)
   
5.     Ar(5, 10) = 50 'Ar(5, 10)等同[A1:J5].Cells(5,10)
   
6.     [A1:J5].Cells(1, 1) = Ar(1, 1)
   
7.     [A1:J5].Cells(5, 10) = Ar(5, 10)
   
8.     '**************************
   
9.     Stop
   
10.     Ar(3, 5) = 25
    
11.     [A1:J5].Clear
    
12.     [A1:J5] = Ar
    
13. End Sub

複製代碼

stevenliu555

回復 6# GBKEE
您好：

太好了，真的可以耶。感謝。

另外，再請教一點如下:
陣列數值如何貼上儲存格，例如，陣列kkk(1 to 5, 1 to 10)的數值, 如何儲存到range("A1:J5")內的儲存格？

謝謝

GBKEE

回復 5# c_c_lai
4#已更正,又掉芝麻了,感謝告知,

c_c_lai

回復 4# GBKEE
陣列範圍超出索引範圍。

1.     '  ReDim iWi_St_Ret(2 To iRowNo, 1 To 5)
   
2.     '  ReDim iLo_St_Ret(2 To iRowNo, 1 To 5)
   
3.     '  ReDim iWi_St_Ret_Perf(2 To iRowNo, 1 To 5)
   
4.     '  ReDim iLo_St_Ret_Perf(2 To iRowNo, 1 To 5)
   
5.     ReDim iWi_St_Ret(2 To iColumnNo, 1 To 5)
   
6.     ReDim iLo_St_Ret(2 To iColumnNo, 1 To 5)
   
7.     ReDim iWi_St_Ret_Perf(2 To iColumnNo, 1 To 5)
   
8.     ReDim iLo_St_Ret_Perf(2 To iColumnNo, 1 To 5)

複製代碼

GBKEE

回復 3# stevenliu555
工作表VLookup的範圍要用Double(雙精度浮點數)
原本程式中 iLo_St_Ret(2 To 241, 1 To 5) As Single(單精度浮點數) ,是所造成的錯誤的原因

1. Sub MainProgram()
   
2. 'Dim iWi_St_Ret(2 To 241, 1 To 5), iLo_St_Ret(2 To 241, 1 To 5) As Single  '只有iLo_St_Ret有指定型態
   
3. 'Dim iWi_St_Ret_Perf(2 To 241, 1 To 5) As Single, iLo_St_Ret_Perf(2 To 241, 1 To 5) As Single  '都有指定型態
   
4. 
   
5. Dim iWi_St_Ret() As Double  '雙精度浮點數
   
6. Dim iLo_St_Ret() As Double  '() 動態陣列
   
7. Dim iWi_St_Ret_Perf() As Double
   
8. Dim iLo_St_Ret_Perf() As Double
   
9. Dim i, j, k, n As Integer
   
10. Dim c, r As Integer
    
11. Dim data As Range
    
12. iRowNo = Sheets("個股報酬率").Range("A65536").End(xlUp).Row
    
13. iColumnNo = Sheets("個股報酬率").Range("HV1").End(xlToLeft).Column
    
14. 'ReDim 陳述式  在程序層次中用來重新配置動態陣列變數的儲存空間。
    
15. ReDim iWi_St_Ret(2 To iColumnNo, 1 To 5)
    
16. ReDim iLo_St_Ret(2 To iColumnNo, 1 To 5)
    
17. ReDim iWi_St_Ret_Perf(2 To iColumnNo, 1 To 5)
    
18. ReDim iLo_St_Ret_Perf(2 To iColumnNo, 1 To 5)
    
19. 
    
20. For j = 2 To iColumnNo
    
21.     For i = 1 To 5
    
22.         'iWi_St_Ret_Perf(j, i) = 0     '不必為0
    
23.         'iLo_St_Ret_Perf(j, i) = 0
    
24.        Debug.Print iWi_St_Ret(j, i)
    
25.         iWi_St_Ret(j, i) = Application.WorksheetFunction.Large(Range(Cells(2, j), Cells(iRowNo, j)), i)
    
26.         iLo_St_Ret(j, i) = Application.WorksheetFunction.Small(Range(Cells(2, j), Cells(iRowNo, j)), i)
    
27.         'Set data = Range(Cells(j, 2), Cells(100, j + 1))  '另一錯誤點 Cells(j, 2)=>一直是B欄
    
28.         'Set data = Range(Cells(2, j), Cells(100, j + 1))  '欄位隨著j
    
29.         Set data = Range(Cells(2, j), Cells(iRowNo, j + 1)) '建議列位用 iRowNo
    
30.         'Debug.Print data.Address             '可看看範圍
    
31.         iWi_St_Ret_Perf(j, i) = Application.VLookup(iWi_St_Ret(j, i), data, 2, False)
    
32.         iLo_St_Ret_Perf(j, i) = Application.VLookup(iLo_St_Ret(j, i), data, 2, False)
    
33.     Next i
    
34. Next j
    
35. End Sub

複製代碼

stevenliu555

回復 2# GBKEE
感謝指導，您的指導我了解了，但是我的疑問是為什麼下面這個VBA碼的A是錯誤
A = Application.VLookup(iLo_St_Ret(j, i), data, 2, False)
當j=2, i=1時，(iLo_St_Ret(j, i)= -5.2863，用VLOOKUP函數時，應該得到隔壁儲存格的3.2559
把它放在工作表的儲存格裡，它的值也是隔壁儲存格的3.2559

此檔案裡，我要寫的VBA是選取B欄第1大值，得到其右邊儲存格的值，然後選取B欄第1小值，得到其右邊儲存格的值，然後做其他計算，
然而第1大值得右邊儲存格的值有得到，第1小值得右邊儲存格的值沒有得到，不知道為什麼?

麻煩指導

GBKEE

回復 1# stevenliu555

請查看這裡的 討論

1. Sub MainProgram()
   
2. Dim iWi_St_Ret(2 To 241, 1 To 5), iLo_St_Ret(2 To 241, 1 To 5) As Single
   
3. Dim iWi_St_Ret_Perf(2 To 241, 1 To 5), iLo_St_Ret_Perf(2 To 241, 1 To 5) As Single
   
4. Dim i, j, k, n As Integer
   
5. Dim c, r As Integer
   
6. Dim data As Range
   
7. Dim A As Variant      '加這變數 ****
   
8. 
   
9. iRowNo = Sheets("個股報酬率").Range("A65536").End(xlUp).Row
   
10. iColumnNo = Sheets("個股報酬率").Range("HV1").End(xlToLeft).Column
    
11. 
    
12. For j = 2 To iColumnNo
    
13.     For i = 1 To 5
    
14.         iWi_St_Ret_Perf(j, i) = 0
    
15.         iLo_St_Ret_Perf(j, i) = 0
    
16.         iWi_St_Ret(j, i) = Application.WorksheetFunction.Large(Range(Cells(2, j), Cells(iRowNo, j)), i)
    
17.         iLo_St_Ret(j, i) = Application.WorksheetFunction.Small(Range(Cells(2, j), Cells(iRowNo, j)), i)
    
18.         Set data = Range(Cells(j, 2), Cells(100, j + 1))
    
19.         A = Application.VLookup(iWi_St_Ret(j, i), data, 2, False)
    
20.         'A =>有找到傳回數值,反之 傳回錯誤值
    
21.         iWi_St_Ret_Perf(j, i) = IIf(Not IsError(A), A, 0)
    
22.         A = Application.VLookup(iLo_St_Ret(j, i), data, 2, False)
    
23.         iLo_St_Ret_Perf(j, i) = IIf(Not IsError(A), A, 0)
    
24.     Next i
    
25. Next j
    
26. End Sub

複製代碼