excel里如何用VBA实现单击一个单元格A1后在指定区域内(B2:C7)的单元格变色？

Question

如题所述

Answer 1

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即可。

效果图如下：

Answer 2

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