Execl高亮显示活动单元格的行和列

txdzf

想要达到的目的：

Execl高亮显示活动单元格的行和列

即：
　　①、不改变原表格内任何背景颜色；
　　②、活动单元格所在行和列高亮显示(当变为非活动单元格时，恢复原来颜色)；
　　③、活动单元格本身保持原颜色且粗边框显示。

　　在工作中，我们有的EXCEL表格数据列特别多，行也很多，非常不方便左右或是上下查看比对数据，见别人发的表格中，可以选中一个单元格，其所在的行或是列自动用醒目的颜色高亮标示出来，这样，可以极大的减轻我们的眼疲劳，提高核对或是录入数据的准确性。但是不知道怎么做出来的，也不知道最初是谁设置的，后来上网上收集了些VBA代码，但每次开启时都询问“是否启动宏”，大家也知道的 ，不启动肯定达不到目的，自动启动吧，有怕中毒，关键是传给同事或换台电脑他也不自动启动该宏哦。
　　能不能有一种办法，不装软件，不用宏代码，或者该宏代码在任意一台机子上都不询问直接启动呢？
　　最好能有详细备注哦。
　　感谢各位能给予赐教!

txdzf

收集到的代码，其中一个为：
1、打开宏，在ThisWorkbook里输入；
2、输入：
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        '清除工作表单元格的背景色
         .Parent.Cells.Interior.ColorIndex = xlNone
         '设置选中区域所在行的背景色
        .EntireRow.Interior.Color = vbCyan
        '设置选中区域所在列的背景色
        .EntireColumn.Interior.Color = vbCyan
    End With
End Sub
3、问题：①活动单位格未加边框且颜色与行和列一样；②需启动宏；③清除了原单元格的背景色，若不清除的话刚点多的活动单元格中显示的高亮色也还存在。

xmh237

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim colstr As String
    With Target
        colstr = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
        Range(ActiveCell.Address & "," & colstr & ":" & colstr & "," & .Row & ":" & .Row).Select
    End With
End Sub

ysh_red

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    Target.EntireColumn.Interior.ColorIndex = 4
    Target.EntireRow.Interior.ColorIndex = 8
End Sub
这个是工作薄中单元格改变事件


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Target.EntireColumn.Interior.ColorIndex = 4
    Target.EntireRow.Interior.ColorIndex = 4
End Sub
这个是工作表中单元格改变事件

第Ⅸ夜

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target.EntireColumn
        .FormatConditions.Add xlExpression, , "=true"
        .FormatConditions(1).Interior.ColorIndex = 4
    End With
    With Target.EntireRow
        .FormatConditions.Add xlExpression, , "=true"
        .FormatConditions(2).Interior.ColorIndex = 4
    End With
End Sub

zh_aihua

路过留痕，以备查阅！

ccschina

这样不好，以前用过复制时会把颜色标记复制过去，而WPS是可以不用代码的

ncelover

xmh237 发表于 2014-5-13 21:20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim colstr As String
    With Tar ...

好用，谢谢，但看不懂代码，哈哈

ncelover

xmh237 发表于 2014-5-13 21:20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim colstr As String
    With Tar ...

今天使用中发现一个问题，您分享的这个公式，影响单元格的格式设置，比如设置当前单元格背景色，会让当前单元格的所在的整行，整列都被设置上。

blackttea1

路过留痕，以备查阅！