ExcelVBA语句集[归类].pdf

Excel VBA（Visual Basic for Applications）是Excel内置的一种编程语言，允许用户自定义工作簿、工作表和数据处理的方式。以下是一些关键的VBA语句及其用途： 1. **选项声明**： - `Option Explicit`：强制要求在代码中显式声明所有变量，有助于避免拼写错误和未声明变量的潜在问题。 - `Option Private Module`：隐藏模块，使其只对同一工程中的其他模块可见，不会出现在宏对话框中。 - `Option Compare Text`：在字符串比较时不区分大小写。 - `Option Base 1`：默认数组的第一个索引从1开始，而不是0。 2. **错误处理**： - `On Error Resume Next`：启用错误处理，即使发生错误也会继续执行后续代码，防止程序中断。 - `On Error GoTo ErrorHandler`：发生错误时跳转到指定的错误处理子程序。 - `On Error GoTo 0`：关闭当前错误处理，恢复默认错误处理机制，即当错误发生时停止执行并显示错误消息。 3. **应用程序控制**： - `Application.DisplayAlerts = False`：在程序运行期间关闭警告对话框，避免用户干预。 - `Application.ScreenUpdating = False`：禁用屏幕更新，提高程序运行速度，结束后通常应设置回`True`以恢复显示。 - `Application.EnableCancelKey = xlDisabled`：禁用Ctrl+Break快捷键，防止用户中断宏执行。 4. **工作簿操作**： - `Workbooks.Add()`：创建新的工作簿。 - `Workbooks("book1.xls").Activate`：激活名为"book1.xls"的工作簿。 - `ThisWorkbook.Save`：保存当前工作簿。 - `ThisWorkbook.Close`：关闭当前工作簿。 - `ActiveWorkbook.Sheets.Count`：获取活动工作簿中的工作表数量。 - `ActiveWorkbook.Name`：返回活动工作簿的名称。 - `ThisWorkbook.FullName`：返回当前工作簿的完整路径和名称。 5. **窗口和工作表操作**： - `ActiveWindow.EnableResize = False`：禁止调整活动工作簿的大小。 - `Application.Windows.Arrange xlArrangeStyleTiled`：将工作簿以平铺方式排列。 - `ActiveWorkbook.WindowState = xlMaximized`：最大化当前工作簿窗口。 - `ActiveSheet.UsedRange.Rows.Count`：获取当前工作表中已使用的行数。 - `Rows.Count`：获取工作表的总行数。 - `Sheets(Sheet1).Name = "Sum"`：重命名工作表Sheet1为"Sum"。 - `ThisWorkbook.Sheets.Add Before:=Worksheets(1)`：在第一个工作表前添加新工作表。 - `ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)`：将当前工作表移动到最后。 - `Worksheets(Array("sheet1", "sheet2")).Select`：同时选择工作表1和工作表2。 - `Sheets("sheet1").Delete` 或 `Sheets(1).Delete`：删除工作表1。 - `ActiveWorkbook.Sheets(i).Name`：获取索引为i的工作表名称。 6. **显示设置**： - `ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines`：切换工作表中的网格线显示。 - `ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings`：切换工作表中的行列标题显示。 - `ActiveSheet.UsedRange.FormatConditions.Delete`：删除当前工作表的所有条件格式。 - `Cells.Hyperlinks.Delete`：删除当前工作表的所有超链接。 7. **页面设置**： - `ActiveSheet.PageSetup.Orientation = xlLandscape` 或 `ActiveSheet.PageSetup.Orientation = 2`：将页面设置为横向。 - `ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName`：在页面设置的右页脚中输入文件的完整路径。 这些VBA语句涵盖了Excel自动化中的基本操作，可以帮助开发者高效地定制Excel工作簿，实现自动化数据处理和报告生成等功能。通过熟练掌握这些语句，可以极大地提升工作效率，并降低出错的可能性。