教程 | 这些Excel vba源码，值得收藏（三）

写在前面

很多时候，编程不是非要写出别出心裁的新东西，更多地是组合与堆砌，就像搭积木一样，那些ExcelVBA的常用写法就像白眉大侠腰间的百宝囊一样，随时随地可以掏出来解决问题，前提是百宝囊里得有货！

下面这些可以收藏进你的百宝囊，希望你能够借此百发百中。

关闭所有工作簿

以下会逐个检查所有工作簿并关闭它们，并在关闭之前进行保存并且提示。

Sub 关闭所有() Dim wbs As Workbook For Each wbs In Workbooks wbs.Close SaveChanges:=True Next wbEnd Sub

添加到邮件附件

打开邮件默认客户端，并将当前文档作为附件添加到邮件中。

Sub 添加附件()  Application.Dialogs(xlDialogSendMail).ShowEnd Sub

文件备份

当前文件的同一目录中保存当前工作簿的备份文件，并添加当前日期到文件名。

Sub 备份文件() ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _ '' & Format(Date, 'mm-dd-yy') & ' ' & _ ThisWorkbook.nameEnd Sub

取消隐藏行列

一次性将所有行列取消隐藏。

Sub 取消隐藏()  Columns.EntireColumn.Hidden = False  Rows.EntireRow.Hidden = FalseEnd Sub

突出显示行列

以下代码可以突出显示活动行和列。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strRange As String strRange = Target.Cells.Address & ',' & _ Target.Cells.EntireColumn.Address & ',' & _ Target.Cells.EntireRow.Address Range(strRange).SelectEnd Sub

THE

END

创作不易，

您的支持是我坚持的动力，

劳烦动动手指转发、在看