[µo°Ý] ½Ð°Ý¦¹¥¨¶°¬°¦ó¿ù??¦p¦ó§ï?

t8899

Private Sub Worksheet_Calculate()
    Àˬd
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Àˬd
End Sub
Sub Àˬd()
    Dim n, sz1, str As String

sz1 = Range("c2:C111")
    str = ""
    For i = 1 To UBound(sz1)
        If Val(SZ(i, 1)) = 0# Then   '--->¿ù¦b¦¹¦æ
            If Val(sz1(i, 1)) <> 0# Then str = str & vbCrLf & i + 1 & "===" & i + 1 & "=" & Sheets("Sheet3").Cells(i + 1, 2).Value
        Else
            n = Round((Val(sz1(i, 1)) - Val(SZ(i, 1))) / Val(SZ(i, 1)) * 100, 2)
             If Abs(n) >= 1 Then str = str & vbCrLf & Sheets("Sheet3").Cells(i + 1, 2).Value & "===>" & n
        End If
    Next i

    If Len(str) > 0 Then
        SZ = Range("C2:C111")
       ' MsgBox str, , "´£¥Ü"
          CreateObject("Wscript.shell").Popup "" & str, 1, "Auto Closed MsgBox", 64
    End If
END SUB
'=============

GBKEE

¦^´_ 1# t8899

1. 
   
2.      str = ""
   
3.     For i = 1 To UBound(sz1)
   
4.         If Val(SZ(i, 1)) = 0# Then   '--->¿ù¦b¦¹¦æ: ¨S¦³³oÅÜ¼Æ SZ(i, 1) ????
   
5.          'Val(SZ1(i, 1))               ' ¦³³oÅÜ¼Æ SZ1

½Æ»s¥N½X

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-8-10 14:16

¦¹µ{¦¡Àˬdc2:C111ÅܰʶW¹L1%ªºÀx¦s®æ
sz ¬°ÅÜ°Ê«e
sz1 ¬°ÅÜ°Ê«á
©Ò¥H sz¸òsz1 ¤@¼Ë ¬° Range("c2:C111")
dim §ï¬°  
Dim n, sz,sz1, str As String
¦A¥[sz =Range("c2:C111")
´ú¸ÕµL§@¥Î???(ÅÜ°Ê«e¼Æ­ÈµLªk§ì¨ì)

luhpro

¦^´_ 3# t8899
½Ð°Ñ¬Ý³o½g :
½Ð°Ý¦¹¥¨¶°¬°¦ó¿ù??