[µo°Ý] ¥X²{RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,½Ð°Ý­þ¸Ì¥X²{°ÝÃD¡H

GBKEE

¦^´_ 10# 198188
¬O¦³ªº
   .Range("D2:D" & LastRec).Value = .Range("AA2:AA" & LastRec).Value  &  .Range("AH2:AH" & LastRec).Value
¦p LastRec=10
    "D2:D" & LastRec      ->"D2:D10"
    "AA2:AA" & LastRec ->"AA2:AA10"
³o³£¬O³sÄò½d³ò:µLªk¥Î "="  ¨Ó­pºâ

198188

¦^´_ 11# GBKEE




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

¦bBÄæset      vlookup(right(a2,6),k:L,2,False)ªº¤½¦¡¡A¦ý¥X¨Óªºµª®×¬O#N/A
­þ¸Ì¥X¿ù¤F¡H

GBKEE

¦^´_ 12# 198188
Âন¼Æ¦r
VLOOKUP(VALUE(RIGHT(A2,6)),K:L,2,FALSE)

198188

¦^´_ 13# GBKEE


    ½Ð°ÝSUBSCRIPT OUT OF RANGE¬O­þ­Ó°ÝÃD¡H
  Set FRng = Wb.Sheets("­»´ä&®ü¨¾³æ").Range("A:A").Find(A, lookat:=xlWhole)

GBKEE

¦^´_  GBKEE

    ½Ð°ÝSUBSCRIPT OUT OF RANGE¬O­þ­Ó°ÝÃD¡H
  Set FRng = Wb.Sheets("­»´ä&®ü¨¾³æ"). ...
198188 µoªí©ó 2012/12/20 15:16

§A­n»¡¬O¥X¤F¤°»ò¿ù»~??

198188

¦^´_ 15# GBKEE


   ¥X²{¤F¤U­±³o¥y¸Ü
SUBSCRIPT OUT OF RANGE

GBKEE

¦^´_ 16# 198188
SUBSCRIPT OUT OF RANGE->°}¦C¯Á¤Þ¶W¥X½d³ò (¿ù»~ 9)
Àˬd Set FRng = Wb.Sheets("­»´ä&®ü¨¾³æ").Range("A:A").Find(A, lookat:=xlWhole)
³oWb¬¡­¶Ã¯ ¬O§_¦³ ­»´ä&®ü¨¾³æ ³o¤u§@ªí

198188

¦^´_ 17# GBKEE


    ½Ð°Ý¬O¤£¬O¤¤¤å¦W·|¸g±`¥X²{°ÝÃD¡H¦]¬°¥H«e³£¨S°ÝÃD¡A¦ý²{¦b¤~¥X²{°ÝÃD¡H

kimbal

¦^´_  GBKEE


    ½Ð°Ý¬O¤£¬O¤¤¤å¦W·|¸g±`¥X²{°ÝÃD¡H¦]¬°¥H«e³£¨S°ÝÃD¡A¦ý²{¦b¤~¥X²{°ÝÃD¡H
198188 µoªí©ó 2012-12-21 18:09

¯d·N¤@¤U­¶¦Wªº& ·|¤£·|¥Î¤F¥þ§Î,  
¥þ§Î¡®©M¥b§Î& ¬O¤£¦Pªº

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 = "¨S¦³"
    
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 = "¤w¥I´Ú"
    
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

½Æ»s¥N½X

¥X²{RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,½Ð°Ý­þ¸Ì¥X²{°ÝÃD¡H