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
-----------------------------------------------------
觸動前值 Range("i7").Value = 1 Range("J4") = 2
當我把 j4改為1時，就會出現 ”test" 視窗 ？？？
If Range("i7").Value = 1 Then Range("i7").Value = 2: Range("h7").Value = Range("g6").Value
上面此句已將 Range("h7").Value = Range("g6").Value
If Range("G6").Value > Range("h7").Value Then 此句條件不會成立啊作者: t8899 時間: 2021-2-7 08:02
