右键sheet名,查看代码
复制下列代码
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Target.Offset(, 1 - Target.Column).Resize(1, 26).Interior.ColorIndex = 34
S = Target.Column
If Columns(S).Interior.ColorIndex = 34 Then
Columns(S).Interior.ColorIndex = 0
Else
Columns(S).Interior.ColorIndex = 34
End If
End Sub
已有的方法 如下百度经验,
但是这个方法会 影响你 复制粘贴, 复制的内容 会被自动取消
http://jingyan.baidu.com/article/066074d6431122c3c21cb0ce.html?st=2&os=0&bd_page_type=1&net_type=2
一个看似容易的问题,真要能实际使用,其实还真的要花费不少功夫!
难度不在于设置颜色,而在于,离开时需要恢复原来的颜色!否则,很快整个表格就都是一种颜色了!
难度不在于离开时恢复原来的颜色,而在于,刚开始工作簿打开时的每个Sheet的第一个当前行的颜色的初始值!
……
……
如果,用户希望选定单元格设置颜色,那该如何处理?都需要考虑的