- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 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) 公式的值 |
|
發表於 2011-2-28 17:13
| 