- 帖子
- 250
- 主題
- 59
- 精華
- 0
- 積分
- 313
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 澳門
- 註冊時間
- 2010-9-11
- 最後登錄
- 2020-1-6
|
編譯錯誤-找不到專案或程式庫
大大們, 好
小弟昨天轉換了07excel版, 沿用開的檔案在03版中沒有問題, 但到了這個相容模式中, 巨集便出現了問題, 小弟實解決不了, 故請大大們協助, 而在下列程式碼中, 便產生編譯錯誤-找不到專案或程式庫, 而Offset便呈反白, 到底是何原因, 請大大們教導, 謝謝!!
Set A = Rng.Columns(2).Find(T.Offset(, -4), lookat:=xlWhole)
pp = Application.SumIf(Range("C:G"), A, Range("G:G")) '計算倉庫提取總數
If pp > (A.Offset(, 8) + A.Offset(, 10)) Then
MsgBox T.Offset(, -3) & "庫存只有" & cnt & "存量不足重新填寫"
T.Interior.ColorIndex = 26
GoTo 10
End If |
|
發表於 2011-7-30 18:33
| 
發表於 2011-7-30 19:29
| 
