[已解决]选择单元格突出显示行和列

lidayu

请老师赐教，如何实现选择一个单元格突出显示（填充颜色），当前单元格为止的相应行和列呈L型。

触发单元格填充行列.rar (7.15 KB, 下载次数: 2)

2017-9-19 21:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-9-20 08:22

试试这样可好Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'用条件格式+calculte也好,原来单元格颜色不会去除
'条件格式公式：=(cell("row")=row())*(cell("col")>=column())和=(cell("row")>=row())*(cell("col")=column())
'Cells.Calculate

With Target
    .Parent.Cells.Interior.ColorIndex = xlNone '单元格颜色都成xlnone（无）
    Cells(1, .Column).Resize(.Row).Interior.Color = RGB(0, 255, 255)
    Cells(.Row, 1).Resize(1, .Column).Interior.ColorIndex = 6
End With
End Sub

跳转到最佳答案楼层

苏子龙

试试这样可好Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'用条件格式+calculte也好,原来单元格颜色不会去除
'条件格式公式：=(cell("row")=row())*(cell("col")>=column())和=(cell("row")>=row())*(cell("col")=column())
'Cells.Calculate

With Target
    .Parent.Cells.Interior.ColorIndex = xlNone '单元格颜色都成xlnone（无）
    Cells(1, .Column).Resize(.Row).Interior.Color = RGB(0, 255, 255)
    Cells(.Row, 1).Resize(1, .Column).Interior.ColorIndex = 6
End With
End Sub

lidayu

苏子龙 发表于 2017-9-20 08:22
试试这样可好Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'用条件格式+calculte也好, ...

苏子龙您好，完美实现了想要的效果，谢谢！