前輩!請進!!

myleoyes

hsieh前輩你好!
       偶像前輩!不好意思請幫忙看看
       為何執行這個程式
       With Sheet1
          Set Rng = .Cells.Find(Format(Date, "[$-404]m/d"), LookIn:=xlValues, LookAt:=xlWhole)
          .Select
          If Not Rng Is Nothing Then Rng.Offset(, 1).Select Else MsgBox "找不工作天"
       End With
       End Sub
       就衝突到它
       Set Age_Rng(0) = Range(Age_Rng(1).Offset(, 6), Age_Rng(2).Offset(, 6))
       問題如附檔說明
       請麻煩指導謝謝再三!!

myleoyes

回復 2# GBKEE
GBKEE前輩你好!
     　 良師!謝謝!!....
        歹勢啦!又讓你辛苦謝謝再三!!

GBKEE

回復 1# myleoyes
Find (尋找) 選項設定沒指定清楚   
VBA的說明有說
備註
每次呼叫本方法後，將儲存 LookIn、LookAt、SearchOrder 及 MatchByte 的設定。如果下一次呼叫時未指定這些引數，將使用儲存的設定。設定這些引數將改變 [尋找] 對話方塊中的設定，而修改 [尋找] 對話方塊中的設定，也將改變系統在省略這些引數時所使用的儲存值。為避免出現麻煩，每次呼叫本方法時，請明確指定這些引數的值。

尋找儲存格的內容  LookIn:=xlValues
尋找儲存格的公式  LookIn:=xlFormulas)

程式後端 有兩處 Find (尋找) 選項設定為xlValues 如下
找到工作天()
With Sheet1
Set Rng = .Cells.Find(Format(Date, "[$-404]m/d"), LookIn:=xlValues, LookAt:=xlWhole)

Sub 找到今天()
   With Sheet2
     Set Rng = .Cells.Find(Format(Date, "#,##0 "), LookIn:=xlValues, LookAt:=xlWhole)

導致重新再執行時找不到開始登入位置及終止登入會產生錯誤
修正下兩處程式碼可改善
Set Age_Rng(1) = Age_Rng(0).Find(Age, LookAt:=xlWhole, LookIn:=xlFormulas)   公式的值   
Set Age_Rng(2) = Age_Rng(0).Find(Age, LookAt:=xlWhole, LookIn:=xlFormulas)   公式的值