EcelVBA编程的常用代码.docxVIP

Excel VBA编程的常用代码 用过VB的人都应该知道如何声明变量，在 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、Stri ng （只限变长字符串）、 Stri ng * len gth （定长字符串）、 Object、Varia nt、用户 定义类型或对象类型。 强制声明变量 Opti on Explicit 说明：该语句必在任何过程之前出现在模块中。 声明常数 用来代替文字值。 Const 常数的默认状态是 Private。 Const My = 456 声明Public常数。 Public Const MyStri ng = HELP 声明 Private Integer 常数。 Private Const Mylnt As Integer = 5 在同一行里声明多个常数。 Const MyStr = Hello, MyDouble As Double = 3.4567 选择当前单元格所在区域 执行该段代码,在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中, 执行该段代码, 你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value) end sub 单元格位移 sub my_offset ActiveCell.Offset(0, 1).Select当前单元格向左移动一格 ActiveCell.Offset(0, -1).Select当前单元格向右移动一格 ActiveCell.0ffset(1 , O).Select当前单元格向下移动一格 ActiveCell.0ffset(-1 , 0).Select当前单元格向上移动一格 end sub 如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往 sub my_offset 之下加一段代码 on error resume n ext 注意以下代码都不再添加 sub代码名称”和end sub请自己添加！ 给当前单元格赋值 ActiveCell.Value = 你好！ ！！ ” 给指定单元格赋值 例如：A1单元格内容设为 HELLO Ra nge(a1).value=hello 又如：你现在的工作簿在 sheet1上，你要往sheet2的A1单元格中插入HELLO 1. sheets(sheet2).select ran ge(a1).value=hello 或 2. Sheets(sheet1).Ra nge(a1).Value = hello 说明： 1.sheet2被选中，然后在将 “ HELLO赋到A1单元格中。 2.sheet2 2.sheet2不必被选中，即可 “ HELLO赋到sheet2 的A1单元格中。 隐藏工作表 隐藏SHEET1这张工作表 sheets(sheet1).Visible=False 显示SHEET1这张工作表 sheets(sheet1).Visible=True 打印预览 有时候我们想把所有的 EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿 中循环，直到最后一个工作簿结束循环预览。 Dim my As Worksheet For Each my In Worksheets my.Pri ntPreview Next my 得到当前单元格的地址 msgbox ActiveCell.Address 得到当前日期及时间 msgbox date chr(13) time 保护工作簿 ActiveSheet .P rotect 取消保护工作簿 ActiveSheet.U nprotect 给活动工作表改名为 li u ActiveSheet.Name = li u 打开一个应用程序 AppActivate (Shell(C:/WINDOWS/CALC.EXE)) 增加一个工作表 Worksheets.Add 删除活动工作表 activesheet.delete 打开一个工作簿文件 Workbooks.Open FileName:=C:/My Docume nts/Book2.xls 关闭活动窗口 Acti