Worksheet_Calculate

t8899

Private Sub Worksheet_Calculate()
If Range("J4") = 1 then
If Range("i7").Value = 1 Then Range("i7").Value = 2: Range("h7").Value = Range("g6").Value
If  Range("G6").Value > Range("h7").Value Then
Range("J4") = 2
MsgBox "test"
Range("J4").Interior.ColorIndex = xlNone
Range("i7").Value = 1
End If
End If  
end sub
-----------------------------------------------------
IJ°Ê«e­È Range("i7").Value = 1 Range("J4") = 2
·í§Ú§â j4§ï¬°1®É¡A´N·|¥X²{ ¡¨test" µøµ¡ ¡H¡H¡H
If Range("i7").Value = 1 Then Range("i7").Value = 2: Range("h7").Value = Range("g6").Value
¤W­±¦¹¥y¤w±N Range("h7").Value = Range("g6").Value
If  Range("G6").Value > Range("h7").Value Then ¦¹¥y±ø¥ó¤£·|¦¨¥ß°Ú

t8899

¦^´_ 1# t8899

¤w¸Ñ¨M