行列交叉高亮显示

紫虚瞳殇

终于在大神的套路中找到正路，必须要收藏备用用的是excel2007 ，想要行列在不改变原有的单元格颜色的条件下，点击某一单元格令行和列叉高亮显示：
代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireColumn
.FormatConditions.Add xlExpression, , "=true"
.FormatConditions(1).Interior.ColorIndex = 27
End With
With Target.EntireRow
.FormatConditions.Add xlExpression, , "=true"
.FormatConditions(2).Interior.ColorIndex = 27
End With

End Sub


如果只是想要行高亮显示：
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    On Error Resume Next
    Cells.FormatConditions.Delete
    With Target.EntireRow.FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = 28

    End With
End Sub

Sub test()
Dim k As Byte
For k = 1 To 56
    Cells(k, 1) = k
    Cells(k, 2).Interior.ColorIndex = k
Next k
End Sub


最后保存表格格式为97-2003

紫虚瞳殇

还有一个不想改变excel表格属性，在条件格式-公式，
输入=(CELL("col")=COLUMN())+(CELL("row")=ROW())
行和列高光显示，但每次移动鼠标时，要按F9刷新。

砂海

"聚光灯" 这个功能, 很多年了 ,

wps 中 【阅读模式 】, 直接就是了

紫虚瞳殇

砂海 发表于 2022-8-31 16:35
"聚光灯" 这个功能, 很多年了 ,

wps 中 【阅读模式 】, 直接就是了

可是我公司用的是office2007，这就没办法了。。。。

砂海

有 Excel 的插件 , 是带这个功能的

紫虚瞳殇

砂海 发表于 2022-9-1 18:53
有 Excel 的插件 , 是带这个功能的

要另外下载吗？这个就不懂得操作了。