excel中如何实现在选中某一个单元格后使其改变背景颜色，在鼠标移开后，其颜色又恢复为无色 5
最好通过VBA编程实现：
思路：
1、对选定区域内的所有单元格进行判定：若地址和激活单元格相同，底色为某种颜色（如红色）；否则为无色。
2、退出前再次判定：若有单元格底色不为无色，则设置为无色。
具体步骤：（设填充底色为红色）
1、确定需要满足变色单元格的区域（如A1:D10）
2、第一轮判定：打开Excel，按Alt+F11进入VB界面，双击左侧【工程-VBAProject】窗口中的“Sheet1(Sheet1)”进入代码窗口，粘贴如下代码后保存代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
For Each i In Range("A1:D10")
If i.Address = Target.Address Then i.Interior.ColorIndex = 3 Else i.Interior.ColorIndex = 0
'代码解释：若选定区域的某一单元格地址与当前激活单元格相同，底色设置为红色，否则为无色。
Next
End Sub
3、第二轮判定：双击【工程-VBAProject】窗口中的“ThisWorkbook”进入代码窗口，粘贴如下代码后保存代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ii As Range
For Each ii In Range("A1:D10")
If ii.Interior.ColorIndex <> 0 Then ii.Interior.ColorIndex = 0
Next
End Sub
4、后续工作：保存代码、保存文件（文件类型为带宏的Excel）。退出VB界面，在A1:D10中激活任一单元格，则底色置红色。保存文件后，退出时可看到红色区域消失。
注意事项：
1、该方法需要在代码中人为修改符合要求的单元格区域范围（如上面的A1:D10），执行时可根据需要自行修改，也可以通过输入对话框Inputbox()等方式自动引入（此处从略）。
2、底色颜色不一定为红色，可将Interior.ColorIndex属性值改为其他自然数，颜色对照表参见下面的链接：
http://blog.sina.com.cn/s/blog_44cb3d3d0100fzh7.html
3、如有疑问或更好的想法可发邮件到zandong_19@yahoo.cn，欢迎交流学习！
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
