c_c_lai

¦^´_ 48# j1221
¥H "TXF1" ¬°¨Ò¡G

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

½Æ»s¥N½X

«Øij­×§ï¬°¡G

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

½Æ»s¥N½X

Range.Find() ·|¸Õ¹Ï§ä¨ì¸Ó¶µ¸ê°Tªº²Ä¤@­ÓÀx¦s®æ¡A¦pªG¨S¦³§ä¨ì²Å¦XªºÀx¦s®æ¡A
«h¦¹¤èªk "¶Ç¦^値" ·|¶Ç¦^ Nothing¡C
·í TimeRange ­È¬° Nothing¡A §A­ì¥»ªº¼gªk«h·|¥X¿ù¡C