返回列表 上一主題 發帖

(已解決)錯誤1004 請教一下這一段code是否有邏輯錯誤

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-6-20 17:14 | 顯示全部帖子
回復 3# m09903020
建議 模組頂端加上   Option Explicit  強制宣告變數型態
幫你找找到一處 distance = Sheets("環境距離").Cells(c.Row, temp + 2).Value '利用距離表映射出距離
繼續下去因 2003的欄位只有 256  無法再除錯
請依下面程式設中斷點除錯
  1. Sub SAMAD()
  2. Dim myRange As Range, c, ordernum, temp As Integer, result
  3. On Error GoTo ex: '---加上此行
  4. For i = 1 To 299
  5. For Each c In Sheets("batch_pool").Range("A1:A" & [a1].End(xlDown).Row)
  6. '
  7. '
  8. '
  9. '
  10. ElseIf (result.Address.Row >= 6001) And (result.Address.Row < 9001) Then
  11. Call cal_vol(ByVal 50)
  12. Else
  13. MsgBox "error這麼九很奇怪ㄟ你"
  14. End If
  15. '-------程式底部---------------------------
  16. Exit Sub '---加上此行
  17. ex:           '---加上此行
  18. Resume   '---加上此行''滑鼠選這裡按 F9 設下中斷點 有錯誤  按F8 來除錯
複製代碼

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題