請幫忙翻譯一下程式

返回列表下一主題上一主題發帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2012-12-9 08:23 | 顯示全部帖子

回復 8# 198188
請檢查 fs = "C:\Documents and Settings\USER\桌面\b.xlsx"
USER 是誰，它僅是提醒你那指的是操作使用者，當然你就得換上正名了！

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-12-9 09:52 | 顯示全部帖子

回復 10# 198188
假設 K 欄原本之日期為 12/8，為配合測試將它們均改成 12/9 今日。
Set FRng = Wb.Sheets("New form of payment report").Range("k:k").Find(Date, lookat:=xlWhole, SearchDirection:=xlPrevious)
則 FRng 搜尋結果是指向 FRng.Address : "$K$28" 該條件吻合之最後一項，
而該列 H 欄 FRng.Offset(, -3).Value : 0 (該欄係空白欄)，
結論是 If FRng.Offset(, -3).Value >= 0.95 Then 不成立。

TOP

c_c_lai