按照实际问题来决定VBA的应用方案

VBA是我们工作中,特别是对于长期与数据打交道、用EXCEL较多的朋友而言，是非常值得利用的一种工具,甚至说是可以起到立竿见影的效果，也不为过。之前用几小时甚至一天的工作,在用了VBA后可以在几分钟甚至几秒钟来完成。这种体验有朋友告诉我说就是一个字"爽"。每当我看到这些朋友的回复时，真是由衷得高兴。能引导大家走上方便工作的大路也是我最为高兴的事。

很多朋友在学习VBA的过程中,确实很下功夫,其中新入职场的年轻人，有近不惑之年的朋友,也有和我一样快50岁的朋友,甚至还有比我大的朋友,都在一起努力着。为了让自己的工作更出色,为了让可以节约出时间陪父母和亲人,都在尝试努力着。我的宗旨是不变的:分享成果,随喜正能量,就是把我20多年的VBA成果分享给需要的朋友,随喜正能量给同路人.我会把我的经验无保留的给大家.

今天和大家说的是EXCEL函数和VBA代码实现同一个目的谁优先的问题。最近很多朋友在纠结于这个问题,那么我给大家指导一二。

一 什么是EXCEL函数，和VBA函数的区别

1什么是EXCEL函数呢?就是我们平时在EXCEL工作时用到的函数,如SUM () SUMIF() COUNT() COUNIF() 等等,

2 什么是VBA函数呢? 就是我们在VBA中可以直接利用的函数,这类函数比较少:如isdata ，isempty，isnumeric等等

3 EXCEL函数（下面称为工作表函数）和VBA函数的联系；有些函数是可以通用的 如TRIM() LEFT() RIGHT() 等；有些是不可以通用的，如SUM() SUMIF 。

二： 有没有办法在VBA中利用工作表函数呢？在《VBA代码解决方案》第二册中我专门的讲到这个问题：

在第49讲中我讲到：

这讲中我给出了了工作表函数，的普遍应用方法代码，如：

Set rng = Range("A1:H10")

d = Application.WorksheetFunction.Sum(rng)

或许正是这节内容的作用，很多的朋友在VBA代码中编写时常常采用工作表函数，而放弃了一些基本的VBA变量判断的方法，其实，这是有所偏见的。

这里需要提醒大家几点:

1我在《VBA代码解决方案》中突出讲的是程序运行的效率，其实在我们实际工作中，大多在运算效率上的要求并没有太高，无非是几秒钟的差异，完全可以不用考虑，

2 工作表函数在应用时各个参数有着非常严格的要求，不能出错。

3 工作函数在VBA中的表示和EXCEL中是不同的.

4 在VBA中，采用工作表函数还是变量的判断，需要较为灵活的运用。

三 下面我们结合实际看看为了达到我们的目的，工作表函数和VBA代码中变量求解的方案有什么不同。

实例：如下的工作表，求数据1和数据2相乘后的和。

方案一：利用工作表函数在工作表中实现：这时在D7单元格中录入公式：=SUMPRODUCT(A2:A6,B2:B6) 即可实现：

方案二：在VBA中利用工作表函数实现，函数要用WorksheetFunction为开头的，如下：

Sub SumProduct()

Range("d8") = WorksheetFunction.SumProduct(Range("A2:A6"), Range("B2:B6"))

End Sub

运行后的结果,在D8的单元格显示了最后的结果：225，这时要注意表示单元格名称的变化,前面加上了range().下面为运行的结果;

方案三： 那么还有没有其他的办法呢？有的，用VBA变量求和来实现。我们看代码：Sub SumProduct2()

i = 2

k = 0

Do While Cells(i, 1) <> ""

k = k + Cells(i, 1) * Cells(i, 2)

i = i + 1

Loop

Range("d9") = k

End Sub

代码截图：

最后看运行的结果：

方案四：还有没有其他的办法呢？如果你熟悉了《VBA代码解决方案》你一定会想到了第一册：

下面我们看看用这讲的内容来完成我们的要求：

代码：

Sub SumProduct3()

Range("d10").Formula = "=SUMPRODUCT(A2:A6,B2:B6)"

End Sub

代码截图：

看看运行的结果：

上述的四种方案给大家都列出来了，不知读者是认可哪一种方案呢？

其实我们不要拘泥于任何的固定模式，要实际问题实际分析，不要一味地追求运行的效率而忽视了我们的真正目的。在我的经验中，如果能在工作表中解决的在工作表中解决，如果需要复杂的函数，涉及到的参数很复杂的，就要发挥代码变量的作用，来达到目的。

所以大家在学习《VBA代码解决方案》时要理解，以实际的问题为切入点，要综合的考虑问题，千万不要片面。