《VBA编程中的常用代码》由会员分享，可在线阅读，更多相关《VBA编程中的常用代码（9页珍藏版）》请在金锄头文库上搜索。
1、Excel 与 VBA编程中的常用代码用过 VB 的人都应该知道如何声明变量，在VBA中声明变量和 VB 中是完全一样的！使用 Dim 语句Dim a as integer 声明 A 为整形变量Dim a 声明 A 为变体变量Dim a as string 声明 A 为字符串变量Dim a,b,c as currency 声明 A,b,c 为货币变量.声明变量可以是： Byte 、Boolean 、Integer、Long、Currency 、Single 、Double 、Decimal （当前不支持）、 Date 、String （只限变长字符串）、String * length（定长字符
2、串）、 Object、Variant 、用户定义类型或对象类型。强制声明变量Option Explicit说明：该语句必在任何过程之前出现在模块中。-声明常数，用来代替文字值。Const 常数的默认状态是 Private 。Const My = 456声明 Public常数。Public Const MyString = HELP声明 Private Integer常数。Private Const MyInt As Integer = 5在同一行里声明多个常数。Const MyStr = Hello, MyDouble As Double = 3.4567-在 EXCEL97中，有一个十分好的
3、功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。Sub My_SelectEnd sub-删除当前单元格中数据的前后空格。sub my_trimTrim(ActiveCell.Value)end sub-使单元格位移sub my_offsetActiveCell.Offset(0, 1).Select当前单元格向左移动一格ActiveCell.Offset(0, -1).Select当前单元格向右移动一格ActiveCell.Offset(1 , 0).Select当前单元格向下移动一格ActiveCell.Of
4、fset(-1 , 0).Select当前单元格向上移动一格end sub如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往sub my_offset之下加一段代码on error resume next-注意以下代码都不再添加sub“代码名称”和end sub请自己添加!给当前单元格赋值：ActiveCell.Value = 你好！给特定单元格加入一段代码例如：在单元格中插入: Range(a1).value=hello又如：你现在的工作簿在sheet1上，你要往sheet2的单元格中插入 1.sheets(sheet2).selectrange(a1).value=h
5、ello或2.Sheets(sheet1).Range(a1).Value = hello说明：1.sheet2被打开，然后在将“ HELLO放入到 A1 单元格中。2.sheet2不被打开，将“ HELLO放入到A1 单元格中。-隐藏工作表 隐藏 SHEET1这张工作表 sheets(sheet1).Visible=False 显示 SHEET1这张工作表 sheets(sheet1).Visible=True-有时候我们想把所有的EXCEL中的 SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。Dim my As WorksheetFor E
6、ach my In Worksheetsmy.PrintPreviewNext my-得到当前单元格的地址msgbox ActiveCell.Address-得到当前日期及时间msgbox date & chr(13) & time-保护工作簿ActiveSheet.Protect取消保护工作簿ActiveSheet.Unprotect-给当前工作簿改名为liuActiveSheet.Name = liu-打开一个应用程序AppActivate (Shell(C:WINDOWSCALC.EXE)-增加一个工作簿Worksheets.Add删除当前工作簿activesheet.delete-打开
7、一个文件Workbooks.Open FileName:=C:My DocumentsBook2.xls关闭当前工作簿ActiveWindow.Close-当前单元格定为：左对齐Selection.HorizontalAlignment = xlLeft当前单元格定为：中心对齐Selection.HorizontalAlignment = xlCenter当前单元格定为：右对齐Selection.HorizontalAlignment = xlRight-当前单元格为百分号风格Selection.Style = Percent-当前单元格字体为粗体当前单元格字体为斜体当前单元格字体为宋体20 号字With Selection.Font.Name = 宋体 .Size = 20End With-With语句With对象. 描述End With-让你的机器发出响声BEEP-清除单元格中所有文字、批注、格式、所有的东西！ActiveCell.Clear-测试选择状态的单元格的行数测试选择状态的单元格的列数-测试选择状态的单元格的地址Selection.Address-让所
