- 帖子
- 746
- 主題
- 243
- 精華
- 0
- 積分
- 1002
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-5-3
|
本帖最後由 t8899 於 2013-8-15 21:09 編輯
回復 t8899
luhpro 發表於 2013-8-14 23:05 
最後一個問題
在最後輸出已達條件的對話盒後
之前符合條件的部份
將 zz之值拷到 ZZ.Offset(, 26) (已達條件的，再重新繞回來,才不會一直重覆出現)
----------------------
Dim sStr$
Dim ZZ As Range
sStr = ""
sStr2 = ""
For Each ZZ In Range("c2:c111")
If Not IsError(ZZ) Then
If Range("Q26").Value = 1 And flag = True Then
M = Round(ZZ - ZZ.Offset(, 26), 2)
If M >= ZZ.Offset(, 2) Then
If sStr <> "" Then sStr = sStr & Chr(10)
sStr = sStr & "" & Cells(ZZ.Row, 2).Value & "=====> " & Round(ZZ - ZZ.Offset(, 26), 2)
End If
If M <= -ZZ.Offset(, 2) Then
If sStr2 <> "" Then sStr2 = sStr2 & Chr(10)
sStr2 = sStr2 & "" & Cells(ZZ.Row, 2).Value & "=====> " & Round(ZZ - ZZ.Offset(, 26), 2)
End If
End If
End If
Next
If sStr <> "" Then
CreateObject("Wscript.shell").Popup sStr, 4, "Auto Closed MsgBox", 64
End If
If sStr2 <> "" Then
CreateObject("Wscript.shell").Popup sStr2, 4, "Auto Closed MsgBox", 64
End If |
|
發表於 2013-8-14 07:11
| 
