返回列表 上一主題 發帖

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
-----------------------------------------------------
觸動前值 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 此句條件不會成立啊

回復 1# t8899

已解決

TOP

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題