爱联系——助你更熟悉办公软件!

让excel像wps一样出现个阅读模式

来源:微信公众号:办公软件表格小技巧    更新时间:2018-04-20 11:42:22    编辑:心情    浏览:4248

先来看一下WPS阅读模式的界面:

blob.png


excel如何实现这种功能呢?

  • 要在哪个工作表里面使用这个功能就对着哪个工作表标签右键-查看代码

  • blob.png

    2.在弹出的窗口右边的编辑框中放入以下代码:

    Public rg As Range

    Private Sub Worksheet_Selecti (ByVal Target As Range)

    If Not rg Is Nothing Then Columns(rg.Column).Interior.Pattern = xlNone

    If Not rg Is Nothing Then Rows(rg.Row).Interior.Pattern = xlNone

    Columns(Target.Column).Interior.Color = 39999

    Rows(Target.Row).Interior.Color = 39999

    Set rg = Target

    End Sub

    blob.png


    现在返回excel工作薄的“sheet2”工作表随便点击一个单元格就会发现被选中的这个单元格对应的整行、整列都会高亮添加颜色,实现了WPS的“阅读模式”功能!


    blob.pngblob.png

    注意事项:

  • 代码一定要放入你要使用这个功能对应的工作表的VBE编辑器中。

  • Columns(Target.Column).Interior.Color = 39999 这一句是为选中单元格对应的整列设置颜色,“39999”是颜色代码,小伙伴们可以根据自己的需求更改颜色代码。

  • Rows(Target.Row).Interior.Color = 39999 这一句是为选中单元格对应的整行设置颜色,“39999”是颜色代码,小伙伴们可以根据自己的需求更改颜色代码。

  • 评论区

    表情

    共1条评论
    • 727146685

      Public rg As Range
      Private Sub Worksheet_Selectionchange (ByVal Target As Range)
      If Not rg Is Nothing Then Columns(rg.Column).Interior.Pattern = xlNone
      If Not rg Is Nothing Then Rows(rg.Row).Interior.Pattern = xlNone
      Columns(Target.Column).Interior.Color = 39999
      Rows(Target.Row).Interior.Color = 39999
      Set rg = Target
      End Sub

      纠正一下:文中的代码少了几个字母,以这份为准

      2018-04-24 15:58:00 回复

    相关内容

    点击排行

    随机新闻

    评论排行榜