返回列表 上一主題 發帖

請幫忙翻譯一下程式

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

TOP

回復 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

回復 13# 198188
2.png
2012-12-9 20:11

TOP

回復 16# 198188
你可以參考 kai6929 先進提供的:
銷售管理完成版
#19 附件內有關的 AdvancedFilter  的過濾條件的處理。
之後再來思維 Outstanding Payments 接下來的動作。

TOP

        靜思自在 : 改變自己是自救,影響別人是救人。
返回列表 上一主題