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

Worksheet_Calculate

Worksheet_Calculate

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±ø¥ó¤£·|¦¨¥ß°Ú

¦^´_ 1# t8899

¤w¸Ñ¨M

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD