VBA常用技巧代码解析

menghuazhang

DelBlankRow过程删除工作表中已使用的区域的所有空行。
请教版主：

如果是删除sheet1中所有空行（不仅仅是已使用过的区域）如何实现？

zhenghua9256

收藏了。谢谢yuanzhuping版主。

WSH1983

万分感谢
期待楼主的WORD版全教程······

Hoer

原帖由 menghuazhang 于 2009-2-22 12:10 发表
DelBlankRow过程删除工作表中已使用的区域的所有空行。
请教版主：

如果是删除sheet1中所有空行（不仅仅是已使用过的区域）如何实现？

Sub DelBlankRow()
     For i =65536To 1 Step -1
         If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
             Rows(i).Delete
        End If
     Next
j = Sheet1.UsedRange.Rows.Count
Rows(j + 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True

End Sub

上面的代码比较笨，自己试了一下可以删除数据之间的空行，不过所有数据下面又会生成新的空行，只能把它隐藏了~

[ 本帖最后由 Hoer 于 2009-2-22 15:00 编辑 ]

yujiabian

好像看看

九点二十三

吃水不忘挖井人

shanshui281

学习！

非常感谢！

yuanzhuping

技巧44         禁用宏则关闭工作簿
       通常情况下，当应用程序的宏安全性的安全级别设置为“中”时，打开包含Microsoft Excel 4.0版的宏的工作簿，将显示如图1所示的“安全警告”对话框。

       图1
       如果用户选择“禁用宏”按钮，则会显示如图2所示的警告消息框，当用户选择“否”时，不能打开该工作簿；用户选择“是”时，打开该工作簿，但VBA宏被禁止，而Microsoft Excel 4.0版的宏未被禁止。

       图2
       我们可以利用禁用VBA宏不能禁止Microsoft Excel 4.0版的宏这个特点，使用Microsoft Excel 4.0版的宏来实现禁用宏则关闭工作簿的功能。
       步骤1        新建或打开需要添加此项功能的工作簿文件。
       步骤2        按<Ctrl+F11>组合键为工作簿添加一个宏表，添加的宏表名称默认为“Macro1”。
       步骤3        在宏表“Macro1”的A1至A7单元格中输入下面的内容。

1. #001  禁用宏则关闭工作簿
   
2. #002  =ERROR(FALSE)
   
3. #003  =IF(ERROR.TYPE(RUN("TestMacro"))=4)
   
4. #004  =  ALERT("因禁用了宏功能,文件将被关闭!",3)
   
5. #005  =  FILE.CLOSE(FALSE)
   
6. #006  =END.IF()
   
7. #007  =RETURN()

复制代码

完成后的宏表如图3所示。

       图3
代码解析：
       Microsoft Excel 4.0宏函数以等号（=）开始，其他不是由等号开始的内容将被视作注释。通常用作定义的宏名称或者作为宏函数实现功能的注释内容设置为斜体字样以示区别，如图3中单元格A1所示。
       第2行代码关闭错误检查功能。如果关闭错误检查，那么当宏执行遇到错误时，Microsoft Excel 将不予理会而继续执行。
       第3行到第6行代码使用If函数与End.If函数构成条件判断语句。其中，第3行中的语句通过检查宏函数RUN("TestMacro")的返回错误类型是否为4（禁用宏时的返回结果），判断工作簿是否禁用了宏功能。如果第3行的结果为True，则执行下面的语句。
       在第4、5行代码，插入几个空格来表示相关代码之间的层次结构。第4行中的代码显示一个消息框。第5行中的代码关闭当前活动工作簿，设置参数值为Fasle表示关闭时工作簿时不保存对其所作的更改。
第7行代码终止当前代码的执行。Microsoft Excel 4.0宏要求每个宏必须使用RETURN或HALT函数结束。
       步骤4        为每个表添加工作表级别的名称“Auto_Activate”，并将引用都指向宏表“Macro1”的A2单元格。“Auto_Activate”是一个自动宏，表被激活时自动执行。
       添加工作表级别的名称的方法如下：选择一张工作表，假设为表“Sheet1”，单击菜单“插入”→“名称”→“定义名称”。在“定义名称”对话框中添加名称，如图4所示。

       图4
       输入完成后单击“确定”按钮，完成一张工作表的“Auto_Activate”的定义。完成定义后的名称将在“定义名称”对话框中显示，如图5所示。依次为每个表添加“Auto_Activate”名称。

       图5
       此外，使用VBA也可以实现同样的操作，并且使用VBA的好处是能够隐藏名称，以避免名称被删除或修改。代码如下：

1. #001  Sub AddPrivateNames()
   
2. #002      Dim sht As Object
   
3. #003      For Each sht In Sheets
   
4. #004          ThisWorkbook.Names.Add sht.Name & "!Auto_Activate", _
   
5. "=Macro1!$A$2", False
   
6. #005      Next
   
7. #006  End Sub

复制代码

步骤5        运行下面的代码，隐藏宏表工作表：

1. #001  Sub HideMacroSheet()
   
2. #002      ThisWorkbook.Excel4MacroSheets(1).Visible = xlSheetHidden
   
3. #003  End Sub

复制代码

步骤6        保存工作簿。
       当应用程序的宏安全性的安全级设置为“中”时，如果用户打开该工作簿文件并选择“禁用宏”，将显示如图 2所示的警告消息框。当用户选择“是”时，活动工作表上的自动宏“Auto_Activate”将被执行，执行结果显示如图6所示的消息框，当用户选择“确定”按钮后，将强制关闭该工作簿文件。

       图6

[ 本帖最后由 yuanzhuping 于 2009-2-23 07:13 编辑 ]

yuanzhuping

技巧45         关闭工作簿不显示保存对话框
       当用户更改工作簿后，没有进行保存操作而直接关闭工作簿时，将显示如图所示的消息框，提示用户是否保存对工作簿的更改，如果希望不显示该消息框而直接关闭关闭工作簿，可以在关闭时进行相应的设置。

45-1        使用Close方法关闭工作簿
       使用Close方法关闭工作簿的，可以在Close方法中指定相应的参数，如下面的代码所示。

1. #001  Sub wbClose_1()
   
2. #002      ThisWorkbook.Close SaveChanges:=False
   
3. #003  End Sub

复制代码

代码解析：
       wbClose_1过程使用Close方法关闭工作簿，并放弃所有对工作簿的更改。
       应用于Workbook对象的Close方法关闭对象，语法如下：
expression.Close(SaveChanges, Filename, RouteWorkbook)
       其中SaveChanges参数是可选的，如果工作簿没有改变则忽略此参数；如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿，则仍然忽略此参数；如果工作簿发生了改变并且没有在另外的窗口中打开，则此参数将指定是否在工作簿中保存所发生的更改。取值与操作如表格所示：

       如果希望在关闭工作簿时自动保存更改，将SaveChanges参数值设置为True即可。
       还可以在使用Close方法关闭工作簿时设置Workbook对象的Saved属性，如下面的代码所示。

1. #001  Sub wbClose_2()
   
2. #002      ThisWorkbook.Saved = True
   
3. #003      ThisWorkbook.Close
   
4. #004  End Sub

复制代码

代码解析：
       wbClose_2过程使用Close方法关闭工作簿，并放弃所有对工作簿的更改。
       Workbook对象的Saved属性指示工作簿从上次保存至今是否发生过更改，如果工作簿进行了更改，则该属性值为False，否则为True。应用程序在关闭工作簿之前判断该属性的值，如果其值为False，则显示提示是否保存的消息框，询问用户是否保存对工作簿所做的更改。
       第2行代码将该属性的值设置为True，使Excel认为已经保存了对工作簿所作的更改（实际上没有保存更改），从而不再显示提示是否保存的消息框。
       如果需要保存对工作簿所作的更改，那么应该在Close方法之前使用Save方法保存工作簿，代码如下：

1. #001  Sub wbClose_3()
   
2. #002      ThisWorkbook.Save
   
3. #003      ThisWorkbook.Close
   
4. #004  End Sub

复制代码

代码解析：
       wbClose_3过程使用Save方法保存工作簿所做的更改，然后使用Close方法关闭工作簿。
45-2        单击工作簿关闭按钮关闭工作簿
       如果是通过单击工作簿的关闭按钮等操作关闭工作簿的，则使用BeforeClose事件过程来控制，如下面的代码所示。

1. #001  Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. #002       Me.Saved = True
   
3. #003  End Sub

复制代码

代码解析：
       工作簿的Workbook_BeforeClose事件，将工作簿的Saved属性设置为True，不保存更改而直接关闭工作簿，且不显示提示保存的消息框。
       如果希望保存对工作簿的更改，则在Workbook_BeforeClose事件中使用Save方法保存工作簿，如下面的代码所示。

1. #001  Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. #002      Me.Save
   
3. #003  End Sub

复制代码

yuanzhuping

技巧46         禁用工作簿的关闭按钮
       一般情况下，用户可以通过菜单“文件”→“关闭”、工作簿窗口右上角的“关闭窗口”按钮或者任务栏中图标右键菜单中的“关闭”菜单项关闭工作簿。如果希望禁用上述关闭工作簿的功能，而只能通过代码关闭工作簿，则可以在相应的工作簿事件中实现，如下面的代码所示。

1. #001  Dim BClose As Boolean
   
2. #002  Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3. #003      If BClose = False Then
   
4. #004          Cancel = True
   
5. #005          MsgBox "此功能已经被禁止，请使用""关闭""按钮关闭工作簿!", vbExclamation, "提示"
   
6. #006      End If
   
7. #007  End Sub
   
8. #008  Public Sub CloseWorkbook()
   
9. #009      BClose = True
   
10. #010      Me.Close
    
11. #011  End Sub

复制代码

代码解析：
       第1行代码在模块顶部声明变量BClose为Boolean类型，默认初始值为False。
       第2行到第7行代码工作簿的BeforeClose事件过程，通过变量BClose的当前值决定是否能够关闭工作簿，只有当BClose的值为True时，才允许关闭工作簿。如果变量BClose的值为False时将参数Cancel的值设置为True，以禁止关闭操作。
       第8行到第11行代码CloseWorkbook过程，将变量BClose的当前值设置为True后使用Close方法关闭工作簿。关于Close方法请参阅技巧45-1。
       在添加以上代码后，用户只能通过调用CloseWorkbook过程关闭工作簿。如果通过菜单“文件”→“关闭”或者单击工作簿窗口右上角的“关闭窗口”按钮关闭工作簿，将显示如图所示的消息框。