指定插入一行_插入命令按钮,用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

启用“开发工具”选项卡

完整清晰版 PDF 有目录。共 270MB分为 2 个分卷 中文版Excel 2007 高级VBA编程 宝典 OFFICE2007 中文版Excel 2007高级VBA编程宝典 原价:99.99元 作者:(美)沃肯巴赫(Walkenbach,J) 著;冯飞焦瑜净 译 出版社:清华大学出版社 出版日期:2009-2-1 ISBN:9787302194675 字数:1294000 页码:872 编辑推荐 -------------------------------------------------------------------------------- “电子格先生”潜心力作世界级Excel畅销书。   “千锤百炼”Excel畅销书    没有人比“电子格先生”更了解Excel 2007。本书涵盖了使VBA 扩展Excel 功能方法、提示和思想。Excel 2007 还有一些绝秘新技巧John Walkenbach 将帮助您掌握它们。 本书作者John Walkenbach 是享有国际美誉“电子格先生”。他在书中分享了自己15 年来使Excel 经验毫无保留地传授了学习和使Excel 所有知识为读者掌握Excel 提供了绝佳途径。本书前两个版本均已获得巨大成功在前两版基础上本书升华了已有精华并结合Excel 2007 全新特性是一部技术含量高、实践性强经典著作。 本书将介绍如何定制Excel 户窗体、开发新实程序、VBA 处理图及数据透视以及创建事件处理应程序。还将介绍如何使VBA 子过程和函数过程、其他应程序轻松交互、构建户友好工具栏、菜单和帮助系统等。 内容提要 -------------------------------------------------------------------------------- 这本全能手册适合对Excel感兴趣所有人群不但内容丰富、权威且条理清晰、结构合理。本书作者是当之无愧世界级Excel电子格专家他为读者倾心打造了这本专著书中汇聚他15年来使Excel所有经验涵盖Excel应VBA编程涉及方方面面是经典著作Excel 2003 Power Programming with VBA全新升级版。 目录 -------------------------------------------------------------------------------- 第Ⅰ部分 Excel基础知识  第1章 Excel 2007起源   1.1 电子格软件简史    1.1.1 最初起源:VisiCalc    1.1.2 Lotus 1-2-3     1.1.3 Quattro Pro   1.1.4 Microsoft Excel   1.2 Excel 对开发人员重要性   1.3 Excel在Microsoft 战略中角色  第2章 Excel概述   2.1 关于对象   2.2 工作簿    2.2.1 工作    2.2.2 图工作    2.2.3 XLM宏工作    2.2.4 Excel 5/95对话框编辑   2.3 Excel户界面    2.3.1 功能区引入    2.3.2 快捷菜单    2.3.3 对话框    2.3.4 键盘快捷键    2.3.5 智能标记    2.3.6 任务窗格   2.4 自定义屏幕显示   2.5 数据录入   2.6 公式、函数和名称   2.7 选择对象   2.8 格式    2.8.1 数字格式    2.8.2 样式格式   2.9 保护选项    2.9.1 保护公式以防被重写    2.9.2 保护工作簿结构    2.9.3 运密码来保护工作簿    2.9.4 使密码来保护VBA代码   2.10 图   2.11 形状和SmartArt   2.12 数据库访问    2.12.1 工作数据库    2.12.2 外部数据库   2.13 Internet特性   2.14 分析工具    2.14.1 分级显示    2.14.2 分析工具库    2.14.3 数据透视    2.14.4 Solver    2.14.5 XML特性   2.15 加载项   2.16 宏和编程   2.17 文件格式   2.18 Excel帮助系统  第3章 公式使技巧   3.1 公式概述   3.2 计算公式   3.3 单元格和单元格区域引    3.3.1 为什么使不是相对    3.3.2 R1C1
表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 1024 设计师:白松林 返回首页