關於formatdatatime

eric093

各位高手版主們：

附件檔案中，欲將明細的每一個資料比對時段是否符合在其區間中，若是則將回寫符合，
我的做法是先比對日期是否相符，再進行後續比對
但是，因為時間格式不同，所以用了formatdatatime
但就無法比對出來（我想應該是這裡有問題）
請各位高手指點！


謝謝！

GBKEE

回復 1# eric093
是這樣嗎?

1. Option Explicit
   
2. Sub 練習()
   
3.     Dim rng(1 To 6), E, K, C As Range
   
4.     Application.ScreenUpdating = False
   
5.     Set rng(1) = Sheets("明細").Range("B2")
   
6.     Set rng(2) = Sheets("時段").Range("A:A")
   
7.     rng(3) = FormatDateTime(rng(1), 2)
   
8.     Do While rng(1) <> ""
   
9.         Do
   
10.             Set rng(4) = rng(2).Find(DateValue(rng(3)), LookIn:=xlFormulas, lookat:=xlWhole)
    
11.             If Not rng(4) Is Nothing Then
    
12.                 rng(4).Value = "eric"
    
13.             End If
    
14.         Loop Until rng(4) Is Nothing
    
15.         Set rng(1) = rng(1).Offset(1)
    
16.     Loop
    
17. End Sub

複製代碼