Excel中鼠标指向单元格改变颜色

查看文章

Excel中鼠标指向单元格改变颜色

2008-01-20 15:23

主     题

　Excel中鼠标指向单元格改变颜色

版     本

　Excel2002及其以后版本

说     明

  本示例运用API函数来获得鼠标指向单元格的地址进而更改其单元格颜色。（Code By wangminbai）

在工作薄中的任意工作表中添加两个窗体按钮控件，将指定其设置宏 分别指定为为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

类别：excel杂记 | 添加到搜藏 | 浏览() | 评论 (3)

姓　名：	*姓名最长为50字节

网址或邮箱：	(选填)

内　容：

验证码：	请点击后输入四位验证码，字母不区分大小写看不清?
	取消回复