Worksheet_Calculate
- 帖子
- 764
- 主題
- 254
- 精華
- 0
- 積分
- 1031
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2025-7-7
|
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 此句條件不會成立啊 |
|
|
|
|
|
|
- 帖子
- 764
- 主題
- 254
- 精華
- 0
- 積分
- 1031
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2025-7-7
|
2#
發表於 2021-2-7 08:02
| 只看該作者
|
|
|
|
|
|
靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。