如题所述
excel里用VBA实现单击一个单元格A1后在指定区域（B2:C7）的单元格变色。
这个可以实现，但是单击了A1后需要下次变色的话，那么要先选其他单元格后再次单击A1单元格才会实现，所以建议插入一个按钮来实现更方便些，操作步骤如下：
1、在VBE中编辑好代码，按Alt+F11组合键打开VBE编辑器；
2、依次单击“插入”菜单-“模块”；
3、双击“模块”写下代码：
Sub Color()
Range(“B2:C7”).Interior.Color=Int(Rnd*60000)
End Sub
4、回到Excel表中依次单击“开发工具”选项卡-“插入”-“按钮”；
5、在表格上画出按钮，会自动弹出提示框，选择宏Color即可。
效果图如下：
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-02-21
Sub 变色()
Range("b2:c7").Interior.ColorIndex = xlNone
Dim rng
For Each rng In Range("b2:c7")
If rng = [a1] Then
rng.Interior.ColorIndex = 8
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr = 1 And tc = 1 Then
变色
End If
End Sub
