VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验

我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想,积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木,同时讲解了如何搭建。为了让学员拥有更多的积木,我开始着手这部《VBA即用型代码手册(汉英)》的创作这部手册约600页,集合约500多个的案例,案例我用汉语和英语同时发布,一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识,另一方面,大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是: VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

分享成果,随喜正能量】诽谤、挫折、失败、疾病等任何形式的痛苦,其实是非常伟大的老师。依靠它,可以看清很多事情的真相,不再盲目地自我膨胀。​​。

第四章 工作表代码

Worksheet Codes

9 保护公式单元格Protect all the Cells With Formulas

Sub nzLockCellsWithFormulas() ‘保护公式单元格

With ActiveSheet

.Unprotect

.Cells.Locked = False

.Cells.SpecialCells(xlCellTypeFormulas).Locked = True

.Protect AllowDeletingRows:=True

End With

End Sub

VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

若要通过单击使用公式保护单元格,您可以使用此代码。

To protect cell with formula with a single click you can use this code.

  • 本节内容参考程序文件:Chapter04.xlsm

10 删除所有空白工作表Delete all Blank Worksheets

Sub nzDeleteBlankWorksheets() ‘删除所有空白工作表

Dim Ws As Worksheet

‘On Error Resume Next

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each Ws In Application.Worksheets

If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then

Ws.Delete

End If

Next

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

运行此代码,它将检查活动工作簿中的所有工作表,如果工作表为空,则将其删除。

Run this code and it will check all the worksheets in the active workbook and delete if a worksheet is blank.

  • 本节内容参考程序文件:Chapter04.xlsm

VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

VBA即用型代码手册:保护公式单元格和删除所有空白工作表的代码

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/70808.html

(0)

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

联系我们YX

mu99908888

在线咨询: 微信交谈

邮件:itzsgw@126.com

工作时间:时刻准备着!

关注微信