返回列表 上一主題 發帖

前輩!請進!!

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-25 12:25 | 只看該作者

前輩!請進!!

本帖最後由 Hsieh 於 2011-2-25 13:30 編輯

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))
       問題如附檔說明
       請麻煩指導謝謝再三!!

Leov48.rar (96.12 KB)

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-2-28 17:13 | 只看該作者
回復 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)   公式的值

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2011-3-2 21:24 | 只看該作者
回復 2# GBKEE
GBKEE前輩你好!
     　 良師!謝謝!!....
        歹勢啦!又讓你辛苦謝謝再三!!

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題