如果只选择在B2：Z100区域使用高亮显示颜色，这个代码怎么改动？

汶誉仔

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
   Cells.Interior.ColorIndex = xlNone
   Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
   rng.Interior.ColorIndex = 15
End Sub
这个代码在论坛里找的，点击单元格后行与列高亮显示颜色。

123152011

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
   Cells.Interior.ColorIndex = xlNone
   Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
   Set rng = Intersect(Range("B2：Z100"), rng)
   rng.Interior.ColorIndex = 15
End Sub

cjjhpc

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range    Cells.Interior.ColorIndex = xlNone    Set rng = Intersect([b2:z100], Target)    If rng Is Nothing Then Exit Sub    Set rng = Application.Union(rng.EntireColumn, rng.EntireRow)    rng.Interior.ColorIndex = 15 End Sub

汶誉仔

123152011 发表于 2021-5-3 18:33
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
   Cells.Interior.Co ...

谢谢回复！

汶誉仔

cjjhpc 发表于 2021-5-3 19:01
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range    Cells.Interior.Colo ...

谢谢回复！

汶誉仔

cjjhpc 发表于 2021-5-3 19:01
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range    Cells.Interior.Colo ...

谢谢你的回复！
问题还没有实现，现在上附件，看能不能实现，请帮忙看看下面的附件。

汶誉仔

高亮显示.rar (9.28 KB, 下载次数: 6)

2021-5-4 11:42 上传

点击文件名下载附件

问题还没有实现解决，请老师们看看附件，谢谢！

liulang0808

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Cells.Interior.ColorIndex = xlNone
   Set rng = Application.Intersect(Target, [B2:Z100])
   If rng Is Nothing Then Exit Sub
   Set rng = Application.Intersect([B2:Z100], Application.Union(rng.EntireColumn, rng.EntireRow))
   rng.Interior.ColorIndex = 15
End Sub

汶誉仔

liulang0808 发表于 2021-5-4 11:49
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Cells.Interior.ColorIndex = xlNon ...

请版主看看7楼的附件效果能实现吗？谢谢！

liulang0808

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   [B2:Z100].Interior.ColorIndex = xlNone
   Set Rng = Application.Intersect(Target, [B2:Z100])
   If Rng Is Nothing Then Exit Sub
   Set Rng = Application.Intersect([B2:Z100], Application.Union(Rng.EntireColumn, Rng.EntireRow))
   Rng.Interior.ColorIndex = 15
End Sub
看看是不是这个意思吧