返回列表下一主題上一主題發帖

錯誤代碼'9 解不出來請高手幫忙

JeNXiU

小學生 Rank: 1

帖子: 8
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: windows
軟體版本: sp2
閱讀權限: 10
性別: 男
註冊時間: 2011-2-4
最後登錄: 2018-9-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-9-4 22:42 | 顯示全部帖子

錯誤代碼'9 解不出來請高手幫忙

本帖最後由 JeNXiU 於 2014-9-4 22:43 編輯

Sub JamieK002()
Application.ScreenUpdating = False
Sheets("All Data").Select
Dim end1 As Long, b1 As Long, a As Long, i As Long, Rng As Range, Rng1 As Range, Wb As Workbook
i = 2
end1 = Range("D65536").End(3).Row
With Worksheets("All Data")
For b1 = 2 To 5
   Cells(b1, 2) = Mid(Cells(b1, 4), 1, 2)
   Cells(b1, 3) = Mid(Cells(b1, 4), 4, 5)
      If Cells(b1, 2).Value = "PD" Then
      Set Rng = Cells(b1, 3)
         Workbooks.Open Filename:="\\Wws\14.磊晶二部\生產\系統檔\2014系統檔\" & Mid(Cells(b1, 4), 5, 1) & "月\" & Cells(b1, 2) & "系統檔-" & Mid(Cells(b1, 4), 5, 1) & "月" & ".XLS"
            With Worksheets("system")
            Set Rng1 = .[A:A].Find(Rng, , , xlWhole)
            If Not Rng1 Is Nothing Then
               Rng1.Offset(0, 13).Value = Worksheets("All Data").Cells(b1, "A")
            End If
            End With
MsgBox (Rng1)
Workbooks(i).Close (False)

End If
Next
End With
End Sub

那位高手可以幫忙指導紅色字那邊出問題