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

GBKEE

¦^´_ 21# 198188
21#ªºªþÀÉ ¦b2003ª©°õ¦æ 20#  ªºµ{¦¡¨S¦³¿ù»~.
ÁÙ»Ý 2007ª© ªº°õ¦æ ¬Ý¦³µL¿ù»~?

198188

¦^´_ 22# GBKEE


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

c_c_lai

¦^´_ 23# 198188
¦^´_ 22# GBKEE
¦]¬°§A©ÒªþÀɮתºµ{¦¡½X¤¤¤å³¡¤À¥þ¬°ÀËÅé¶Ã½X¡A
¹ïÀ³¤£¤Wªí³æ¦WºÙ©Ò­P¡A½Ð¦A­«·s½Æ»s GBKEE ª©¤jªºµ{¦¡½XÂл\¡A
«KOK¤F¡I

198188

½Ð°Ý´M§ä¤£µ¥©óªÅ®æ¡A¬°¤°»ò§Ú¥Î <>""¡A¦ý¦³¨Ç¨Ó·½¥i¥H¡A¦³¨Ç¨Ó·½»Ý­n<>" "¤~¥i¥H¡H
¨ì©³­þ­Ó¤~¹ï¡H¦]¬°¨â­Ó³£¬O¦³¨Ç¨Ó·½¥i¥H¡A¦³¨Ç¨Ó·½¤£¥i¥H

198188

¦^´_ 5# Hsieh

EXCEL 2010
½Ð°Ý´M§ä¤£µ¥©óªÅ®æ¡A¬°¤°»ò§Ú¥Î <>""¡A¦ý¦³¨Ç¨Ó·½¥i¥H¡A¦³¨Ç¨Ó·½»Ý­n<>" "¤~¥i¥H¡H
¨ì©³­þ­Ó¤~¹ï¡H¦]¬°¨â­Ó³£¬O¦³¨Ç¨Ó·½¥i¥H¡A¦³¨Ç¨Ó·½¤£¥i¥H

Hsieh

¦^´_ 26# 198188

""ªí¥ÜªÅ¦r¦ê
" "ªí¥Ü¤º®e¬°ªÅ¥ÕÁä(SPACE)
¦P¼Ë¬O¬Ý¤£¨£¤º®e¡A¦ýµ²ªG«o¬O¤£¦P
¸Ñ¨M¦¹°ÝÃD¥i¥Î½s¿è/¨ú¥N¥\¯à
¦b·j´M¥Ø¼Ð¿é¤JªÅ¥ÕÁä¡A¨ú¥N¬°¤è¶ô¤º¤£¿é¤J¥ô¦ó¦r¦ê
«hµ{¦¡½X§Y¥i¨Ï¥Î<>""
§_«h¥i¦b§PÂ_¬O¤º§Q¥ÎTRIM¨ç¼Æ
Trim(A)<>""
¦P¼Ë¥i¥HÁ׶}ªÅ¥ÕÁä°µ¤ñ¹ï

198188

¦^´_ 27# Hsieh


If Wb.Worksheets("New form of payment report").Range("k" & j).Value = Date And Wb.Worksheets("New form of payment report").Range("h" & j).Value >= 0.95 And Trim(Wb.Worksheets("New form of payment report").Range("h" & j).Value) <> "" Then

If FRng.Offset(, 6).Value >= 0.95 And Trim(FRng.Offset(, 6).Value) <> "" And Trim(A.Offset(, 5).Value) = "" Then

³o¼Ë¼g¹ï¶Ü¡H

Hsieh

¦^´_ 28# 198188
°ò¥»¤W»Pªk¬O¹ïªº¡A¦pªG¨S±o¨ì§A·Q­nªºµ²ªG¥i¯à¬O§Aªº§PÂ_¦¡°ÝÃD
¼gµ{¦¡­n«i©ó¹Á¸Õ¡A°õ¦æ¬Ý¬Ý¤~¯àª¾¹D§Aªº¿ù»~¦b­þ¸Ì

198188

1. Sub Detail()
   
2. Dim FRng As Range
   
3. Dim A As Range, Rng As Range
   
4. Dim i As Integer
   
5. fs = "W:\Payment Daily Report\HK ETA update.xlsx"
   
6. Set Wb = Workbooks.Open(fs)
   
7. With ThisWorkbook.Worksheets("State")
   
8. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
   
9.      Set FRng = Wb.Sheets("HK HAIPONG").Range("A:A").Find(A, LookAt:=xlWhole, SearchDirection:=xlPrevious)
   
10.      If Not FRng Is Nothing Then
    
11.            A.Offset(, 2) = FRng.Offset(, 11).Value
    
12.            If Rng Is Nothing Then Set Rng = A.Offset(, 2) Else Set Rng = Union(Rng, A.Offset(, 2))
    
13.         End If
    
14.    
    
15.        Set FRng = Nothing
    
16. Next
    
17. End With
    
18. Wb.Close 0
    
19. 
    
20.   fs = "W:\Payment Daily Report\Mainland ETA Update.xlsx"
    
21. Set Wb = Workbooks.Open(fs)
    
22. With ThisWorkbook.Worksheets("State")
    
23. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
    
24.      Set FRng = Wb.Sheets("MAILAND ETA").Range("A:A").Find(A, LookAt:=xlWhole, SearchDirection:=xlPrevious)
    
25.      If Not FRng Is Nothing Then
    
26.            A.Offset(, 3) = FRng.Offset(, 9).Value
    
27.            If Rng Is Nothing Then Set Rng = A.Offset(, 3) Else Set Rng = Union(Rng, A.Offset(, 3))
    
28.         End If
    
29.    
    
30.        Set FRng = Nothing
    
31. Next
    
32. End With
    
33. Wb.Close 0
    
34.    
    
35. fs = "W:\Payment Daily Report\Outstanding Payments.xlsm"
    
36. Set Wb = Workbooks.Open(fs)
    
37. With ThisWorkbook.Worksheets("State")
    
38. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
    
39.      Set FRng = Wb.Sheets("outstanding payments").Range("A:A").Find(A, LookAt:=xlWhole, SearchDirection:=xlPrevious)
    
40.      If Not FRng Is Nothing Then
    
41.            A.Offset(, 6) = FRng.Offset(, 4).Value
    
42.            If Rng Is Nothing Then Set Rng = A.Offset(, 6) Else Set Rng = Union(Rng, A.Offset(, 6))
    
43.         End If
    
44.    
    
45.        Set FRng = Nothing
    
46. Next
    
47. End With
    
48. Wb.Close 0
    
49.    
    
50. End Sub

½Æ»s¥N½X

¦^´_ 24# c_c_lai


§Ú¥H«e³o­Óµ{¦¡³£µL°ÝÃD¡A¦ý¤µ¤é¤£ª¾¹D¬°¤°»ò¥X²{°ÝÃD¡A¦bIf Not FRng Is Nothing Then³o¥y¤W¥X²{¡G  code execution has been interrupted
½Ð°Ý¬O¤°»ò·N«ä¡H