蓝字关注,加微信NZ9668获资料信息
《VBA代码解决方案》系列书作者
头条百家平台 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讲中我讲到:
这讲中我给出了了工作表函数,的普遍应用方法代码,如:
Setrng = 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代码解决方案》时要理解,以实际的问题为切入点,要综合的考虑问题,千万不要片面。
_____________________________
觉得有启发,点个“在看”,转给朋友们
欢迎你“留言”,和作者直接交流
更多关联阅读
|
|