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

本帖最後由 m09903020 於 2012-6-21 20:36 編輯

不好意思，請問這一段有1004應用程式或物件定義上的錯誤 ...
不知道是什麼問題?QQ

Sub SAMAD()
Dim myRange As Range
For i = 1 To 299
For Each c In Sheets("batch_pool").Range("A1:A" & [a1].End(xlDown).Row)'抓取5/10/50筆integer資料
ordernum = Sheets("order_pool").Cells(i, 1)'抓取299筆資料位址
Dim distance, SRD'距離公式用
distance = 0
SRD = 0
If (ordernum > 0) And (ordernum < 3001) Then
For j = 1 To 5
temp = Worksheets("總訂單").Cells(ordernum + 1, j + 6) 'temp is 訂單中每筆item代號
distance = Sheets("環境距離").Cells(c, temp + 2) '利用距離表對應出已距離
SRD = distance + SRD 'summation's idea by formula
Next j
SRD = SRD / 5 'SRD of SAMAD's fomula
Sheets("order_pool").Cells(i, 2) = SRD 'put into sheet
ElseIf (ordernum >= 3001) And (ordernum < 6001) Then '10 items
For j = 1 To 10
temp = Worksheets("總訂單").Cells(ordernum + 1, j + 6)
distance = Sheets("環境距離").Cells(c, temp + 2)
SRD = distance + SRD
Next j
SRD = SRD / 10
Sheets("order_pool").Cells(i, 2) = SRD
ElseIf (ordernum >= 6001) And (ordernum < 9001) Then '50 items
For j = 1 To 50
temp = Worksheets("總訂單").Cells(ordernum + 1, j + 6)
SRD = distance + SRD
Next j
SRD = SRD / 50
Sheets("order_pool").Cells(i, 2) = SRD
Else
MsgBox "error這麼九很奇怪ㄟ你"
End If
Next
Next i
Set myRange = Worksheets("order_pool").Range("B1:B299")
result = Application.WorksheetFunction.min(myRange)
If (result.Address.Row > 0) And (result.Address.Row < 3001) Then
Call cal_vol(ByVal 5)
ElseIf (result.Address.Row >= 3001) And (result.Address.Row < 6001) Then
Call cal_vol(ByVal 10)
ElseIf (result.Address.Row >= 6001) And (result.Address.Row < 9001) Then
Call cal_vol(ByVal 50)
Else
MsgBox "error這麼九很奇怪ㄟ你"
End If
End Sub

複製代碼

謝謝各位

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2012-6-19 23:09 | 只看該作者

result = Application.WorksheetFunction.Min(myRange)
If (result.Address.Row > 0) And (result.Address.Row < 3001) Then
這裡就不合邏輯，沒有這樣表達的！
你應該在工作表上測試，看錯誤中斷在哪裡
光看代碼沒有文件很難找出所有問題。

TOP

m09903020

中學生 Rank: 2

帖子: 40
主題: 13
精華: 0
積分: 69
點名: 0
作業系統: w7
軟體版本: office07
閱讀權限: 20
性別: 男
註冊時間: 2012-4-24
最後登錄: 2012-8-20

3^#

發表於 2012-6-20 16:16 | 只看該作者

回復 2# oobird

http://dl.dropbox.com/u/16247104/10000%20order_sortingalready.xlsm
因為程式過大

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-6-20 17:14 | 只看該作者

回復 3# m09903020
建議模組頂端加上 Option Explicit 強制宣告變數型態
幫你找找到一處 distance = Sheets("環境距離").Cells(c.Row, temp + 2).Value '利用距離表映射出距離
繼續下去因 2003的欄位只有 256 無法再除錯
請依下面程式設中斷點除錯