- 帖子
- 13
- 主題
- 4
- 精華
- 0
- 積分
- 17
- 點名
- 0
- 作業系統
- mac
- 軟體版本
- os10
- 閱讀權限
- 10
- 註冊時間
- 2015-6-16
- 最後登錄
- 2015-8-10
|
[發問] 想請問如何解決『執行階段錯誤“13"，型態不符合』
此程式碼在執行的時候在
Range("e" & j) = (hilow.Offset(0, 5).Value - Range("b" & j).Value) / hilow.Offset(0, 5).Value
這地方，一直出現『執行階段錯誤“13"，型態不符合』錯誤，
hilow 是搜尋結果得到的儲存格變量
然後我是想將搜尋結果那一行的儲存格值hilow.Offset(0, 5)貼到另一工作表上
請問要如何改進才能debug，謝謝！
ps.此為擷取一部分主要出問題的程式碼，完整的於附件- Sub test()
- Dim Blast As Integer
- Dim hilow As Range
- Dim j As Integer
-
-
- Blast = Range("AA4").End(xlDown).Row
- For j = 6 To (Blast * 2) - 1 Step 2
- Set hilow = Sheets("G.&E.").Range("c:j").Find(Range("a" & j))
- If Not hilow Is Nothing Then
- Range("e" & j) = (hilow.Offset(0, 5).Value - Range("b" & j).Value) / hilow.Offset(0, 5).Value
- Range("e" & j + 1) = (hilow.Offset(0, 6).Value - Range("b" & j)) / hilow.Offset(0, 6).Value
- End If
- Range("D" & j) = "=(B" & j & "-C" & j & ")/B" & j
- Next j
-
- End Sub
 活頁簿1.xlsm 2.zip (277.22 KB)
|
|
發表於 2015-7-16 12:12
| 
