求助

wakecl1982

能不能实现类似于这样，C1、D2、E3、F4这四个单元格，鼠标点击其中任意一个，这四个单元格都变成黄色？

opel-wong

试试，

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Address(0, 0) = "C1" Or Target.Address(0, 0) = "D2" Or Target.Address(0, 0) = "E3" Or Target.Address(0, 0) = "F4" Then Range("C1,D2,E3,F4").Interior.ColorIndex = 6
   
4. End Sub

复制代码

opel-wong

单元格选择事件，

wakecl1982

哇，学习了。。。多谢大神

DevilW

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     Set Rng = [c1,d2,e3,f4]
   
4.     r = Target.Row - [c1].Row: c = Target.Column - [c1].Column
   
5.     If r >= 0 And r < 4 And r = c Then Rng.Interior.ColorIndex = 6
   
6. End Sub

复制代码