如何学习VBA_3.2.12.13:VBA中工作表函数的利用

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。

如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。

VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是:如何学习VBA_3.2.12.13:VBA中工作表函数的利用

【分享成果，随喜正能量】有勇知方，惟大义所在，却是奋不顾身。不管身处何种境地，心存大义的人，都能不惧危难奋勇向前，点亮别人的生活。只希望一定要注意安全！心善自然美丽，心真自然诚挚，心慈自然柔和，心净自然庄严；澹泊寡欲可以养神，宁静致远可以养志，怡情适性可以养和，观空自在可以养心。种下一个善念，收获一种良知；种下一种良知，收获一种道德；种下一种道德，收获一种习惯；种下一种习惯，收获一种性格；种下一种性格，收获一个人生。。

3.2.12 工作表函数也是可以利用的

当VBA学习到这里，我们对VBA的理解应该有一定的高度了，整个VBA的知识点繁多，但大多是围绕对象、对象的属性、对象的方法、对象的事件来展开的。VBA是学习OFFICE的高级阶段，这也就是说，我们学习OFFICE需要提高时就要进军VBA了。

我们在利用EXCEL的时候，最为津津乐道的或许就是函数了，在很多的场合，我都给出了自己对函数的定义，这个定义可以适用于初高中的学习环境，也可以适合于语言学习的环境，是一个更加容易理解及应用的概念

传统的函数定义：一般的，在一个变化过程中，假设有两个变量x、y，如果对于任意一个x都有唯一确定的一个y和它对应，那么就称x是自变量，y是x的函数。

近代定义：设A，B是非空的数集，如果按照某种确定的对应关系f()，使对于集合A中的任意一个数x，在集合B中都有唯一确定的数和它对应，那么就称映射为从集合A到集合B的一个函数。

上述两个定义都在强调一对一的对应关系，这就是之前函数的思想精髓。在强调过程的同时，对对象的要求过于苛刻了。在现代意义上函数已经绝非之前的思想能约束的了。如：在计算机语言中，函数强调的是对于输入的值value，输出的值或者return的值具有唯一性，这种输入的值或者返回的值不再受到个数的限制。可能是1个也可能是多个。

我推出的函数概念：

如果对于唯一性输入值value，输出（或者return）的值也具有唯一性（这种输入或者输出的值没有个数的限制），那么具有这种变化关系的输入和输出关系，就称为输出是输入的函数。

这个概念希望大家能理解。在VBA中也是可以应用EXCEL函数的，这就是 Application.WorksheetFunction了，利用这个方法我们可以应用我们熟知的EXCEL函数了。

3.2.13 工作表函数在VBA中的灵活应用

在《VBA代码解决方案》这套教程中，给大家介绍了一种利用工作表函数CountIf来判断是否录入了重复值的方案。这种方案虽然不是我推荐的，但对于利用EXCEL多年的朋友是乐于接受的，在这节的代码中，我给出了：

Private Sub Worksheet_Change(ByVal Target As Range) '51 利用VBA代码，限制重复值的录入

With Target

If .Column <> 1 Or .Count > 1 Then Exit Sub

If WorksheetFunction.CountIf(Range("A:A"), .Value) > 1 Then

.Select

MsgBox "不能输入重复的人员编号!", 64

Application.EnableEvents = False

.Value = ""

Application.EnableEvents = True

End If

End With

End Sub

这里需要注意几点：

1 代码的书写位置，代码是写在哪里的？为什么？

2 工作表函数的利用方法。

3 判断的触发条件;判断值的重复在什么情况下触发;如何设置触发

4 程序控制权的理解，代码中为什么要有程序控制权的处理？

5 工作表事件中值的传递，在工作表中输入的数据是如何传递给程序的。

如果大家学习到这节，一定要再问一下自己上述的5个问题是否可以解答。如果能够解答，那么说明自己的VBA水平是达到预期的，如果还有部分问题不能解答，就需要再努把力了。学习的过程是循序渐进的，要在每节的代码中学到些自己需要的知识点。

当你学到我的第三套教程《VBA数组与字典解决方案》时会有更好的排重方案。

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：