UC知道excel 变色问题
来源：百度知道 编辑：UC知道 时间：2024/06/30 04:50:32
在一个彩票网站看到走势图，其中有个标记行，用来模拟预选的，觉得挺有趣，想用excel也来实现这个功能，即选中某个单元格时，所在单元格变色，再点击一次颜色还原 或者是点击一次单元格的数值或内容变色，再点击一次数值或内容的颜色还原。excel功能强大，这个应该能够实现，求高手详细解答，我是以遇到一个感兴趣的实际问题来学习的，解决一个问题，学习一个知识，慢慢积累！先谢谢先生们了！
1.应该可以，谢谢 bady3036的回答，盼望其他的回答
2.csbtz先生的回答有创意，但是还达不到那种效果，点击A1整个工作表变绿，而不是单个单元格变绿。找到一个参考的网站：http://www.17500.cn/3d/3dlinejb30.php 在这个网页的最后标记行，点击看看，就是那种效果。csbtz先生已经接近最后目标，继续努力，悬赏最终会属于你的，加油！！！谢谢各位高手！
1.应该可以，谢谢 bady3036的回答，盼望其他的回答
2.csbtz先生的回答有创意，但是还达不到那种效果，点击A1整个工作表变绿，而不是单个单元格变绿。找到一个参考的网站：http://www.17500.cn/3d/3dlinejb30.php 在这个网页的最后标记行，点击看看，就是那种效果。csbtz先生已经接近最后目标，继续努力，悬赏最终会属于你的，加油！！！谢谢各位高手！
'把下面的代码复制到工作表的代码区
'在B1输入一些字符，点击A1、B1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Interior.ColorIndex = -4142 Then
Cells.Select
Selection.Interior.ColorIndex = 10
Else
Cells.Select
Selection.Interior.ColorIndex = -4142
End If
Range("a2").Select
End If
If Target.Address = "$B$1" Then
If Target.Font.ColorIndex = -4105 Then
Target.Font.ColorIndex = 3
Else
Target.Font.ColorIndex = -4105
End If
End If
End Sub
excel没这功能
网页才有,网页可以鼠标移上去变一个色,点下去再变一个色,放开再变一个色,这个颜色还可以是声音或者图片
我只可以，选择单元格直接变色，但再选择就不会恢复颜色，我再研究研究