精华内容
下载资源
问答
  • 3、如何控制工作表的显示与隐藏 ⑴下面通过录制一段宏来了解VBA如何控制工作表的显示与隐藏:在"开发工具"选项卡"代码"组中单击"录制宏"按钮,弹出"录制新宏"对话框,指定宏名和保存位置,单击"确定"按钮。...

    了解更多,观看视频

    1、准备工作

    打开Excel后新建一个工作簿,将sheet1工作表标签重命名为"控制面板",删除sheet2、sheet3保存,在"控制面板"的A1至A36单元格内依次输入"七⑴、七⑵、七⑶、七⑷、七⑸、七⑹、七⑺、七⑻、七⑼、七⑽、七⑾、七⑿、八⑴、八⑵、八⑶、八⑷、八⑸、八⑹、八⑺、八⑻、八⑼、八⑽、八⑾、八⑿、九⑴、九⑵、九⑶、九⑷、九⑸、九⑹、九⑺、九⑻、九⑼、九⑽、九⑾、九⑿",将作为新插入的工作表标签名称。

    2、批量创建工作表

    右击"控制面板"工作表标签,在弹出的快捷菜单中选择"查看代码"命令,打开VBA窗口,将下面的代码复制到其中即可。

    Sub CreateSheet()

    ' 创建多个指定名称的工作表,工作表名称必须放在sheet1的第一列

    Dim k As Integer, ShuMu As Integer, Obsht As Worksheet

    ShuMu = 36 '要创建的工作表数量,可根据需要修改

    Set Obsht = Sheets(1)

    For k = 1 To ShuMu

    Worksheets.Add , Worksheets(ThisWorkbook.Worksheets.Count)

    ActiveSheet.Name = Obsht.Cells(k, 1)

    ' 根据sheet1的第一列中数据重命名工作表名称

    Next

    Set Obsht = nothing

    End Sub

    将光标置于将代码中,按F5键将自动创建36个工作表,并且工作表标签名称依次从七⑴一直到九⑿。

    3、如何控制工作表的显示与隐藏

    ⑴下面通过录制一段宏来了解VBA如何控制工作表的显示与隐藏:在"开发工具"选项卡"代码"组中单击"录制宏"按钮,弹出"录制新宏"对话框,指定宏名和保存位置,单击"确定"按钮。

    a07753da9b4e7cc28e334714d34c82df.png

    “录制新宏“对话框

    ⑵选择七⑴至七⑿工作表标签,右击,在弹出的快捷菜单中选择"隐藏"命令,这时12张工作表被隐藏了,在"开发工具"选项卡"代码"组中单击"停止录制"按钮,进入VBA窗口,发现多了一个"模块",选中其中的"模块1"有下面一段代码:

    Sub 宏1()

    Sheets(Array("七⑴", "七⑵", "七⑶", "七⑷", "七⑸", "七⑹", "七⑺", "七⑻", "七⑼", "七⑽", "七⑾", "七⑿")). Select

    Sheets("七⑿").Activate

    ActiveWindow.SelectedSheets.Visible = False

    End Sub

    上面代码就三行:

    第一行就是选中七⑴至七⑿12个工作表;第二行是"七⑿"工作表为活动工作表;第三行就是将所有选中的工作的Visible 属性设置为False,此时工作表就被隐藏不可见了,如果设置为True就以显示了。但是直接修改Visible 属性设置为True会发生如下错误:

    d6bded559ed4881a70e4b8ae65ccc6b8.png

    代码运行错误提示

    发生错误的原因是隐藏的工作表无法选中,自然无法将Visible 属性设置为True。我们要在此基础上对代码进行修改优化。

    4、代码修改与优化

    将宏1代码修改如下:

    Sub 宏1()

    Dim i As Integer, s

    s = Array("七⑴", "七⑵", "七⑶", "七⑷", "七⑸", "七⑹", "七⑺", "七⑻", "七⑼", "七⑽", "七⑾", "七⑿")

    For i = 0 To 11

    Worksheets(s(i)).Visible = True

    Next

    End Sub

    代码第一行:定义两个变量一个整型变量i和变体型变量s;

    代码第二行:将常量数组赋值给变体型变量s;数组下标从0开始,即s(0)表示"七⑴",依次类推s(11)表示"七⑿",而Worksheets(s(0))就指"七⑴"工作表,依次类推Worksheets(s(11))就指"七⑿"工作表。

    代码第三至五行:For-Next循环,i从0至11即将从"七⑴"至"七⑿"工作表的Visible 属性设置为True,从而显示它们。

    5、新问题新矛盾

    每次要显示或隐藏工作表都要进入VBA窗口,还要根据实际情况手动修改Visible 属性,或为True或为False,更不方便。

    ⑴插入命令按钮,将宏指定给该按钮,或者双击命令按钮,将代码复制。

    选中"控制面板"工作表,在"开发工具"选项卡"控件"组中单击"插入"按钮,选择"命令按钮"类型,然后按下鼠标左键拖曳画出一个"CommandButton1"按钮,右击该按钮,在弹出的快捷菜单中选择"属性"命令,在"属性"面板中将名称修改为"CmdQi",将Caption修改为"隐藏七年级班级表",如下图:

    32e31d7dba9c9fcdc5b94b61ee1f29a5.png

    插入命令按钮闰修改其属性

    ⑵双击该按钮,进入VBA窗口,并有下图显示

    f96920558f28f484208ec99867a770e3.png

    命令按钮的click事件过程

    将下面的代码复制粘贴到两行中间得到下图:

    9fcb7a3a1b7d9e9e1f55eb79548ebc27.png

    显示与隐藏工作表代码

    核心代码就是中间选中的条件判断区域,根据按钮"CmdQi"的Caption属性来判断,要设置显示或隐藏工作表,如果是"隐藏七年级班级表",则要隐藏工作表,要将所有范围内的工作表的Visible属性设置为False,同时"CmdQi"的Caption属性要修改为"显示七年级班级表"。如果是"显示七年级班级表",则要显示工作表,要将所有范围内的工作表的Visible属性设置为True,同时"CmdQi"的Caption属性要修改为"隐藏七年级班级表"。这里引入了一个布尔变量blnLook很好的解决了这个问题。

    6、注意:

    如果"开发工具"选项卡没有显示,单击"文件"→"选项"命令,打开"Excel 选项"对话框,在"自定义功能区"选项卡右侧勾选"开发工具"后单击"确定"按钮,如下图:

    f412383cb322a1afcaf3099d4bd2d13e.png

    启用“开发工具”选项卡

    展开全文
  • 快速隐藏周围区域__Excel VBA应用.rar,如果希望在工作表中只显示指定的部分区域,其余部分设置为隐藏,则需要多次使用行隐藏和列隐藏命令。本例的代码可以将选中的连续区域以外的区域一次性全部隐藏
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧3 获得指定行、列中的最后一个非空单元格 12 技巧4 定位单元格 12 技巧5 查找单元格 12 5-1 使用Find方法 12 5-2 使用Like运算符 12 技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另...
  • 不能有空白; <p>4、新的Sheet页里面合并的数据格式为“常规”格式; <p>5、如果需要合并的数据有筛选或隐藏,在合并数据时取消筛选和隐藏,合并Sheet页里的所有数据; <p>6、...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧3 获得指定行、列中的最后一个非空单元格 17 技巧4 定位单元格 20 技巧5 查找单元格 21 5-1 使用Find方法 21 5-2 使用Like运算符 25 技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    04168隐藏、显示某单元格所在的或列 04169隐藏、显示单元格区域 04170单元格区域自动套用格式 04171选定单元格 04172选定单元格,并显示在窗口的左上角处 04173激活单元格 04174合并单元格 04175取消单元格的合并 ...
  • 自动生成VBA窗体菜单

    2010-08-16 15:23:46
    自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     11.2.3 隐藏除选区之外的区域  11.2.4 同步工作表  11.3 VBA技巧  11.3.1 切换布尔类型的属性值  11.3.2 确定打印页面的数量  11.3.3 显示日期和时间  11.3.4 获得字体列表  11.3.5 对数组进行排序  ...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    中文版Excel.2007高级VBA编程宝典 2/2 ... 11.2.3 隐藏除选区之外的区域  11.2.4 同步工作表  11.3 VBA技巧  11.3.1 切换布尔类型的属性值  11.3.2 确定打印页面的数量  11.3.3 显示日期和时间  11.3.4 获得字体...
  • 函数作用:取消隐藏工作表(包括vba Project工程保护的)88 '75.函数作用:删除单元格自定义名称.....................88 '76.函数作用:从文件路径中取得文件名...................89 '77.函数作用:取得一个文件的扩展...
  • 74.取消隐藏工作表(包括vba Project工程保护的) 75.删除单元格自定义名称 76.从文件路径中取得文件名 77.取得一个文件的扩展名 78.取得一个文件的路径 79.十进制转二进制 80.检查一个数组是否为空 81.字母栏名转...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • Excel百宝箱

    2012-10-27 17:09:21
    【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 最大的优点是将指定的任意区域按每个存储格内容为一加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号连接...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    最大的优点是将指定的任意区域按每个存储格内容为一加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • 最大的优点是将指定的任意区域按每个存储格内容为一加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • 最大的优点是将指定的任意区域按每个存储格内容为一加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • 最大的优点是将指定的任意区域按每个存储格内容为一加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • 【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • excel 工具箱

    2012-01-22 15:04:34
    【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 【筛选唯一值】以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【建文件目录】对指定文件夹中的文件建立目录,且生成链接,单击可以打开对应的文件 【建工作表目录】对...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 中文版Excel.2007图表宝典 1/2

    热门讨论 2012-04-06 18:49:24
    3.10 通过隐藏数据控制数据系列/71 3.11 断开图表系列与其数据区域的联系/72 3.11.1 将图表转换为图片/72 3.11.2 将区域引用转换为数组/73 3.12 处理多个坐标轴/74 3.12.1 创建一个次要值坐标轴/74 3.12.2 创建有四...
  • 中文版Excel.2007图表宝典 2/2

    热门讨论 2012-04-06 19:01:36
    3.10 通过隐藏数据控制数据系列/71 3.11 断开图表系列与其数据区域的联系/72 3.11.1 将图表转换为图片/72 3.11.2 将区域引用转换为数组/73 3.12 处理多个坐标轴/74 3.12.1 创建一个次要值坐标轴/74 3.12.2 创建有四...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 消除重复的话,必须指定关键词 distinct SELECT distinct 定额名称 FROM [材料进货明细表$] 2、查询满足条件的元组 例5、查询材料进货明细表中单位为“套”的所有记录 SELECT * FROM [材料进货明细表$] where ...
  • 5.4 自定义VBA文本函数  第6章 处理Et期和时间 6.1 Excel如何处理日期和时间 6.1.1 了解日期序列号 6.1.2 输入日期 6.1.3 理解时间序列号 6.1.4 输入时间 6.1.5 日期和时间的格式化 6.1.6 有关日期的问题 ...

空空如也

空空如也

1 2
收藏数 36
精华内容 14
关键字:

vba隐藏指定行