- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
正确学会Excel VBA的16堂课-Excel工作表相关操作
Excel工作表相关操作
♂插入与选取工作表
♂隐藏与删除工作表
♂移动或复制工作表
♂工作表的保护
♂工作表的实际应用
插入与选取工作表
插入工作表
在指定位置插入工作表
插入前判断工作表是否存在
选取指定工作表
设置活动工作表
选取多个工作表
设置活动工作表
使用Select和Activate操作同一张工作表时,二者实现的功能一样,都是将单个工作表选中或激活。区别在于Select可以同时选取多张工作表,而Activate只能设置一个工作表为活动状态,例如使用“Worksheet.Select”语句选取所有工作表,但只有Sheet1为活动工作表,如图4-8所示。而“Worksheets.Activat”则是错误的语句,在运行时会弹出显示“编译错误”的信息提示,如图4-9所示。
隐藏与删除工作表
隐藏一个或多个工作表
取消工作表的隐藏
删除指定的工作表
删除未选中的工作表
按指定条件隐藏
具体的操作步骤如下:
步骤1:在VBA代码窗口中新插入一个模块并从中输入如下程序代码,如图4-11所示。
步骤2:运行该程序可将“4月份销售清单”工作表外所有工作表隐藏,如图4-12所示
移动或复制工作表
在工作簿内移动工作表
工作簿间移动工作表
在工作簿内复制工作表
在工作簿间复制工作表
将工作表另存为工作簿
在工作簿内移动工作表
在工作簿内移动工作表有两种,分别是移动到指定工作表前和移动到指定工作表后。
(1) 移动到指定工作表之前
移动到指定工作表之前的具体代码如下:
Sub 移动到工作表之前()
Sheets(Sheet3).Move before:=Sheets(Sheet1)
End Sub
运行上述程序可以将工作表Sheet3移动到工作表Sheet1之前。这里的Move是工作表对象的方法,即移动工作表的方法,before是设置在指定工作表之前。
(2)移动到指定工作表之后
移动到指定工作表之后的具体代码如下:
Sub 移动到工作表之后()
Sheets(Sheet3).Move after:=Sheets(Sheet1)
End Sub
运行上述代码可以将工作表Sheet3移动到工作表Sheet1之后,其中的after表示移动到指定工作表之后。
工作表的保护
保护单个或所有工作表
对工作表解除保护
工作表的实际应用
禁止查看指定工作表
指定区域密码保护
禁止更改工作表的名称
限制工作表的滚动区域
禁止查看指定工作表
步骤1:在VBA代码窗口中输入禁止查看“金额明细表”工作表的程序代码,如图4-25所示。运行上述程序后,返回工作表中。
Private Sub Worksheet_Activate()
If ActiveSheet.Name Like 金额明细表 Then
Sheets(科目明细表).Select
End If
End Sub
步骤2:先选择除工作表“金额明细表”之外的任意一个工作表,当再次选中工作表“金额明细表”时,即可驱动事件程序的运行,即无法选中该工作表。
指定区域密码保护
在日常使用中,有时需要将某个工作表中的某个区域进行保护。例如在工作表保护的前提下,当选取B列单元格时可弹出要求输入保护密码。如果输入正确的密码则可解除B列的锁定,即B列可编辑;否则B列列法编辑。而且当再次选取该工作表后,单元格将被重新锁定。在VBA代码窗口中输入如下程序代码,如图4-26所示。
禁止更改工作表的名称
步骤1:在VBA代码窗口中输入如下程序代码,如图4-28所示。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.Name 工资明细表 Then
Me.Name = 工资明细表
MsgBox 您好,该工作表禁止更改工作表名称!, vbExclamation
End If
End Sub
步骤2:程序输入完毕后,返回工作表,双击“工资明细表”工作表的工作表标签,对工作表进行重命名操作后,当单击工作表中的任意单元格时,工作表名称会自动恢复为原来的名称,此时还会弹出禁止更改工作表名称的提示信息,如图4-29所示。
限制工作表的滚动区域
在【属性】窗口中设置
步骤1:在工作簿中先确定允许滚动的区域,这里将工作表Sheet1中的“C5:H14”单元格区域设置为允许滚动的区域,如图4-30所示。
步骤2:按Alt+Fll组合键,打开VBA代码窗口,在【工程资源管理器】窗口中选择“Sheet1”选项,在其【属性】窗口中选择【按字母序】选项卡,在“ScrollArea”文本框中输入“$C$5:$H$14”,如图4-31所示。
步骤3:返回工作表,此时即可将“C5:H14”单元
您可能关注的文档
- 模电清华--负反馈放大电路方框图及放大倍数估算.ppt
- 模电全套课件9.ppt
- 模电模拟试卷及答案.doc
- 模电1.1~1.2.ppt
- 模电复习要点.doc
- 模板系统设计计算.ppt
- 模电课件ch5_FET_Circuits.ppt
- 模电实验五实验报告.doc
- 模电课设-金属探测器.doc
- 模电课件第六章2反馈.ppt
- 2024-2025学年安徽省亳州市涡阳县高二下学期2月开学考试政治试题(解析版).docx
- 2024-2025学年江西省赣州市上犹县高二下学期开学考试政治试题(解析版).docx
- 2024-2025学年山东省济宁市高二下学期开学考试政治试题(解析版).docx
- 2024-2025学年山西省卓越联盟高三下学期2月开学质量检测政治试题(解析版).docx
- 2024-2025学年新疆乌鲁木齐市高二下学期2月开学考试政治试题(解析版).docx
- 2024-2025学年新疆维吾尔自治区乌鲁木齐地区高三2月大联考文科综合政治试题(解析版).docx
- 2024-2025学年安徽省蚌埠市固镇县高一上学期1月期末考试政治试题 (解析版).docx
- 2024-2025学年江苏省扬州市高三上学期期末检测政治试卷(解析版).docx
- 2024-2025学年江西省吉安市高三上学期期末教学质量检测政治试题(解析版).docx
- 2024-2025学年山东省济宁市高二上学期1月期末考试政治试题(解析版).docx
最近下载
- 最新部编版道德与法治五年级下册全册一课一练及答案.pdf
- 第4课 画外之意——中国传统人物画 课件-2023-2024学年高中美术人教版(2019)美术鉴赏.pptx VIP
- 《中国老年骨质疏松症诊疗指南(2024)》解读.pptx VIP
- 大学英语六级词汇带音标.pdf VIP
- 美国儿科学会育儿百科-家庭教育.doc VIP
- SL 754-2017 城市防洪应急预案编制导则{高清的版}.pdf-2020-09-15-16-48-02-128.docx
- “节水”小知识竞答试题及答案.doc
- 玻璃及玻璃升降器布置.pdf VIP
- 高星级饭店运营与管理专业人才培养方案.pdf VIP
- 湖北省黄冈市黄梅县晋梅中学九年级(下)竞赛化学试卷(3月份).doc VIP
文档评论(0)