25
2020
02

EXCEL标尺功能让核对数字更简单,财务的同事经常用到

在EXCEL表格里核对数据,如果数据繁多,那将看得眼花缭乱。即不容易核对,也容易搞错。

其实,有个小办法,很方便核对数据。要用到EXCEL VBA一小段代码。


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Application.ScreenUpdating = False

        Cells.Interior.ColorIndex = -4142

        '取消单元格原有填充色,但不包含条件格式产生的颜色。

        Rows(Target.Row).Interior.ColorIndex = 15

        '活动单元格整行填充颜色

        Columns(Target.Column).Interior.ColorIndex = 15

        '活动单元格整列填充颜色

    Application.ScreenUpdating = True

End Sub

所有工作表都有标尺功能,代码应放到thisworkbook。

如果只想让sheet1单独有标尺功能,代码则放到sheet1,在vba界面双击sheet1。

动态示意图效果:

扩展知识点,如果想变换十字标尺的颜色,即Excel Interior.ColorIndex色彩列表,按照下表所对应的数字变易就可以。


« 上一篇下一篇 »

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。