Excel中的宏--VBA的简单例子

第一步:点击录制宏express

第二步:填写宏的方法名数组

第三步:进行一系列的操做以后,关闭宏app

第四步:根据本身的须要查看,修改宏ide

第六步:保存,通常是另存为,后缀名为.xlsm,不然宏语言不能保存。函数

到此为止恭喜你一个简单的宏已经制做成功,固然宏也能够调用Excel中的公式,例如:sum等,排序,布局,查询,等。布局

Excel中经常使用对象的简单介绍:spa

对象名3d

含义code

Applicationorm

表明整个 Excel 应用程序。

Window

表明窗口

Worksheet

表明一个工做表

Sheets

指定的或活动工做簿中全部工做表的集合

ShapeRange

表明形状区域,它是文档中的一组形状

PivotTable

表明工做表上的数据透视表

Workbook

表明一个 Excel 工做簿

Shape

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


Range

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

Name

表明单元格区域的定义名。名称能够是内置名称(如Print_Area)或自定义名称

Chart

表明工做簿中的图表

FileDialog

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

CommandBarPopup

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

CommandBar

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

workSheet工做薄的方法

名称

说明

Add

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

Copy

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

Delete

删除对象

FillAcrossSheets

将单元格区域复制到集合中全部其余工做表的同一位置

Move

将工做表移到工做簿中的其余位置

PrintOut

打印对象

PrintPreview

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

Select

选择对象

 

 

 

 

 

 

 

 

 

 

 

 

算术运算符

 

运算符

功能

 ^

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

*

乘法运算

/

除法运算

\

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

Mod

求两数的余数

+

加法运算

-

减法运算

 

 

 

 

 

 

 

 

 

 

比较运算符

 

 

符号

功能

小于

<=

小于或等于

大于

>=

大于或等于

=

等于

<> 

不等于

 

 逻辑运算符

 

 

符号

功能

And

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

Eqv

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

Imp

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

Not

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

Or

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

Xor

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

 

 

字符串处理函数

 

做用

关键字

Option Compare

设置字符串比较规则

StrComp

比较两个字符串(字符类似判断)

StrConv

字符串类型转换

LcaseUcase

大小写变换

SpaseString

重复字符串

Len

计算字符串长度

Format

设置字符格式

LSetRset

重排字符串

InStrLeftLtrimMidRightRtrimTrim

处理字符串

SplitJoin

拆分与联接字符串

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 11日到99991231

Object

4 个字节

任何 Object 引用

String(变长)

10 字节加字符串长度

0 到大约 20 亿

String(定长)

字符串长度

1 到大约 65,400

Variant(数字)

16 个字节

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

Variant(字符)

22 个字节加字符串长度

与变长 String 有相同的范围

用户自定义

全部元素所需数目

每一个元素的范围与它自己的数据类型的范围相同。

数据类型的转换

函数

返回类型

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 相同

方法参数介绍

部分

功能详解

Optional

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

ByVal

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

ByRef

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

ParamArray

可选的。只用于 arglist 的最后一个参数,指明最后这个参数是一个 Variant 元素的 Optional 数组。使用 ParamArray 关键字能够提供任意数目的参数。ParamArray 关键字不能与 ByValByRef,或 Optional 一块儿使用

varname

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

type

可选的。传递给该过程的参数的数据类型,若是没有选择参数 Optional,则能够指定用户定义类型,或对象类型

defaultvalue

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

简单宏例子:

Sub 宏1()
'
' 宏1 宏
'

'
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "第一步:点击录制宏"
    Range("A43").Select
    ActiveCell.FormulaR1C1 = "第二步:填写宏的方法名"
    Range("C45").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=-9
    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的语法基本上同样,也许会有版本不懂略有差异。

 

 

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

相关文章
相关标签/搜索