• EXCEL在改动某几个单元格时隐藏空列


    概述

    今天我哥来找我帮他搞下excel表格,本着程序猿对程序无所不能的精神,我爽快的答应了。结果查了半天才搞定。现在记录在此,供自己以后参考,相信对其他人也有用。

    PS:这几天正在弄博客,马上就要弄完啦,弄完就把这些手记搬到博客上面啦!

    说明

    EXCEL的条件格式不能改变单元格的高宽,不能删掉单元格,不能隐藏单元格。

    要实现这些功能需要用VBA编写宏,其中用到了EXCEL的Change事件。

    EXCEL的Change事件是当改变单元格时自动运行的,不需要绑定按钮。

    用法

    右键点击工作表的标签,然后点击“查看代码”,然后分别选择“Worksheet”和“Change”,如下图。最后贴入代码即可。

    图片描述
    图片描述

    代码

    以下代码将更改的单元格的颜色设为蓝色。

    Private Sub Worksheet_Change(ByVal Target as Range) 
        Target.Font.ColorIndex = 5 
    End Sub
    

    以下代码将在改动EXCEL的C1单元格和G1单元格时,隐藏D4到AH4列之间的空列

    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim abc As String
        Dim rng As Range
        abc = Target.Address
        If abc = "$C$1" Or abc = "$G$1" Then
            For Each rng In [D4:AH4]
                If rng.Value = "" Then
                    rng.EntireColumn.Hidden = True
                Else
                    rng.EntireColumn.Hidden = False
                End If
            Next
        End If
    End Sub
    

    注意:Private Sub Worksheet_Change(ByVal Target As Range)这一行不能改动;其中Target 就表示你改动的单元格。

  • 相关阅读:
    网站首页的设计
    短网址服务的构建
    分布式服务框架:Zookeeper
    Hadoop数据传输工具:Sqoop
    规则引擎简介
    HadoopDoctor:来自腾讯数据仓库TDW的MR诊断系统
    Hermes:来自腾讯的实时检索分析平台
    Mdrill:来自阿里的多维快速查询工具
    Saiku操作界面的简化
    Saiku OLAP
  • 原文地址:https://www.cnblogs.com/yangzhou33/p/8407429.html
Copyright © 2020-2023  润新知