[µ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²{¶Ü

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

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¦ó§ï?

t8899

¶W¹L 5­Ó ¥H¤W?
¨º´NÃä³B²zÃä­p¼ÆÅo:
luhpro µoªí©ó 2013-8-3 10:29

¬O§_·|¤Ó®øÏä¨t²Î¸ê·½??

t8899

¦^´_  t8899
¬Û¤ñµ{¦¡¤¤¨ä¥L³¡¤Àªº°Ê§@¨Ó»¡,

³o¥u¬O±N¬Y­ÓÅܼưµ ¥[1 ªº°Ê§@,

¸ê·½®ø¯Ó´X¥G¥i¥H¤£­p ...
luhpro µoªí©ó 2013-8-3 10:58

©êºp¡A¦A¥´ÂZ¤@¤U
±ø¥ó·Q§ï¦¨
¥u¦³ Range("f2:F54")  ÅܰʶW¹L 1% «h±ø¥ó¦¨¥ß(Range("f2:F54") ¬°DDE³sµ²)
¨Ò¦p 100 Åܦ¨ 101 ©Î 99 «h¦¨¥ß

t8899

§ï¦¨³o­ÓÀ³¸Ó¤£§xÃø°Ú:

If Int(xx - xx.Offset(, -1)) >= 0.01 And Range("I1").Value = 1 Then
luhpro µoªí©ó 2013-8-4 21:44

Range("f2:F54")  ÅܰʶW¹L 1%
¬O¦ÛÄæ¸ò¦ÛÄæ¤ñ¸û ¤£¬O¸ò EÄæ(xx.Offset(, -1)) ¤ñ¸û
§YÅÜ°Ê«á-ÅÜ°Ê«e >1%©Î<1%  Åã¥Ü¬Û´îªº­È BOX(¶·Åã¥Ü¼W¥[ÁÙ¬O´î¤Ö)

¥t¥~¤U­±³o¬qµ{¦¡½XÅã¥Üªº¹ï¸Ü²°¬°¦ó¨S´«¦æ??

Dim sStr2$
Dim ZZ As Range
      sStr2 = ""
   For Each ZZ In Range("c2:c111")
    If Not IsError(ZZ) Then
      If ZZ > ZZ.Offset(, 26) * 1.01 Or ZZ < ZZ.Offset(, 26) * 0.99 And Range("Q26").Value = 1 And flag = True Then
        If sStr2 <> "" Then sSt2r = sStr2 & Chr(10)
        sStr2 = sStr2 & "­ÓªÑ»P¤W¤@½L===> " & Cells(ZZ.Row, 2).Value & "=====> " & ZZ.Value
        
        
        ' Exit For
      End If
    End If
  Next
  If sStr2 <> "" Then CreateObject("Wscript.shell").Popup sStr2, 2, "Auto Closed MsgBox", 64
    Range("Q26").Value = 2
        Application.OnTime Now + TimeValue("00:00:15"), "FFF"