• 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 就表示你改动的单元格。

  • 相关阅读:
    爬取校园新闻首页的新闻
    网络爬虫基础练习
    综合练习:词频统计
    Hadoop综合大作业
    理解MapReduce
    熟悉常用的HBase操作
    熟悉常用的HDFS操作
    爬虫大作业
    数据结构化与保存
    使用正则表达式,取得点击次数,函数抽离
  • 原文地址:https://www.cnblogs.com/yangzhou33/p/8407429.html
Copyright © 2020-2023  润新知