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