返回列表 上一主題 發帖

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

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題