Excel中高级培训课件(1)

y = X(0)
MsgBox (Str(y)) y = X(1)


MsgBox (Str(y))
y = X(2) MsgBox (Str(y))
End Sub
使用数组

Sub UseArray2()


X = Array(0, 1, 2) '注意没有Dim语句
y = X(0) MsgBox (Str(y)) y = X(1) MsgBox (Str(y))
分数 90<=X<=100 80<=X<90 70<=X<80 60<=X<70 X<60
五级制成绩 优 良 中 及格 不及格
第一部分 查找与引用函数

MATCH函数

用来返回在指定方式下与指定数值匹配的数组中元 素的相应位置 用于返回表格或区域中的数值或对数值的引用

INDEX


综合案例 INDIRECT
一维水平数组 {1，2，3，4，5} 一维纵向数组 {1；2；3；4；5} 二维数组 {1，2，3；4，5，6；7，8，9}

了解数组的维数

第一部分 数组公式

命名数组常量
第一部分 数组公式

选择数组公式区域


通过编辑→定位 激活数组中任意单元格，CTRL+/
第二部分 数据透视表
第三部分 宏
Function函数实例


Function Function6(Parameter As Integer) As Integer Dim Temp As Integer Temp = Parameter * 3 + 1 Function6 = Temp End Function
Function函数实例
活动单元格

Sub ReadVariable2()


Worksheets("Sheet2").Activate
Range("A1").Activate


x = ActiveCell.Value
ActiveCell.Font.Bold = True
MsgBox (Str(x))
End Sub


y = X(2)
MsgBox (Str(y)) End Sub
在VBA中使用循环语句

Sub UseArrayLoop()


Dim X(2) As Double
For i = 0 To 2 X(i) = i


Next i
For i = 0 To 2 y = X(i) MsgBox (Str(y)) Next i

功能强大， 面向对象（OOP） 日常工作的自动化，提高用户的效率。
VBA 和 VB的关系

VBA和VB的主要区别是：



VB用于创建标准的应用程序，VBA是使已有的应 用程序(Office)自动化。 VB具有自己的开发环境，VBA寄生于已有的应用 程序(Office)。 VB开发出的应用程序可以是可执行文件(*.EXE)， VBA开发的程序必须依赖于它的“父”应用程序 (Office)

定义

数组公式对一组或多组值执行多重计算，并返回一 个或多个结果。


一个例子 数组公式的识别

公式中是否包括{},并且{}不是人工输入的 Ctrl+shift+Enter

数组公式的输入

第一部分 数组公式

数组常量



{1，0，1，0，1} =sum ({1，0，1，0，1}),注意这时是公式在使用数 组而不是数组公式 =sum({1,2,3,4}*{5,6,7,8})
End Sub
把输入看成一个集合

Function sumsq(x)


Sum = 0
For Each y In x


Sum = Sum + y ˆ 2
Next
sumsq = Sum
End Function
SumProd

Function SumProd(x1, x2) n1 = x1.Count n2 = x2.Count If n1 <> n2 Then SumProd = CVErr(xlErrNum) End End If Sum = 0 For i = 1 To n1 Sum = Sum + x1(i) * x2(i)
第一部分 统计函数


MAX、MIN 求数据集中第K个最大值LARGE与第k个最小 值SMALL

找前三个最大怎么办？

中位数MEDIAN 、众数MODE 用来排位的函数RANK
第一部分 财务函数



NPV IRR PMT FV PV 关于分期付款的综合案例
第一部分 数组公式


Next i i=1
SumProd = Sum End Function
一个好的例子

Function RangeTest(x) prod = 1


r = x.Rows.Count
c = x.Columns.Count For i = 1 To r


For j = 1 THale Waihona Puke c区域引用运算符

第一部分 日期与时间函数




计算日期 计算天数 计算日期为第几个星期 计算表示日期的数值 计算表示时间的数值 从日期中提取出年、月、日和星期 从时间中提取出时、分和秒
第一部分 日期与时间函数

取出当前系统时间/日期信息

NOW、TODAY
HOUR、DAY、MONTH、YEAR
使用 “Cells” 函数

Sub CellsExample()


Worksheets("Sheet2").Activate
Cells(3, 1) = 1


Cells(4, 1) = 2
Cells(3, 3) = Cells(3, 1)
Cells(4, 3) = Cells(4, 1)

取得日期/时间的部分字段值


综合案例
第一部分 数学和三角函数

求和有关的函数


SUM 、SUBTOTAL、SUMIF、 SUMPRODUCT、SUMSQ、SUMX2MY2 SUMX2PY2、SUMXMY2
ROUND

数学函数使用技巧--四舍五入

第一部分 逻辑函数
AND、OR、NOT IF

在公式中使用单元格引用




相对引用 绝对引用 混合引用 引用的切换F4 九九乘法表

复制公式与条件格式的关系
第一部分 Excel函数

Excel名称技巧

使用常量名称
：(冒号） 设定一个区域 B1:B6 ，（逗号）设定两个区域的联合 B1,B6 （空格）设定两个区域的交叉 B1:B6 A3:D3
宏的编辑和运行途径





宏的录制与执行 宏的编辑 为宏指定快捷键 指定宏保存的位置 将宏指定给按钮 将宏指定给图片或工具栏按钮
通过小程序来学习

Function addtwo(x, y) addtwo = x + y End Function Function addthree(x, y, z) addthree = addtwo(x, y) + z End Function
End Sub
在VBA如何使用Excel中的函数



Function myln(x) myln= Ln(x) End Function 出现了错误？
使用数组

Sub UseArray() Dim X(2) As Double


X(0) = 0
X(1) = 1 X(2) = 2


小程序实例



Sub displaybox() response = MsgBox("Greetings!") End Sub
怎样通过VBA读写数据?

至少有三种方式读写数据：
如果在工作表中定义了名称，使用“Range”函数 Range()也可使用单元格地址来读写数据 “Cell”函数可以通过单元格所在的行数和列数来读 写数据。 通过activecell来读写数据

Function SelectDemo(Parameter) Select Case Parameter Case 1 SelectDemo = "Ben" Case 2, 3, 7 SelectDemo = "Jerry" Case Else SelectDemo = "And" End Select End Function
活动单元格

Sub WriteVariable2()


Worksheets("Sheet2").Activate
Range("A1").Activate


X = ActiveCell.Value
Range("B1").Activate