首页 > 百科知识 正文

工作表函数和代码变量(vba内置函数与工作表函数使用方法)

时间:2023-11-21 23:20:25 阅读:518 作者:必修课

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

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

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

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

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

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

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第1张

在第49讲中我讲到:

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第2张

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第3张

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

Set rng = Range("A1:H10")

d = Application.WorksheetFunction.Sum(rng)

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

这里需要提醒大家几点:

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

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

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

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

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

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

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第4张

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

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第5张

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

Sub SumProduct()

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

End Sub

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第6张

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

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第7张

方案三: 那么还有没有其他的办法呢?有的,用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内置函数与工作表函数使用方法)-第8张

最后看运行的结果:

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第9张

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

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第10张

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第11张

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

代码:

Sub SumProduct3()

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

End Sub

代码截图:

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第12张

看看运行的结果:

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第13张

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

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

工作表函数和代码变量(vba内置函数与工作表函数使用方法)-第14张

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

版权声明:该问答观点仅代表作者本人。如有侵犯您版权权利请告知 cpumjj@hotmail.com,我们将尽快删除相关内容。