Excel VBA 编程的常用代码

admin管理员组

文章数量:1794759

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

本文标签： 常用代码ExcelVBA