VBA基本语法Function过程函数的举例,看看有什么功能

https://m.toutiao.com/is/JtwHyHL/

在excel中有时会有很多的重复数据,我们可以通过自己定义一个Function过程函数来实现。

接下来要使用到的数据表格

假如我们需要看看表中叫做“张起”的有几个人?

计算出来的结果:

代码1:

Public Function fun()

Dim i As Integer, j As Integer

j = 0

For i = 1 To 18

If Worksheets('sheet42').Cells(i, 2) = '张起' Then

j = j + 1

End If

Next

fun = j

End Function

下面就对代码简单地解释一下:

在工作当中我们可能不仅仅只对某一列的数据进行重复判断,我们可能是对某一区域范围内的值进行计算,如果excel 的表中的区域我们不确定的是时候,我们可以在自定义过程的函数的时候,使用参数,我们通过传参数来给我们定义的函数指定区域。

接下来举例要使用到的表格:

计算出来的结果如下:

代码2:

Public Function fun(k As Range)

Dim i As Range

Dim j As Integer

j = 0

For Each i In k

If i.Value = '张起' Then

j = j + 1

End If

Next

fun = j

End Function

下面具体解释一下代码:代码2:

Public Function fun(k As Range)

Dim i As Range

Dim j As Integer

j = 0

For Each i In k

If i.Value = '张起' Then

j = j + 1

End If

Next

fun = j

End Function

下面具体解释一下代码:

注意:函数转参数这2种写法都可以

1. Public Function fun(i, j)

2. Public Function fun(k As Range)

第一种参数没有直接指出类型,但是你传的时候要知道要传入的类型,但是有一点特别重要,一定要在函数内部声明类型,不然会报错。第二种写法比较标准,直接就指出了参数的类型,且函数内部不用再定义了,简单明了。

(0)

相关推荐