請幫忙翻譯一下程式

198188

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 24
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-8

15^# 跳轉到 »

發表於 2012-12-9 22:58 | 只看該作者

回復 14# c_c_lai

我試過將H28改成20% 或者100%，但是仍然沒有反應。
另外Set FRng = Wb.Sheets("New form of payment report").Range("k:k").Find(Date, lookat:=xlWhole, SearchDirection:=xlPrevious) 是不是不停地向上找？那麼K28一列達不到要求，不是會再向上尋找嗎？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

14^#

發表於 2012-12-9 20:12 | 只看該作者

回復 13# 198188

TOP

198188

中學生 Rank: 2

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 24
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-8

13^#

發表於 2012-12-9 18:19 | 只看該作者

回復 12# c_c_lai

有空列就無法運行?但是我之前也用這句尋找B欄如有而H欄百份比達九十五或以上就將K欄日期傳回!同樣有空列但運作就無問題,是何處出錯?

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

12^#

發表於 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

198188

中學生 Rank: 2

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 24
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-8

11^#

發表於 2012-12-9 09:44 | 只看該作者

回復 9# c_c_lai

Option Explicit
Sub ex()
Dim FRng As Range, Wb As Workbook
Dim A As Range, Rng As Range
Dim fs As String, xi As Integer
fs = "C:\Documents and Settings\USER\桌面\payment report 2012.xlsx"
Set Wb = Workbooks.Open(fs)
Set FRng = Wb.Sheets("New form of payment report").Range("k:k").Find(Date, lookat:=xlWhole, SearchDirection:=xlPrevious) '在b.xlsx 的K欄尋找等當日的日期的一列
If Not FRng Is Nothing Then '假如找到
If FRng.Offset(, -3).Value >= 0.95 Then '假如b.xlsx 這列的H欄的值大過或等於0.95
'*** Workbooks(A)-> A這變數字串沒有見到 ****
Set Rng = Workbooks("outstanding payments").Sheets("outstanding payments").Range("a:a").Find(FRng.Offset(, -9), lookat:=xlWhole, SearchDirection:=xlPrevious) ' 在a.xlsx 的A欄尋找b.xlsx 這列的B欄的值是否存在
If FRng Is Nothing Then '假如找不到
With Workbooks.Open("outstanding payments.xlsm").Sheets("outstanding payments") ' 在a.xlsx 的A欄最後一列加上b.xlsx 這列的B欄的值，及在a.xlsx 的F欄最後一列加上b.xlsx 這列的K欄的值
xi = .UsedRange.Cells(.UsedRange.Count).Row
.UsedRange.Cells(xi, "A") = FRng.Offset(, -9).Value
.UsedRange.Cells(xi, "F") = FRng.Value
End With
End If
End If
End If
Wb.Close 0
End Sub

複製代碼

效果是想當payment report 2012 內K欄是今天的日期，而H欄的%達到95%或以上，加上B欄的 SO#在outstanding payments 表內沒有的話，就把payment report 2012 內H欄的%達到95%或以上，及B欄的 SO#在outstanding payments 表內沒有的SO＃放在outstanding payments 表內的A欄的最後一列上及F欄的日期copy過去相應位置。
如圖中outstanding payment 黃色的部分。

TOP

198188

中學生 Rank: 2

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 24
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-8

10^#

發表於 2012-12-9 09:20 | 只看該作者

本帖最後由 198188 於 2012-12-9 09:22 編輯

回復 9# c_c_lai

C:\Documents and Settings\USER\桌面
我是用user的名稱來命名這台電腦，所以這句沒錯。
我要開的另一個excel （b.xlsx）是打開了，但是執行沒有什麼做出來

TOP

c_c_lai