记录成长
分享快乐

Excel~选中单元格行列高亮(限制区域版)

之前发布了一篇名为 Excel~选中单元格行列高亮 的文章,文章中的代码可以很好地实现选定 Excel 单元格的行列高亮显示,然而代码是通行通列改变底色的,如果仅仅是电脑端显示还可以,打印的时候如果不注意可能会导致打印出无用的区域,今天闲来无事将代码进一步优化使得高亮区域限制在一定区域内,效果更好一些。具体效果如下:

下面是实现此功能的具体代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim numRows, numColumn As Integer

    nSelected = Target.Row
    numRows = ActiveSheet.UsedRange.Cells(1, 1).Row + ActiveSheet.UsedRange.Rows.Count - 1
    numColumn = ActiveSheet.UsedRange.Cells(1, 1).Column + ActiveSheet.UsedRange.Columns.Count - 1
    
    If Target.Row < 7 Or Target.Row > numRows - 1 Or Target.Column < 2 Or Target.Column > numColumn - 1 Then
        ActiveSheet.Cells.Interior.ColorIndex = 2
        Range("B6:V6").Interior.Color = 12611584
    Else
        Cells.Interior.ColorIndex = 2
        Range("B6:V6").Interior.Color = 12611584
        Range(Cells(nSelected, 2), Cells(nSelected, 22)).Interior.ColorIndex = 6
        
    End If
End Sub

将代码插入工作簿的当前工作表下即可。其中限制区域的边界大家根据实际情况调整下上面的参数即可,Range(“B6:V6”) 是为了保持行标题栏色彩不变。另外这里只设置了行高亮的显示,列高亮显示与此类似,请各位自行调整。

蝈蝈下载面板

恭喜,此资源为免费资源,请先
注意:本站资源多为网络收集,如涉及版权问题请及时与站长联系,我们会在第一时间内与您协商解决。如非特殊说明,本站所有资源解压密码均为:blog.quietguoguo.com。
赞(0) 我要打赏
蝈蝈提醒:转载请注明出处哦>>>蝈蝈要安静 » Excel~选中单元格行列高亮(限制区域版)
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

博客文章有用,赏博主一包辣条~~~

支付宝扫一扫打赏

微信扫一扫打赏