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

198188

¨Ò¦p¡G
A1 Àx¦s®æ   207171      ¦p¦óª¾¹DA1Àx¦s®æ¤ºªº²Ä¤@­Ó¦r¬O¤£¬O2¦r    if left(A1¡A1¡^= 2 then
A2Àx¦s®æ    74171   ¦p¦óª¾¹DA2Àx¦s®æ¤ºªº²Ä¤@­Ó¦r¬O¤£¬O7     if left(A2¡A1¡^= 7 then
A3Àx¦s®æ    OBL,OHC            ¦p¦óª¾¹DA3Àx¦s®æ¤ºªº²Ä¤@­Ó¦r¬O¤£¬Oobl     if left(A3¡A3¡^= "OBL" then
³o¼Ë¼g¹ï¶Ü¡H

198188

¦^´_ 2# c_c_lai

¥t¥~½Ð°Ý¦pªG¬O¤£§t¬Y­Ó¦rªº¼gªk
    ="<>""*OBL*"
         <>"*OBL*"
­þ­Ó¤~¹ï¡AÁÙ¬O¨â­Ó³£¤£¹ï¡H

198188

¦^´_ 7# GBKEE

½Ð°Ý³o¥y¸Ü¬O¤£¬O¦³°ÝÃD¡Htype mismatch?
    .Range("D2:D" & LastRec).Value = .Range("AA2:AA" & LastRec).Value  &  .Range("AH2:AH" & LastRec).Value

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

198188

¦^´_ 13# GBKEE


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

198188

¦^´_ 15# GBKEE


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

198188

¦^´_ 17# GBKEE


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

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

198188

¥X²{RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,½Ð°Ý­þ¸Ì¥X²{°ÝÃD¡H
198188 µoªí©ó 2012-12-26 16:10

²î´Áªí.rar (434.58 KB)

¤U¸ü¦¸¼Æ: 6

2012-12-26 16:57

¥Ñ©óªþ¥óªºPARKER SHIPMENT ¤º®e¤Ó¦h¡A¾É­P¶W¹L1mb,µLªk¤W¶Ç¡A²{§R°£¤F³¡¤À¤º®e¡A¤~¤W¶Ç¡C

198188

¦^´_ 22# GBKEE


    §Ú¬O2010ª©¥»¡A°õ¦æ®É¥X²{RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,½Ð°Ý­þ¸Ì¥X²{°ÝÃD¡H