Excel VBA 编程的常用代码
强 制声明 变 量
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 Excel VBA 编程的常用代码
选择 当前 单 元格所在区域
在 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