ExcelVBA编程常用代码.pdf

Excel VBA 编程常用代码 Excel VBA 编程是 Excel 中的编程语言，用于自动化 Excel 操作和开发应用程序。下面是 Excel VBA 编程中的一些常用代码： 变量声明 在 VBA 中声明变量和 VB 中是完全一样的！使用 `Dim` 语句可以声明变量，例如： * `Dim a As Integer` 声明 `a` 为整型变量 * `Dim a` 声明 `a` 为变体变量 * `Dim a As String` 声明 `a` 为字符串变量 * `Dim a As Currency, b As Currency, c As Currency` 声明 `a`, `b`, `c` 为货币变量 变量可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant 或用户定义类型或对象类型。 强制声明变量 使用 `Option Explicit` 语句可以强制声明变量，该语句必须在任何过程之前出现模块中。 常数声明 使用 `Const` 语句可以声明常数，例如： * `Const My = 456` 声明公共常数 * `Public Const MyString = "HELP"` 声明公共字符串常数 * `Private Const MyInt As Integer = 5` 声明私有整型常数 选择当前单元格所在区域 在 Excel97 中，有一个十分好的功能，就是把鼠标放置在一个有效数据单元格中，执行该段代码，就可以将连在一起的一片数据全部选中。 ```vba Sub My_Select Selection.CurrentRegion.Select End Sub ``` 返回当前单元格中数据删除前后空格后的值 ```vba Sub my_trim MsgBox Trim(ActiveCell.Value) End Sub ``` 单元格位移 使用 `Offset` 方法可以移动当前单元格，例如： ```vba Sub my_offset ActiveCell.Offset(0, 1).Select ' 当前单元格向左移动一格 ActiveCell.Offset(0, -1).Select ' 当前单元格向右移动一格 ActiveCell.Offset(1, 0).Select ' 当前单元格向下移动一格 ActiveCell.Offset(-1, 0).Select ' 当前单元格向上移动一格 End Sub ``` 给当前单元格赋值 ```vba ActiveCell.Value = "你好！！！" ``` 给指定单元格赋值 例如： ```vba Range("a1").Value = "hello" ``` 或 ```vba Sheets("sheet2").Select Range("a1").Value = "hello" ``` 隐藏工作表 ```vba Sheets("sheet1").Visible = False ' 隐藏 SHEET1 这张工作表 Sheets("sheet1").Visible = True ' 显示 SHEET1 这张工作表 ``` 打印预览 ```vba Dim my As Worksheet For Each my In Worksheets my.PrintPreview Next my ``` 得到当前单元格的地址 ```vba MsgBox ActiveCell.Address ``` 得到当前日期及时间 ```vba MsgBox Date & Chr(13) & Time ``` 保护工作簿 ```vba ActiveSheet.Protect ``` 取消保护工作簿 ```vba ActiveSheet.Unprotect ``` 给活动工作表改名 ```vba ActiveSheet.Name = "liu" ``` 打开一个应用程序 ```vba AppActivate (Shell("C:\WINDOWS\CA")) ``` 这些代码都是 Excel VBA 编程中常用的代码，可以帮助开发者快速开发 Excel 应用程序。