第一步：点击录制宏

第二步：填写宏的方法名

第三步：进行一系列的操作之后，关闭宏

第四步：根据自己的需要查看，修改宏

第六步：保存，一般是另存为，后缀名为.xlsm，否则宏语言不能保存。

到此为止恭喜你一个简单的宏已经制作成功，当然宏也可以调用Excel中的公式，例如：sum等，排序，布局，查询，等。

Excel中常用对象的简单介绍：

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

对象名

含义

Application

代表整个 Excel 应用程序。

Window

代表窗口

Worksheet

代表一个工作表

Sheets

指定的或活动工作簿中所有工作表的集合

ShapeRange

代表形状区域，它是文档中的一组形状

PivotTable

代表工作表上的数据透视表

Workbook

代表一个 Excel 工作簿

Shape

代表绘图层中的对象，例如自选图形、任意多边形、OLE 对象或图片

Range

代表某一单元格、某一行、某一列、某一选定区域，或者某一三维区域

Name

代表单元格区域的定义名。名称可以是内置名称（如Print_Area）或自定义名称

Chart

代表工作簿中的图表

FileDialog

提供文件对话框，其功能与 Office 应用程序中标准的“打开”和“保存”对话框类似

CommandBarPopup

代表命令栏上的一个弹出式控件

CommandBar

代表容器应用程序中的一个命令栏

workSheet工作薄的方法

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

名称

说明

Add

新建工作表、图表或宏表。新建的工作表将成为活动工作表

Copy

将工作表复制到工作簿的另一位置

Delete

删除对象

FillAcrossSheets

将单元格区域复制到集合中所有其他工作表的同一位置

Move

将工作表移到工作簿中的其他位置

PrintOut

打印对象

PrintPreview

按对象打印后的外观效果显示对象的预览

Select

选择对象

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

算术运算符

运算符

功能

^

求一个数字的某次方，如 A^B

*

乘法运算

/

除法运算

\

对两个数作除法并返回一个整数

Mod

求两数的余数

+

加法运算

-

减法运算

比较运算符

符号

功能

<

小于

<=

小于或等于

>

大于

>=

大于或等于

=

等于

<>

不等于

逻辑运算符

符号

功能

And

用来对两个表达式进行逻辑连接

Eqv

用来对两个表达式进行逻辑等价运算

Imp

用来对两个表达式进行逻辑蕴涵运算

Not

用来对表达式进行逻辑否定运算

Or

用来对两个表达式进行逻辑析取运算

Xor

用来对两个表达式进行逻辑互斥或运算

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

字符串处理函数

作用

关键字

Option Compare

设置字符串比较规则

StrComp

比较两个字符串（字符相似判断）

StrConv

字符串类型转换

Lcase、Ucase

大小写变换

Spase、String

重复字符串

Len

计算字符串长度

Format

设置字符格式

LSet、Rset

重排字符串

InStr、Left、Ltrim、Mid、Right、Rtrim、Trim

处理字符串

Split、Join

拆分与联接字符串

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

VBA的数据类型

数据类型

存储空间大小

范围

Byte

1 个字节

0 到 255

Boolean

2 个字节

True 或 False

Integer

2 个字节

-32,768 到 32,767

Long(长整型)

4 个字节

-2,147,483,648 到 2,147,483,647

Single(单精度浮点型)

4 个字节

负数时从 -3.402823E38 到 -1.401298E-45；正数时从 1.401298E-45 到 3.402823E38

Double(双精度浮点型)

8 个字节

负数时从 -1.79769313486231E308 到

Currency(变比整型)

8 个字节

从 -922,337,203,685,477.5808 到
922,337,203,685,477.5807

Decimal

14 个字节

没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335，而小数点右边有 28 位数时为
+/-7.9228162514264337593543950335；最小的非零值为 +/-0.0000000000000000000000000001

Date

8 个字节

100 年1月1日到9999年12月31日

Object

4 个字节

任何 Object 引用

String(变长)

10 字节加字符串长度

0 到大约 20 亿

String(定长)

字符串长度

1 到大约 65,400

Variant(数字)

16 个字节

任何数字值，最大可达 Double 的范围

Variant(字符)

22 个字节加字符串长度

与变长 String 有相同的范围

用户自定义

所有元素所需数目

每个元素的范围与它本身的数据类型的范围相同。

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

数据类型的转换

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

函数

返回类型

expression
参数范围

CBool

Boolean

任何有效的字符串或数值表达式

CByte

Byte

0
至 255

CCur

Currency

-922,337,203,685,477.5808
至922,337,203,685,477.5807

CDate

Date

任何有效的日期表达式

CDbl

Double

负数从 -1.79769313486231E308 至
-4.94065645841247E-324；正数从 4.94065645841247E-324 至
1.79769313486232E308

CDec

Decimal

零变比数值，即无小数位数值，为+/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值，范围则为+/-7.9228162514264337593543950335；最小的可能非零值是
0.0000000000000000000000000001。

CInt

Integer

-32,768
至 32,767，小数部分四舍五入

CLng

Long

-2,147,483,648
至 2,147,483,647，小数部分四舍五入

CSng

Single

负数为 -3.402823E38 至 -1.401298E-45；正数为 1.401298E-45 至 3.402823E38

CStr

String

依据 expression 参数返回 Cstr

CVar

Variant

若为数值，则范围与 Double 相同；若不为数值，则范围与 String 相同

方法参数介绍

800x600

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

部分

功能详解

Optional

可选的。表示参数不是必需的关键字。如果使用了该选项，则 arglist 中的后续参数都必须是可选的，而且必须都使用 Optional 关键字声明。如果使用了 ParamArray，则任何参数都不能使用 Optional

ByVal

可选的。表示该参数按值传递

ByRef

可选的。表示该参数按地址传递。ByRef 是 Visual Basic 的缺省选项

ParamArray

可选的。只用于 arglist 的最后一个参数，指明最后这个参数是一个 Variant 元素的 Optional 数组。使用 ParamArray 关键字可以提供任意数目的参数。ParamArray 关键字不能与 ByVal，ByRef，或 Optional 一起使用

varname

必需的。代表参数的变量的名称；遵循标准的变量命名约定

type

可选的。传递给该过程的参数的数据类型，如果没有选择参数 Optional，则可以指定用户定义类型，或对象类型

defaultvalue

可选的。任何常数或常数表达式。只对 Optional 参数合法。如果类型为 Object，则显式的缺省值只能是 Nothing

简单宏例子：

Sub 宏1()

'

' 宏1 宏

'

'

    Sheets("Sheet2").Select

    ActiveWindow.SmallScroll Down:=-

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "第一步：点击录制宏"

    Range("A43").Select

    ActiveCell.FormulaR1C1 = "第二步：填写宏的方法名"

    Range("C45").Select

    ActiveSheet.Paste

    ActiveWindow.SmallScroll Down:=

    Sheets("Sheet1").Select

    ActiveWindow.SmallScroll Down:=-

    Range("C3").Select

End Sub

Sub 宏2()

'

' 宏2 宏

'

    Range("B14").Select

    ActiveCell.FormulaR1C1 = "=SUM(R[-13]C:R[-1]C)"

End Sub

到此为止VBA的介绍已经完成，VBA中的语法与VB的语法基本上一样，也许会有版本不懂略有差别。

800x600

Excel有数百个对象，表4-1是常见对象名称其及含义

Normal
0

7.8 磅
0
2

false
false
false

EN-US
ZH-CN
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman","serif";}

Excel中的宏--VBA的简单例子的更多相关文章

  1. （转）Java中使用正则表达式的一个简单例子及常用正则分享

    转自:http://www.jb51.net/article/67724.htm 这篇文章主要介绍了Java中使用正则表达式的一个简单例子及常用正则分享,本文用一个验证Email的例子讲解JAVA中如 ...

  2. Eclipse中Tomcat的配置及简单例子

    Eclipse中Tomcat的配置及简单例子 Eclipse中Tomcat的配置是很简单的一个工作 一. 工具下载 Eclipse,最新版的eclipse为Mars版本.下载地址为: http://w ...

  3. 如何在Excel中启用宏？

    OFFICE2003版本中启用宏的方法: 1.首先打开EXCEL应用程序. 2.点击上方的"工具"--"宏"--"安全性" 3.在" ...

  4. 使用vbs调用excel中的宏

    使用vbs打开excel文件,并且传递参数调用excel中的macro,自动化完成excel文件的制作. Set oExcel = createobject("Excel.Applicati ...

  5. 在excel中如何利用vba通过网址读取网页title（网址是https的）？

    昨天在百度知道上提了这个问题,我保存了些百度知道我回答的网址,想利用excel直接读取出网址的title,请问vba代码怎么写?(要支持https的) excel大神帮我回答了,在这记录下: Func ...

  6. Excel—在Excel中利用宏定义实现MD5对字符串（如：手机号）或者文件加密

    下载宏文件[md5宏] 加载宏 试验md5加密 可能遇到的问题 解决办法 下载宏文件[md5宏] 下载附件,解压,得md5宏.xla md5宏.zip 加载宏 依次打开[文件]-[选项]-[自定义功能 ...

  7. Spring 中的国际化Message的简单例子（ApplicationContext） 不跟框架集成的版本

    首先,建立一个描述message的XML文件,名为messages.xml     <?xml version="1.0" encoding="UTF-8" ...

  8. 使用Sharepoint定时运行Excel中宏程序

    需求:因为Excel中数据量很大,其中包含了几个宏程序从其他数据源读取数据,运行一次宏需要比较长的时间,为了不影响使用,要求每天半夜运行一次Excel中的宏(无参数),Excel存放在共盘上. 解决方 ...

  9. VBA在Excel中的应用（一)：改变符合条件单元格的背景颜色

    在使用excel处理数据的时候,为了能更清晰的标示出满足特定条件的单元格,对单元格添加背景色是不错的选择.手工处理的方式简单快捷,但是当遇到大批量数据,就会特别的费时费力,而且不讨好(容易出错).通过 ...

随机推荐

  1. ios 加载本地html css文件 ps:css和html必须在同一文件夹下面

    NSString *path = [[NSBundle mainBundle] bundlePath]; NSURL *baseURL = [NSURL fileURLWithPath:path]; ...

  2. [Java] Serializable(序列化)的理解

    1.序列化是干什么的?       简单说就是为了保存在内存中的各种对象的状态(也就是实例变量,不是方法),并且可以把保存的对象状态再读出来.虽然你可以用你自己的各种各样的方法来保存object st ...

  3. Android进阶笔记18：选用合适的IPC方式

    1. 相信大家都知道Android进程间通信方式很多,比如AIDL.Messenger等等,接下来我就总结一下这些IPC方式优缺点. 2. IPC方式的优缺点和适用场景 3. 附加:使用Intent实 ...

  4. Java学习笔记——switch语句的参数类型

    在JDK1.6的版本中,switch后面的括号里面只能放int类型的值,注意是只能放int类型, 但是放byte,short,char类型的也可以. 是因为byte,short,shar可以自动提升( ...

  5. Hessian矩阵

    http://baike.baidu.com/link?url=o1ts6Eirjn5mHQCZUHGykiI8tDIdtHHOe6IDXagtcvF9ncOfdDOzT8tmFj41_DEsiUCr ...

  6. ubuntu server 系统，更换阿里云源（用户更新源）

    Ubuntu安装完毕后,默认使用的是官方的源,在国内访问速度很慢,这里介绍更换为阿里云的源方法. 步骤如下: 1.备份源配置文件 sudo cp /etc/apt/sources.list /etc/ ...

  7. CentOS对新加入的硬盘格式化

    [root@rac1 ~]# fdisk /dev/sdbDevice contains neither a valid DOS partition table, nor Sun, SGI or OS ...

  8. 转VS快捷键

    “文本操作”快捷键 命令名 快捷键 说明 编辑.折叠到定义 Ctrl + M,Ctrl + O 自动确定在代码中创建区域的逻辑边界(如过程),然后隐藏它们. 编辑.注释选定内容 Ctrl + K,Ct ...

  9. MVC中的 程序集添加-----程序包管理器控制台

    Install-Package Microsoft.AspNet.WebApi.Owin -Version Install-Package Microsoft.Owin.Host.SystemWeb ...

  10. 获取屏幕中某个点的RGB值与CAD屏幕像素值

    '获取CAD屏幕像素的比值 Function ViewScreen() As Double Dim ScreenSize As Variant ScreenSize = ThisDrawing.Get ...