[µo°Ý] ¦¹¥¨¶°¬°¦ó¿ù??

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
¿ù»~°T®§ «¬ºA¤£²Å¦X ==>¬õ¦â¦æ

t8899

¤@¶}Àɤ~·|¦³¿ù»~¡A¦ý¶]®É¬O¥¿±`ªº
¤@¶}ÀÉdde ³sµ² AG2:AG111 Àx¦s®æ·|2¬íªº¿ù»~°T®§, ±µµÛ´N¥¿±`,À³¸Ó¬O³o­ì¦]??
­n§âAG2:AG111 ªº¿ù»~©¿²¤¤~¦æ ,¤~·|¥Î]If  IsError(xx)

t8899

¤w¸Ñ¨M
If IsError(xx) Then §Ë¤Ï¤F
If not IsError(xx) Then ¤~¹ï

t8899

¦pªG AG2:AG111 ¦³10­Ó¦P®É¹F¨ì±ø¥ó
·|³sÄò10­Ó¹ï¸Ü²°¥X²{??
¥i¥H±N10­Ó©ñ¶i1­Ó¹ï¸Ü²°¥X²{¶Ü

luhpro

¦^´_ 4# t8899
¦]¬°¨S¹ê»ÚªºÀɮ׸ê®Æ¥i¥HÅçÃÒµ²ªG,
¸Õ¸Õ¬Ý©³¤Uªºµ{¦¡½X¬O§_²Å¦X§Aªº»Ý¨D.

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

½Æ»s¥N½X

t8899

¦^´_  t8899
¦]¬°¨S¹ê»ÚªºÀɮ׸ê®Æ¥i¥HÅçÃÒµ²ªG,
¸Õ¸Õ¬Ý©³¤Uªºµ{¦¡½X¬O§_²Å¦X§Aªº»Ý¨D.
luhpro µoªí©ó 2013-8-2 23:59

ÁÂÁÂ!
¤w´ú¸Õ ¡A²Å¦X±ø¥ó¤¤¥u·|¶Ç²Ä¤@­Ó
ªþÀɽдú¸Õ TEST.rar (19.51 KB)

¤U¸ü¦¸¼Æ: 13

2013-8-3 06:49

luhpro

¦^´_ 6# t8899
§â Exit For ®³±¼,
¤£µM·í±ø¥ó¦¨¥ß«á,
°j°é¥u·|°õ¦æ¤@¦¸.

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

½Æ»s¥N½X

t8899

¦^´_  t8899
§â Exit For ®³±¼,
¤£µM·í±ø¥ó¦¨¥ß«á,
°j°é¥u·|°õ¦æ¤@¦¸.
luhpro µoªí©ó 2013-8-3 08:54

¥i¥H¤F¡AÁÂÁ«ü¾É!

t8899

¦^´_  t8899
§â Exit For ®³±¼,
¤£µM·í±ø¥ó¦¨¥ß«á,
°j°é¥u·|°õ¦æ¤@¦¸.
luhpro µoªí©ó 2013-8-3 08:54

·Q¦A¦h¥[¤@­Ó±ø¥ó
f2:F54 ¶W¹L 5­Ó ¥H¤W±ø¥ó¤~¦¨¥ß
­n¦p¦ó§ï?

luhpro

·Q¦A¦h¥[¤@­Ó±ø¥ó
f2:F54 ¶W¹L 5­Ó ¥H¤W±ø¥ó¤~¦¨¥ß
­n¦p¦ó§ï?
t8899 µoªí©ó 2013-8-3 10:08

¶W¹L 5­Ó ¥H¤W?
¨º´NÃä³B²zÃä­p¼ÆÅo:

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

½Æ»s¥N½X