您好,欢迎来到三六零分类信息网!老站,搜索引擎当天收录,欢迎发信息
免费发信息
三六零分类信息网 > 赣州分类信息网,免费分类信息发布

VBA应用经验:工作表函数和代码变量,你选择哪种方案?

2019/7/12 12:21:18发布100次查看
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代码解决方案》时要理解,以实际的问题为切入点,要综合的考虑问题,千万不要片面。

赣州分类信息网,免费分类信息发布

VIP推荐

免费发布信息,免费发布B2B信息网站平台 - 三六零分类信息网 沪ICP备09012988号-2
企业名录