[已解决]如何使当更改背景色时产生事件

爱疯

EXCEL里默认没这样的事件。
例如，A1单元格本来填充是黄色，修改为绿色后，就msgbox：“背景色已改变！”
谢谢！

最佳答案

月排行榜 / 总排行榜

HYY514

2011-1-27 22:26

EXCEL中没有这样的事件，用API也只是用SetTimer和回调函数来不停检查单元格有没有变化，除此之外未没见过有什么好的方法，是比较消耗资源的。如果要求不严格可以用变通的方法
Private tmpRng As Range
Private tmpRngCdex As Long
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If tmpRngCdex <> 0 Then
    If tmpRng.Interior.ColorIndex <> tmpRngCdex Then
       MsgBox tmpRng.Address & "颜色改变"
       Application.EnableEvents = False
       tmpRng.Select
       Application.EnableEvents = True
    End If
End If
Set tmpRng = Selection
tmpRngCdex = Selection.Interior.ColorIndex
On Error GoTo 0
End Sub

跳转到最佳答案楼层

过儿

这个得用API函数了

爱疯

过儿 发表于 2011-1-26 23:22
这个得用API函数了

谢谢过儿！
我还是去了解些基础知识，这个留到学会再看吧
{:25:}

sunjing-zxl

API啊，深奥了

HYY514

EXCEL中没有这样的事件，用API也只是用SetTimer和回调函数来不停检查单元格有没有变化，除此之外未没见过有什么好的方法，是比较消耗资源的。如果要求不严格可以用变通的方法
Private tmpRng As Range
Private tmpRngCdex As Long
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If tmpRngCdex <> 0 Then
    If tmpRng.Interior.ColorIndex <> tmpRngCdex Then
       MsgBox tmpRng.Address & "颜色改变"
       Application.EnableEvents = False
       tmpRng.Select
       Application.EnableEvents = True
    End If
End If
Set tmpRng = Selection
tmpRngCdex = Selection.Interior.ColorIndex
On Error GoTo 0
End Sub

爱疯

谢谢飞版！
给出原办法的说明和变通的方式，学习了！

{:25:}

xdwy81129

来学习创新问题的答案

老糊涂

HYY514 发表于 2011-1-27 22:26
EXCEL中没有这样的事件，用API也只是用SetTimer和回调函数来不停检查单元格有没有变化，除此之外未没见过有 ...

学习最佳答案