VBA判读单元格值或颜色变化触发另一个模块代码

gopher.liu

通过target.column限定了O列数值变化，但只能在手工输入的情况下有提示
  而O列是前面单元格自动计算的，并且有色标。
有什么办法检测到O列只要数据变动或单元格颜色变更就触发 call aa的提示啊？
感谢各位大侠相助。

之前也尝试过用 target.interior.colorindex <> xlnone   也失败了。。

工作簿2 - 副本.rar (16.68 KB, 下载次数: 2)

2018-1-23 16:38 上传

点击文件名下载附件

jokklx

Dim t
Private Sub Worksheet_Change(ByVal Target As Range)
  If Sheets(1).Range("o" & Target.Row) <> t And Target.Row < 65536 Then '取值15列的1格到65536格。
  Call aa
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = Sheets(1).Range("o" & Target.Row)
End Sub
个人感觉能够比较完美的实现O列数据公式自动计算引起值的改变不触发change事件的情况。目前是只要是公式导致的O列数据变化了会提示，公式没有导致数值变化（对会改变的单元格进行了编辑，但没有修改内容，即编辑后公式计算的O列值与原来相同）不触发。
其中Dim t  在通用字段声明

gopher.liu

jokklx 发表于 2018-1-23 19:34
Dim t
Private Sub Worksheet_Change(ByVal Target As Range)
  If Sheets(1).Range("o" & Target.Row)   ...

感谢大侠帮助，一大早就看到消息了，折腾到现在还是一无所获（完全不知道该如何下手了……）

再问一下，如果不能截获单元格颜色的变化、不能截获单元格数值的变化，能不能直接截获该单元格数值，再判断是否有 “ - ” 这个符号呢？  如果这个符号存在，那么就调用下面的代码。


再次感谢相助。
工作簿2 - 副本.rar (17.54 KB, 下载次数: 6)

2018-1-24 11:46 上传

点击文件名下载附件

aman1516

gopher.liu 发表于 2018-1-24 11:46
感谢大侠帮助，一大早就看到消息了，折腾到现在还是一无所获（完全不知道该如何下手了……）

再问一下 ...

楼主要的是O列任何变化都提示，不是O列数据变化后为负数的才要提示？
看下是否你要的结果： 工作簿2 - 副本.rar (15.64 KB, 下载次数: 28)

2018-1-24 14:34 上传

点击文件名下载附件

gopher.liu

aman1516 发表于 2018-1-24 14:34
楼主要的是O列任何变化都提示，不是O列数据变化后为负数的才要提示？
看下是否你要的结果：

感谢您的帮助，我看到代码了，但我这EXCEL2016运行不了这些代码，不知问题在哪（难道代码太高级了，哈哈哈……）。
晚上回去再学习，感谢大家。