Excel中实现鼠标指向哪个单元格那个单元格就变色

在工作薄中的任意工作表中添加两个窗体按钮控件，将指定其设置宏 分别指定为为ChangeColor 和 StopChange。其供示范之用
效果图：

模块中代码：

Option   Explicit
Declare   Function  GetCursorPos _
    Lib   " user32 "  ( _
        lpPoint  As  POINTAPI) _
As   Long
Type POINTAPI
    X  As   Long
    Y  As   Long
End  Type
Dim  ChangeOn  As   Boolean
Dim  OldRange  As  Range
Dim  OldColorIndex  As   Integer
Dim  blnStop  As   Boolean
Sub  StopChange()
     On   Error   Resume   Next
     If   Not  blnStop  Then
        blnStop  =   True
     End   If
End Sub

Sub  ChangeColor()
     Dim  LngCurPos  As  POINTAPI
     Dim  NewRange  As  Range
     On   Error   Resume   Next
    blnStop  =   False
     If  ChangeOn  Then
         Exit Sub
     Else
        ChangeOn  =   True
     End   If
     Do
     If  blnStop  =   True   Then   Exit   Do
    GetCursorPos LngCurPos
     On   Error   Resume   Next
     Set  NewRange  =  ActiveWindow.RangeFromPoint(LngCurPos.X, LngCurPos.Y)
     If  Err  <>   0   Then
        OldRange.Interior.ColorIndex  =  OldColorIndex
     Else
         If  NewRange.Address  <>  OldRange.Address  Then
             If  OldRange  Is   Nothing   Then
             Else
                OldRange.Interior.ColorIndex  =  OldColorIndex
             End   If
            OldColorIndex  =  NewRange.Interior.ColorIndex
            NewRange.Interior.ColorIndex  =   3
         End   If
         Set  OldRange  =  NewRange
     End   If
     On   Error   GoTo   0
    DoEvents
     Loop
    ChangeOn  =   False
End Sub

转载于:https://www.cnblogs.com/wangminbai/archive/2008/02/20/1075319.html