此巨集為何錯?? - Excel程式區 - 麻辣家族討論版版

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

50^# 跳轉到 »

發表於 2013-8-16 09:53 | 只看該作者

附檔

Book1.rar (15.22 KB)

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

49^#

發表於 2013-8-16 06:49 | 只看該作者

本帖最後由 t8899 於 2013-8-16 06:51 編輯

回復 t8899
因為漲跌兩邊都要執行,
所以會加兩行 :另外,建議你可以參考類似上面這樣有做縮排處理的程式 ...
luhpro 發表於 2013-8-15 21:47

應該是執行到 ZZ.Offset(, 26) = ZZ時，就跳出 for next 直接執行下面 ?迴圈沒跑完就跳出?

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

48^#

發表於 2013-8-15 22:07 | 只看該作者

回復 t8899
因為漲跌兩邊都要執行,
所以會加兩行 :另外,建議你可以參考類似上面這樣有做縮排處理的程式 ...
luhpro 發表於 2013-8-15 21:47

訊息無法一次出現???會一隻一隻出現??

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

47^#

發表於 2013-8-15 21:47 | 只看該作者

回復 46# t8899
因為漲跌兩邊都要執行,
所以會加兩行 :

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)
ZZ.Offset(, 26) = ZZ ' <======= 加在這裡
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)
ZZ.Offset(, 26) = ZZ ' <======= 加在這裡
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

複製代碼

另外,建議你可以參考類似上面這樣有做縮排處理的程式編寫習慣,
只需先找到區塊的某一邊,
直接按上或下鍵就能確認區塊的範圍,
這樣要找問題或是切入點會比較容易,
也比較不容易因為要找一些缺東缺西的問題而浪費寫程式的時間.

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

46^#

發表於 2013-8-15 21:03 | 只看該作者

本帖最後由 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