EXCEL VBA笔记

Excel实用知识 2021-11-20

展开全文

不怕学得杂，就怕学得杂之后过段时间什么都忘掉了，还是把笔记贴这里吧

一． EXCEL VBA 基础语法

1．对变量或对象属性赋值使用等号（=），对变量进行赋值使用set或:=，如：

Set myobj=oldobj或myobj:=oldobj

2．基本语句

长语句可以用空格+下划线换行

(1) If then [else]

或If then elseif then elseif then …..else end if

(2) Select case …case …end case，如：

Select case PID

Case “a101”

Price=100

Case “a102”

Price=200

……..

Case else

Price=900;

End case

(3) choose(index,choice1,hoice2….)

用来选择由index指定的后面的一列数据，下标由1开始，如：

gotchoice = Choose(1, '11111', '2222')，返回“11111”

(4) Switch(expr-1,value-1[,expr-2,value-2_[,expr-n,value-n]])

如果expr-1为真，则返回value-1，否则返回expr-2

(5) For counter=start to end [Step step] ' step缺省值为1

[statements]

[Exit For] '在这里在达到某种条件是退出循环

[statements]

Next counter

如：

For Words=10To1 Step-1 ' 建立10次循环

For Chars=0 To 9 ' 建立10次循环

MyString=MyString & Chars ' 将数字添加到字符串中

Next Chars ' Incrementcounter

MyString=MyString & ' ' ' 添加一个空格

Next Words

(6) For Each…in Next语句主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句

For Each element In group

Statements

[Exit for]

Statements

Next[element]

(7) Do {while |until} condition

Statements

Exitdo

Loop

或者是

Statements

Exitdo

Loop {while |until} condition 如：

Dim a As Integer

a = 90

Do While a < 100

a = a + 6

Loop

(8) on expression goto

On error goto

3．数据类型：string,integer,…..

字符串的合并采用关键字：&，如

Dim myStr as String

Dim i as integer

i=10

myStr= “the I is “ & i '输出the I is 10

系统会自动将其他类型的数据转换为字符串形式

常用的字符串函数有：

Strcomp(str1,str2)，返回的值有-1,0,1

Mid(strSource,startIndex,len)，取出字符串strSource第startIndex开始的Len个字符，下标是从1开始的

Left(strSource,len)，取strSource里从左边开始的Len个字符

Vba.trim(strSource)，去除strSource里面的空格,对应类似的函数还有vba.trimLeft(strSource),vba.trimRight(strSouce)，分别去除左边的空格和右边的空格

split(strSouce,strDelimiter),分割字符串

类型转换：

CInt(sourceContent)，将sourceContent里的数据转换成整形

CSng(sourceContent)，将sourceContent里的数据转换成浮点型

CDate（sourceContent），将sourceContent里的数据转换成日期型数据，日期型数据可以进行加减运算

自定义数据类型，相当于C里面的结构体，使用Type typeName …..end Type，应将其定义到模块中，如：

Type DealInfo

strDate As String

startIndex As Integer

endIndex As Integer

End Type

4．过程和函数

VBA具有四种过程：Sub过程、Function函数、Property属性过程和Event事件

1Sub过程

Sub过程的参数有两种传递方式：按值传递(ByVal)和按地址传递(ByRef)。如下例：

Sub password(ByVal x as integer, ByRef y as integer)

If y=100theny=x+ y else y=x-y

x=x+100

End sub

默认的情况是按byRef传递的

2function 和sub过程类似，但是可以有返回值，返回值传递给函数名

Function password(ByVal x as integer,byref y as integer)as boolean

If y=100then y=x+y else y=x-y

x=x+100

if y=150 then password=true else password=false

End Function

函数和过程的级别有工作表级和工作簿级，写在工作表上的函数和过程一般开头都有private限定符，这表示这个函数（或过程）只能由当前工作表里的其他函数调用，而工作簿级的函数则一般写在模块中，限定符使用Public，这时它可以被所有的函数或过程调用，还可以在EXCEL的表单里使用这个函数。

调用过程：call subName(…)

调用函数：

Dim retureVal as type

returnVal=FuncName(…)

5．数组：包括静态数组和动态数组

静态数组定义：dim arrayName( length) as type 一维数组

dim arrayName(row,colum) as type 二维数组

默认的情况下，数组的下标是从0开始的

动态数组定义：dim arrayName( ) as type

这样定义的时候没有分配任何内存空间，在使用之前，必须用redim对其进行初始化，如：

Dim stuName() as string

Redim stuName(10)

……….赋值

Redim preserve stuName(20) '增加长度为20，并保留原来前10个数据

二．操作EXCEL 对象

EXCEL里面的对象根据不同级别有：application，workbook，worksheet，range，cells

Application：

是可用的顶级对象，由于所有的EXCEL VBA程序都是以EXCEL作为容器来运行的，所以Application对象就是EXCEL这个程序本身

Workbook：

是一个EXCEL文件

Worksheet：

是EXCEL文件里的一个工作表，可以使用worsheets（”sheetName”）或worksheets(index)即可获得相应的工作表对象

Range：

是一个工作表里的区域，可以为不相互连通的多个区域集合，通过指定区域来获得，如Range(“A1:B3”)则获得当前工作表里的A1到B3的所有单元格的集合，构成一个区域。如果是多个区域，可以用逗号分开，如Range(“A1:B3,C4:D5”)，使用Range可以对一个区域进行赋值，如Range(“A2:D10”)=””，为将A2到D10的内容清空