VBA基础知识完整版.docx

VBA基础知识

VBA基础知识

PAGE/NUMPAGES

VBA基础知识

VBA基础知识

1,VBA有三种程序类型：宏程序,自定义函数程序,事务程序

1）宏程序

SubA()公用程序，可以被其它程序调用

Range(a1)=100

EndSub

PrivateSubA()私有程序，不可以被其它程序调用

Range(a1)=100

EndSub

调用实例1）：

SubA()

Range(a1)=100

EndSub

SubB()

CallA Call为调用命令，也可以省略

EndSub

调用实例2）：

Sub统计(N)

IfN=1Then

Range(C2)=Application.WorksheetFunction.CountA(Range(a:a))

ElseIfN=0Then

Range(D2)=Application.WorksheetFunction.Sum(Range(a:a))

EndSub

Sub计数()

统计1

EndSub

Sub求和()

统计0

EndSub

2）自定义函数程序

Function工作表数量()

工作表数量=Sheets.Count取工作表个数

EndSub

应用：（1）可以在单元格中直接调用：例在A1中输入：=工作表数量（）

（2）程序中调用：SubA1中输入工作表数量（）

Range(“A1”)=工作表数量调用自定义函数

EndSub

3）事务程序

例如程序在打开工作表时触发：

PrivateSubWorkbook_Open()

Range(“A1”)=100

EndSub

Submycopy()

Range(A1).CopyRange(B1)将A1单元格里的数据复制到B1单元格

EndSub

Submydel()

Sheets(sheet1).Delete删除工作表sheet1

EndSub

常用的函数：(连接函数)；\（整除函数）；mod（求余数函数）

2,With语句：

未运用with语句

Sub字体格式1()

Range(A1).Font.Name=宋体

Range(A1).Font.Size=14

Range(A1).Font.ColorIndex=3

Range(A1).Font.Bold=True

EndSub

运用with语句

Sub字体格式1()

WithRange(A1).Font

.Name=宋体

.Size=14

.ColorIndex=3

.Bold=True

EndWith

EndSub

3,If语句:

1）单条件推断：

Sub正数()

IfRange(a1).Value0Then

Range(a2).Value=“正数”

Else

Range(a2).Value=“非正数”

EndIf

EndSub

2）多条件推断：

Sub正数()

IfRange(c1).Value0Then

Range(d1).Value=大于零

ElseIfRange(c1).Value0Then

Range(d1).Value=小于零

ElseIfRange(c1).Value=0Then

Range(d1).Value=等于零

EndIf

EndSub

Sub推断男女()

IfRange(c1).Value=1Then

Range(d1).Value=男

ElseIfRange(c1).Value=0Then

Range(d1).Value=女

Else

Range(d1).Value=非男非女

EndIf

EndSub

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

Call推断男女调用上面子程序，当单元格数值改变时触发子程序运行

EndSub

3）运用SelectCase语句：

Sub多重推断()

SelectCaseRange(a1)

CaseIs0

R