ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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
'=============

¦^´_ 1# t8899

  1.      str = ""
  2.     For i = 1 To UBound(sz1)
  3.         If Val(SZ(i, 1)) = 0# Then   '--->¿ù¦b¦¹¦æ: ¨S¦³³oÅÜ¼Æ SZ(i, 1) ????
  4.          'Val(SZ1(i, 1))               ' ¦³³oÅÜ¼Æ SZ1
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-8-10 16:01 ½s¿è
¦^´_  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§ì¨ì)

TOP

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

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD