返回列表 上一主題 發帖

[發問] 沒有設定物件變數或 With 區塊變數

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2014-6-9 13:33 | 顯示全部帖子
本帖最後由 stillfish00 於 2014-6-9 13:39 編輯

回復 3# esperanto
說明範例的bug吧，我會把
  1. Loop While Not c Is Nothing And c.Address <> firstAddress
複製代碼
改成
  1.     If c Is Nothing Then Exit Do
  2. Loop While c.Address <> FirstAddress
複製代碼
原因應該是loop while 條件中，
VBA會把兩條件先求出來再And起來，造成
c.Address <> FirstAddress左式在c為nothing時求不出來。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-6-9 15:28 | 顯示全部帖子
回復 5# esperanto
應該是你在別的程式，在找到c後不會改掉c的值，所以loop中不會有c為nothing(找不到下一個)的問題。
而VBA說明範例
  1. With Worksheets(1).Range("a1:a500")
  2.     Set c = .Find(2, LookIn:=xlValues)
  3.     If Not c Is Nothing Then
  4.         FirstAddress = c.Address
  5.         Do
  6.             c.Value = 5
  7.             Set c = .FindNext(c)
  8.         Loop While Not c Is Nothing And c.Address <> FirstAddress
  9.     End If
  10.   End With
複製代碼
說明範例有c.value = 5 ，2都改為5後就找不到2了
而你的例子，有Range(Worksheets("Scheduling").Cells(c.Row, 1), Worksheets("Scheduling").Cells(c.Row + 1, 9)).ClearContents
會把你找的machine清掉，所以FindNext最後會傳回Nothing

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題