c_c_lai

回復 48# j1221
以 "TXF1" 為例：

1.     With Sheets("TXF1")
   
2.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)), LookIn:=xlFormulas)
   
3.         Set Rng = TimeRange.Offset(, 1).Resize(, 11)
   
4.     End With
   
5.     Rng.Value = Sheets("Main").Range("C9:M9").Value

複製代碼

建議修改為：

1.     With Sheets("TXF1")
   
2.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)), LookIn:=xlFormulas)
   
3.         If Not TimeRange Is Nothing Then
   
4.             TimeRange.Offset(, 1).Resize(, 11) = Sheets("Main").Range("C9:M9").Value
   
5.         End If
   
6.     End With

複製代碼

Range.Find() 會試圖找到該項資訊的第一個儲存格，如果沒有找到符合的儲存格，
則此方法 "傳回値" 會傳回 Nothing。
當 TimeRange 值為 Nothing， 你原本的寫法則會出錯。