[已解决]关于工作表change事件

靓

比如,选中G8,G8单元格字形变粗,A8单元格底色变灰

选中K10,(前面的G8和A8还原) K10字形变粗,A10单元格底色变灰~~~~

实现上面的功能后,保证选中区域时不会出错

尝试了录制宏再改,但出错,实在没办法上来提问,谢谢.

[em04]

 

5Rx3kCsc.rar (2.01 KB, 下载次数: 0)

2010-3-24 15:29 上传

点击文件名下载附件
关于工作表change事件

最佳答案

月排行榜 / 总排行榜

帅

2010-3-24 16:55

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[b2:IV65536].Font.Bold = False
[a1:a65536].Interior.ColorIndex = 0
 Target.Font.Bold = True
 Range("a" & Target.Row).Interior.ColorIndex = 15
End Sub
[em04]

跳转到最佳答案楼层

帅

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[b2:IV65536].Font.Bold = False
[a1:a65536].Interior.ColorIndex = 0
 Target.Font.Bold = True
 Range("a" & Target.Row).Interior.ColorIndex = 15
End Sub
[em04]

靓

谢谢帅！

[em01]