EXCEL-VBA编程常用代码.pdfVIP

Excel VBA编程常用代码 时间:2009-12-05 22:36:04 来源:本站 作者:未知 我要投稿 我 要收藏 投稿指南 用过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、String （只限变长字符串）、String* length （定长字符串）、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中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格 中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码 加入到你的模块中。 Sub My_Select Selection.CurrentRegion.Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value) end sub 单元格位移 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 如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以 往 sub my_offset 之下加一段代码 on error resume next 注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加! 给当前单元格赋值 ActiveCell.Value 你好！！！ 给指定单元格赋值 例如：Ａ１单元格内容设为ＨＥＬＬＯ Range(a1).value hello 又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入ＨＥ ＬＬＯ 1. sheets(sheet2).select range(a1).value hello 或 2. Sheets(sheet1).Range(a1).Value hello 说明： 1.sheet2被选中，然后在将 “HELLO赋到A1单元格中。 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.PrintPreview Next my 得到当前单元格的地址 msgbox ActiveCell.Address 得到当前日期及时间 msgbox date chr(13) time 保护工作簿 ActiveSheet.Protect 取消保护工作簿 ActiveSheet.Unprotect 给活动工作表改名为 liu A