- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
前輩!請進!!
本帖最後由 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)
|
發表於 2011-2-25 12:25
| 
