VBA程序开发语句集锦.xls

ExcelExcel VBAVBA PROGRAMPROGRAM TECHNOLOGYTECHNOLOGY ITEMITEMCODECODESUBJECTSUBJECTCONTENTSCONTENTS Excel Excel VBA VBA 1Event选择改变事件Private Sub Worksheet SelectionChange ByVal Target As Range End Sub 当重新选择工作表中单元格时 此函数被调用 被激活 执行 其中Target Row为选中单元格的行号 其中Target Column为选中单元格的列号 2Event工作表单元格内容改变事件Private Sub Worksheet Change ByVal Target As Range End Sub 当改变了单元格的内容时 此函数被调用 被激活 执行 其中Target Row为选中单元格的行号 其中Target Column为选中单元格的列号 3Sentence为某个单元格的内容赋值赋予文本内容 Worksheet SheetName Cells 行号 列号 Formula 赋值内容 赋予数值内容 Worksheet SheetName Cells 行号 列号 Value 所赋的数值 4Sentence为某个Excel文件薄内单元赋值 Workbooks Book1 xls Worksheets Sheet1 Cells 1 1 Formula 赋值内容 Workbooks Book1 xls Worksheets Sheet1 Cells 1 1 Value 所赋的数值 5Switch关闭屏幕更新Application ScreenUpdating False 执行以上语句后 将停止屏幕显示更新动作 可以达到提高运算速度 避免屏幕闪动的效果 6Sentence查找数据区域某列的最大行号RowMax Workbooks ExcelBookName Worksheets SheetName Cells 65536 C1 End xlUp Row 其中C1为指定的某列的列号 7Sentence查找数据区域某行的最大列号ColMax Workbooks ExcelBookName Worksheets SheetName Cells R1 255 End xlToLeft Column 其中R1为指定的某行的行号 获取数据区的最大列号获取第3行的最大列号 Worksheets 1 cells 3 255 End xlToLeft Column 8Sentence复制工作表内所有单元格Cells Copy 9Switch关闭预警设置Application DisplayAlerts False Application DisplayAlerts True 当执行文件存盘 在存储目录中有相同名称的文件时 如果执行了以上语句 则不再提出预警 一般在使用完以上语句后 则立即执行括号内的对应语句 避免不可预知的错误发生 10Switch关闭文件时不执行存盘动作Workbooks File Close savechanges False 11Function从一个字符串中截取一个子串Mid string start x 其中string为原字符串 start为开始位置 x为截取子字符串的长度 也可以使用函数 Right text num chars 和 Left text num chars 返回子字符串 12Function计算两个日期之间的天数 月份语法 DATEDIF start date end date unit 数 年数1 Start date 代表一段时期的第一个日期或起始日的日期 日期可以放在引号内作为文本字符串输入 如 2001 1 30 也可以作为序列数 如 36921 如果使用的是 1900 日期系统 则它代表2001年1 30 日 输入 或作为其他公式或函数的结果 如 DATEVALUE 2001 1 30 输入 2 End date 代表一段时期的最后一个日期或结束日的日期 3 Unit 要返回的信息的类型 Y M D MD YM YD YD 表示返回忽略了年份的天数 MD 表示返回忽略了年份和月份的天数 13Switch强制要求对变量进行定义Option Explicit 在模块的开始部分执行以上语句 则所有变量必须先行定义之后才能使用 14Sentence使用程序在单元格内写入公式ActiveSheet Cells 4 11 FormulaR1C1 SUM R 2 C R 65532 C 15Sentence判断语句1 If Then Else If Then Else End If 此形式为多行写法 If condition Then statements Else elsestatements End If 2 Select Case Case Case Else End Case 16Sentence循环语句1 For counter start To end Step step Exit For Next counter 2 For Each element In group Exit For Next 3 Do while until condition Exit Do Loop 4 Do Exit Do Loop while until condition 17Sentenceauto open and auto closeSub auto open Sub End Sub auto close Sub End 当Exel文件打开时或者关闭时执行的模块 18FunctionExcel 定时器Application OnTime Now TimeValue 00 05 00 SaveIt 以上语句的功能为 当执行以上语句5分钟后 执行过程SaveIt 从而起到延时功能 Application OnTime TimeValue 17 00 00 Show my msg 以上语句的功能为 当执行以上语句后 在之后的17点钟调用过程 Show my msg 19Sentence调用Windows打开文件对话框FileName Application GetOpenFilename Excel 文件 xls xls 执行以上语句后 即出现Windows打开文件对话框 选择文件后 变量FileName的内容即为需要打开 文件的路径名和文件名 20Switch显现和隐藏工作表隐藏工作表 Sheets SheetName Visible False 显现工作表 Sheets SheetName Visible True 21Switch删除工作表上的按钮ActiveSheet Shapes CommandButton1 Delete 22Sentence当前工作薄另存ActiveWorkbook SaveAs FileName FilePatch 2 选择菜单 Insert Name Define 93Sentence隐藏和显示窗口元素ActiveWindow DisplayVerticalScrollBar False ActiveWindow DisplayHorizontalScrollBar False ActiveWindow DisplayWorkbookTabs False ActiveWindow DisplayGridlines False ActiveWindow DisplayHeadings False 94Sentence变量定义方法 dim i 相当于 dim i as single dim i 相当于 dim i Double dim i 相当于 dim i as Currence dim i 相当于 dim i as String dim i 相当于 dim i as Integer dim i 相当于 dim i as i Long 95SentenceVBA调用文件打开对话框选择文件 expres