[發問] 出現RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,請問哪裡出現問題？

GBKEE

回復 10# 198188
是有的
   .Range("D2:D" & LastRec).Value = .Range("AA2:AA" & LastRec).Value  &  .Range("AH2:AH" & LastRec).Value
如 LastRec=10
    "D2:D" & LastRec      ->"D2:D10"
    "AA2:AA" & LastRec ->"AA2:AA10"
這都是連續範圍:無法用 "="  來計算

198188

回復 11# GBKEE




A                                   K                  L
POA325691              325691       YES
POA335625              325648       NO
ZRH325648               335625      YES

在B欄set      vlookup(right(a2,6),k:L,2,False)的公式，但出來的答案是#N/A
哪裡出錯了？

GBKEE

回復 12# 198188
轉成數字
VLOOKUP(VALUE(RIGHT(A2,6)),K:L,2,FALSE)

198188

回復 13# GBKEE


    請問SUBSCRIPT OUT OF RANGE是哪個問題？
  Set FRng = Wb.Sheets("香港&海防單").Range("A:A").Find(A, lookat:=xlWhole)

GBKEE

回復  GBKEE

    請問SUBSCRIPT OUT OF RANGE是哪個問題？
  Set FRng = Wb.Sheets("香港&海防單"). ...
198188 發表於 2012/12/20 15:16

你要說是出了什麼錯誤??

198188

回復 15# GBKEE


   出現了下面這句話
SUBSCRIPT OUT OF RANGE

GBKEE

回復 16# 198188
SUBSCRIPT OUT OF RANGE->陣列索引超出範圍 (錯誤 9)
檢查 Set FRng = Wb.Sheets("香港&海防單").Range("A:A").Find(A, lookat:=xlWhole)
這Wb活頁簿 是否有 香港&海防單 這工作表

198188

回復 17# GBKEE


    請問是不是中文名會經常出現問題？因為以前都沒問題，但現在才出現問題？

kimbal

回復  GBKEE


    請問是不是中文名會經常出現問題？因為以前都沒問題，但現在才出現問題？
198188 發表於 2012-12-21 18:09

留意一下頁名的& 會不會用了全形,  
全形＆和半形& 是不同的

198188

1. Sub schedule()
   
2. 
   
3.   Dim i As Integer
   
4.   Dim j As Integer
   
5.   Dim l As Integer
   
6.   
   
7.   j = Worksheets("PARKER SHIPMENT").Range("A" & Worksheets("PARKER SHIPMENT").Rows.Count).End(xlUp).Row
   
8.   l = 13
   
9. 
   
10. If IsError(Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:C"), 3, False)) Then
    
11. Worksheets("船期表").Range("B1").Value = ""
    
12. Else
    
13. Worksheets("船期表").Range("B1").Value = Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:C"), 3, False)
    
14. End If
    
15.   
    
16. If IsError(Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:D"), 4, False)) Then
    
17. Worksheets("船期表").Range("B2").Value = ""
    
18. Else
    
19. Worksheets("船期表").Range("B2").Value = Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:D"), 4, False)
    
20. End If
    
21.   
    
22. If IsError(Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:E"), 5, False)) Then
    
23. Worksheets("船期表").Range("E8").Value = ""
    
24. Else
    
25. Worksheets("船期表").Range("E8").Value = Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:E"), 5, False)
    
26. End If
    
27.   
    
28. If IsError(Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:G"), 7, False)) Then
    
29. Worksheets("船期表").Range("L8").Value = ""
    
30. Else
    
31. Worksheets("船期表").Range("L8").Value = Application.VLookup(Worksheets("船期表").Cells(1, 1).Value, Sheets("客戶資料").Range("A:G"), 7, False)
    
32. End If
    
33. 
    
34.   
    
35. 
    
36.   For i = 2 To j
    
37.   
    
38.   If Worksheets("PARKER SHIPMENT").Cells(i, 4).Value = Worksheets("船期表").Range("B1").Value Then
    
39.   Worksheets("船期表").Cells(l, 3).Value = Worksheets("PARKER SHIPMENT").Cells(i, 2).Value
    
40.   Worksheets("船期表").Cells(l, 4).Value = Worksheets("PARKER SHIPMENT").Cells(i, 1).Value
    
41.   Worksheets("船期表").Cells(l, 6).Value = Worksheets("PARKER SHIPMENT").Cells(i, 7).Value
    
42.   Worksheets("船期表").Cells(l, 7).Value = Worksheets("PARKER SHIPMENT").Cells(i, 9).Value
    
43.   Worksheets("船期表").Cells(l, 8).Value = Worksheets("PARKER SHIPMENT").Cells(i, 11).Value
    
44.   Worksheets("船期表").Cells(l, 9).Value = Worksheets("PARKER SHIPMENT").Cells(i, 12).Value
    
45.   Worksheets("船期表").Cells(l, 10).Value = Worksheets("PARKER SHIPMENT").Cells(i, 13).Value
    
46.   Worksheets("船期表").Cells(l, 11).Value = Worksheets("PARKER SHIPMENT").Cells(i, 14).Value
    
47.   Worksheets("船期表").Cells(l, 12).Value = Worksheets("PARKER SHIPMENT").Cells(i, 20).Value
    
48.   Worksheets("船期表").Cells(l, 13).Value = Worksheets("PARKER SHIPMENT").Cells(i, 21).Value
    
49. 
    
50.   
    
51.   If Worksheets("PARKER SHIPMENT").Cells(i, 19).Value = " " Then Worksheets("船期表").Cells(l, 5).Value = "沒有"
    
52.   Else
    
53.   Worksheets("船期表").Cells(l, 5).Value = "有"
    
54.   End If
    
55.    
    
56.   If Worksheets("PARKER SHIPMENT").Cells(i, 27).Value <> " " And Worksheets("PARKER SHIPMENT").Cells(i, 28).Value > 0 And Worksheets("PARKER SHIPMENT").Cells(i, 28).Value <> " " Then
    
57.     Worksheets("船期表").Cells(l, 14).Value = "已付款"
    
58.     Else
    
59.     Worksheets("船期表").Cells(l, 14).Value = " "
    
60.   End If
    
61.   
    
62.   l = l + 1
    
63.   
    
64.   
    
65.   Next i
    
66.   
    
67. End Sub

複製代碼

出現RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,請問哪裡出現問題？