excel表格_excel函数公式大全_execl从入门到精通
EXCEL工作簿中工作表的添加及删除2024-04-11 23:49:08
大家好,我很早以前开始学习利用VBA,至今已有20多年了。开发过大小不同的VBA程序程序已经数不清了。我的平台,以传递我多年实际经验为宗旨,授人以渔,交给大家真正的VBA知识。如果大家对VBA感兴趣,认为VBA可以给自己的实际工作带来切实的帮助,最好系统学习我的教程,成为我的学员,汲取我的经验。由于本人年龄大了,而且学员众多,目前只能做到满足对学员答疑,辅导,对非学员朋友只能看我自己的时间是否允许,还望非学员朋友见谅。
今日推出常用“积木”过程案例分享第321期,内容是:EXCEL工作簿中工作表的添加及删除。VBA是利用Office实现个人小型办公自动化的有效手段(工具)。这是我的对VBA的定义,我推出的专辑就是我多年实际利用VBA的经验记录,都来源于我多年的实践经验。目前我已经将所有代码修正为适合64位和32位两种系统,大家要把这些代码块作为一块块的积木对待,平时要多积累,建立自己的“积木库”,用时拿来可以修正、组合。这就是我的“积木编程”的思想。这些讲解就是我推出的“积木”方案,希望大家加以利用。最近代码多是出自我的第一套教程”VBA代码解决方案”。这些是非常实用的问题解决方案。======================= ① ========================
Sub mynz_20()
Dim sh As Worksheet
For Each Sh In Worksheets
If Sh.Name = "MY" Then
MsgBox "工作簿中已有""MY""工作表,将删除原存在的工作表"
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
EXIT FOR
End If
Next
With Worksheets
Set sh = .Add(after:=Worksheets(.Count))
sh.Name = "MY"
End With
End Sub②=========================②========================②
代码解读:
a) For Each…. Next…. 将遍历工作表,检查原工作表中是否含有“MY”的工作表。
b) MsgBox "工作簿中已有""MY""工作表,将删除原存在的工作表" 如果有“MY”的工作表,首先要弹出一个对话框,告知有这个工作表,讲删除。
c) Application.DisplayAlerts = False 将关闭弹出的警告对话框。
d) Application.DisplayAlerts = True 将打开弹出的警告对话框。
e) sh.Delete 删除原有的工作表。
f) Set sh = .Add(after:=Worksheets(.Count))
sh.Name = "MY"
添加一个新的工作表,工作表的名称为"MY"
各套教程的介绍:
第1套:VBA代码解决方案
第2套:VBA数据库解决方案
第3套:VBA数组与字典解决方案
第4套:VBA代码解决方案之视频
第5套:VBA中类的解读和利用
第6套:VBA信息获取与处理
上述教程的学习顺序:1→3→2→6→5或者4→3→2→6→5。如需要,可以WeCh: VBA6337或者NZ9668
分享成果,随喜正能量
标签: 如何在Excel中删除工作簿