SheetChange事件问题，谢谢！！

alstar

大神，比如A1单元格原本就有数据，当我双击A1单元格后，如果不做修改的话，SheetChange事件不生效。只有在修改了A1单元格的内容时，才生效。


谢谢大神

opiona

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2. 
   
3. End Sub

复制代码

huang1314wei

你要问的问题是什么

liulang0808

所谓的修改分两种吧
一种是真修改，A1的值发生了变化，会触发事件
另一种，是双击单元格，然后直接回车，A1单元格里的值没有变化，也会触发事件

楼主如果要是排除第二种情况，建议考虑在模块或者其他单元格里保存A1修改前的值，然后进行比对，决定触发事件后的下一步操作

alstar

liulang0808 发表于 2018-7-20 07:33
所谓的修改分两种吧
一种是真修改，A1的值发生了变化，会触发事件
另一种，是双击单元格，然后直接回车， ...

想要实现第一种，双击单元格，真修改触发。。看来好像实现这个问题挺难。。

CC例例

用2楼的单元格激活事件读取原数据，然后在编辑后触发事件中进行比对，决定下一步操作。

liulang0808

alstar 发表于 2018-7-20 11:06
想要实现第一种，双击单元格，真修改触发。。看来好像实现这个问题挺难。。

改完单元格需要其他动作的
比如按回车，或者选择其他单元格的。
如果仅仅是修改，然后光标还在单元格内，那么不会触发change事件的

alstar

liulang0808 发表于 2018-7-20 11:58
改完单元格需要其他动作的
比如按回车，或者选择其他单元格的。
如果仅仅是修改，然后光标还在单元格内 ...

版主，change事件  if target.address=range("A1:A10") then 一个区域不支持吗？我想改成用end的一个动态区域。

chis3

這樣可以嗎
Dim str As String
Private Sub Worksheet_Change(ByVal Target As Range)
    If [a1].Value <> str Then MsgBox "aaa"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    str = [a1].Value
End Sub

liulang0808

target.address=range("A1:A10") .address