[發問] 此巨集為何錯??

t8899

Private Sub Worksheet_Calculate()
        Dim xx As Range
For Each xx In Range("AG2:AG111")
If IsError(xx) Then
     If xx > xx.Offset(, -1) And Range("Q24").Value = 1 And flag = True Then
CreateObject("Wscript.shell").Popup "===> " & Cells(xx.Row, 2).Value & "=====> " & xx.Value, 1, "Auto Closed MsgBox", 64
Range("Q24").Value = 2
   Application.OnTime Now + TimeValue("00:00:15"), "DDD"
      Exit For
     End If
     End If
Next
end sub
錯誤訊息 型態不符合 ==>紅色行

t8899

一開檔才會有錯誤，但跑時是正常的
一開檔dde 連結 AG2:AG111 儲存格會2秒的錯誤訊息, 接著就正常,應該是這原因??
要把AG2:AG111 的錯誤忽略才行 ,才會用]If  IsError(xx)

t8899

已解決
If IsError(xx) Then 弄反了
If not IsError(xx) Then 才對

t8899

如果 AG2:AG111 有10個同時達到條件
會連續10個對話盒出現??
可以將10個放進1個對話盒出現嗎

luhpro

回復 4# t8899
因為沒實際的檔案資料可以驗證結果,
試試看底下的程式碼是否符合你的需求.

1.   Dim sStr$
   
2.   Dim xx As Range
   
3. 
   
4.   sStr = ""
   
5.   For Each xx In Range("AG2:AG111")
   
6.     If Not IsError(xx) Then
   
7.       If xx > xx.Offset(, -1) And Range("Q24").Value = 1 And flag = True Then
   
8.         If sStr <> "" Then sStr = sStr & Chr(10)
   
9.         sStr = sStr & "===> " & Cells(xx.Row, 2).Value & "=====> " & xx.Value
   
10.         Range("Q24").Value = 2
    
11.         Application.OnTime Now + TimeValue("00:00:15"), "DDD"
    
12.         Exit For
    
13.       End If
    
14.     End If
    
15.   Next
    
16.   If sStr <> "" Then CreateObject("Wscript.shell").Popup sStr, 1, "Auto Closed MsgBox", 64

複製代碼

t8899

回復  t8899
因為沒實際的檔案資料可以驗證結果,
試試看底下的程式碼是否符合你的需求.
luhpro 發表於 2013-8-2 23:59

謝謝!
已測試 ，符合條件中只會傳第一個
附檔請測試 TEST.rar (19.51 KB)

下載次數: 13

2013-8-3 06:49

luhpro

回復 6# t8899
把 Exit For 拿掉,
不然當條件成立後,
迴圈只會執行一次.

1. Private Sub Worksheet_Calculate()
   
2.   Dim sStr$
   
3.   Dim xx As Range
   
4. 
   
5.   sStr = ""
   
6.   For Each xx In Range("f2:F54")
   
7.     If Not IsError(xx) Then
   
8.       If xx > xx.Offset(, -1) And Range("I1").Value = 1 Then
   
9.         If sStr <> "" Then sStr = sStr & Chr(10)
   
10.         sStr = sStr & "===> " & Cells(xx.Row, 2).Value & "=====> " & xx.Value
    
11.         'Exit For    <===== 拿掉
    
12.       End If
    
13.     End If
    
14.   Next
    
15.   If sStr <> "" Then CreateObject("Wscript.shell").Popup sStr, 1, "Auto Closed MsgBox", 64
    
16. End Sub

複製代碼

t8899

回復  t8899
把 Exit For 拿掉,
不然當條件成立後,
迴圈只會執行一次.
luhpro 發表於 2013-8-3 08:54

可以了，謝謝指導!

t8899

回復  t8899
把 Exit For 拿掉,
不然當條件成立後,
迴圈只會執行一次.
luhpro 發表於 2013-8-3 08:54

想再多加一個條件
f2:F54 超過 5個 以上條件才成立
要如何改?

luhpro

想再多加一個條件
f2:F54 超過 5個 以上條件才成立
要如何改?
t8899 發表於 2013-8-3 10:08

超過 5個 以上?
那就邊處理邊計數囉:

1. Private Sub Worksheet_Calculate()
   
2.   Dim lCount As Long
   
3.   Dim sStr$
   
4.   Dim xx As Range
   
5. 
   
6.   sStr = ""
   
7.   lCount = 0
   
8.   For Each xx In Range("f2:F54")
   
9.     If Not IsError(xx) Then
   
10.       If xx > xx.Offset(, -1) And Range("I1").Value = 1 Then
    
11.         If sStr <> "" Then sStr = sStr & Chr(10)
    
12.         sStr = sStr & "===> " & Cells(xx.Row, 2).Value & "=====> " & xx.Value
    
13.         lCount = lCount + 1
    
14.       End If
    
15.     End If
    
16.   Next
    
17.   If sStr <> "" And lCount > 5 Then CreateObject("Wscript.shell").Popup sStr, 1, "Auto Closed MsgBox", 64
    
18. End Sub

複製代碼