查看: 217|回复: 4
请问如何如何用VBA实现数量计算
阅读权限20
在线时间 小时
求助各位大神，请问如何如何用VBA实现数量计算，已知B,C,D列的数据，怎么得出E列的数量，E列的数量是B,C,D列的交集，拜托各位大神指点，附件如下
产品& & & & 有效架次& & & & 起始架次& & & & 截止架次& & & & 数量
B& & & & 1-56,59-76& & & & 58 & & & & 345& & & & 19
a& & & & 45-56,59-63& & & & 25 & & & & 30& & & & 6
C& & & & 2-3,5-7& & & & 1 & & & & 19& & & & 0
d& & & & 2-31,45-56& & & & 3 & & & & 50& & & & 35
e& & & & 3-6,7-9,10-34& & & & 10 & & & & 876& & & & 25
f& & & & 5,9,12& & & & 4 & & & & 45& & & & 2
g& & & & 1-8765& & & & 4567 & & & & 7655& & & & 3089
(11.02 KB, 下载次数: 0)
20:36 上传
阅读权限70
在线时间 小时
1 需要上传附件
2 不明白你的数量是怎么计算来的
阅读权限20
在线时间 小时
不好意思，那个图片上的数量有误，这是我刚更改了一下的
数量就是算&&B列与C,D列的交集的数量
(10.76 KB, 下载次数: 0)
21:08 上传
21:07 上传
点击文件名下载附件
16.87 KB, 下载次数: 0
阅读权限50
在线时间 小时
& & & & & & & &
目测还是没有看懂计算规则，理解能力差啊
阅读权限20
在线时间 小时
目测还是没有看懂计算规则，理解能力差啊
之前传的有点问题，没计算清楚
我最新上传的那个附件，是正确的，看这个附件也没看懂吗
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel 在VBA中怎么调用公式_百度知道
Excel 在VBA中怎么调用公式
我有更好的答案
你是要运行　EXCEL工作表函数还是要给在VBA中给单元格写公式如果是要用函数applivation.worksheetfunction.如果是要给格写公式　比如　B4＝A1+1请用　range(&B4&).Formula = &=A1+1&
采纳率：67%
来自团队：
excel宏运行 在线讲解
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。运用VBA编制自定义EXCEL函数提高评审工作效率运用VBA编制自定义EXCEL函数提高评审工作效率工程预算百家号大家早啊，每天一篇哦，欢迎大家关注、转发。1、美女音频版懒人听经验分享，美女伴你入睡哦。获取音频版请看上面。2、图文版　评审工作中存在大量的计算工作,EXCEL拥有强大的计算功能,在完成评审工作中发挥着重要的作用, 特别是EXCEL中丰富的自带函数,极大的方便了评审工作,但是,由于EXCEL自带的函数通常是为完成通用计算工作而编制的,在利用他它们完成一些评审方面较为复杂的计算任务时,还是存在一定的困难,虽然能通过组合利用EXCEL中自带函数实现,但过程复杂,容易出错,而且使用不方便,这时,利用EXCEL中自带的VBA功能,编制自定义函数能极大的简化计算过程,减少人为工作失误,进一步提高评审工作效率.　　下面以概算评审时，建设其他费中设计费的计算为例,谈谈如何运用VBA编制自定义的EXCEL函数,计算工程设计费的收费基价,简化设计费的计算过程，提高评审工作效率的.　　设计费的计算，难点在工程设计费收费基价如何计算，对于单独的一个工程项目，计算一次其实并不太难，找到工程设计费计算基数所在的区间，按插值法计算出，但对于评审很多项目时，如果每次都去这样找计算基数所在的区间，按插值法计算既费时，又容易出错，而且基本是在做重复工作。而通过编制自定义的EXCEL函数后，以后就像用EXCEL自带的SUM()函数一样简单方便。下面谈谈如何实现。　　第一步是编程，实际是编写一个带返回可以使用的返回值的过程。代码主要内容如下　　Function 设计费(A As Double) As Double　　If A <= 200# * 10000# Then　　设计费 = A * 9# / 200#　　……　　If A <= # Then　　设计费 = # + (34948.9 - 18793.8) * 10000# / ((2000000# - 1000000#) * 10000) * (A - 1000000# * 10000#)　　Else　　设计费 = A * 1.6 / 100#　　End If　　……　　End If　　End Function　　注：限于文章篇幅，上面具体程序就简化了，只列出关键的部分　　第二步启动EXCEL的VBA，插入一个模块，并将上面过程输入该模块点击EXCEL菜单中：工具/宏/Visual Basic 编辑器，即上图中红圈部分，即可启动并进入VBA。VBA界面如下：　　再点击VBA菜单中插入、模块部分，如下图中红圈部分，即可进入模块。将第一步编好的程序输入后，通过调试运行后，结果无误后，点击VBA菜单中文件\关闭并返回到Microsoft Excel,即下图的红圈部分。第三步，使用该函数　　返回Excel后，先找到该函，点击菜单栏的插入\函数后进入界面入下图，将下图的或选择类别选择为用户定义在选择函数栏就可以看到设计费这个自定义函数了。具体如下图红圈位置所示意。找到后，这个命名为“设计费（）”的函数就如我们最常用的sum()函数一样，可以在这个EXCEL文件的任何一个工作表的任何一个单元格中使用了，并且可以在多个单元格中同时使用。以后计算设计费时，不再需要去查书确定计算基数所在的区间，按插值法计算出设计费了，只要直接在需要计算设计费收费基数的单元格输入“=设计费（基数）”，计算机自动计算，并将设计费收费基数返回在该单元格中，供引用或参公式组合计算设计费。　　有了这个函数后，在今后评审工作需要设计费时明显简化了输入工作量，及需要人工参与的计算工作量，虽然第一次编程花费了一些时间，但对今后的工作带来了便利，总体上是提高了评审工作效率。　　同样对于建设单位其他费中的建设单位管理费，监理费、招标代理费，环评费以及前期工作费等，在钢结构工程量计算时编制查找型钢重量等等领域，都可以采用编写自定义函数来处理。特别是在团队工作项目中，对于需要统一计算的工作项目，由专人编写自定义函数并负责维护修改这些函数，供团队其他人使用，这样不仅极大的方便了团队其他成员的工作，提高团队评审的工作效率，同时还杜绝了一个项目中因成员之间的理解和知识水平的局限性造成需要统一评审标准的项目实际评审标准不统一，影响整个项目评审的公平公正性。　　结束语　　EXCEL还有许多强大的功能,大家不妨去它的帮助里面查查,也可以通过帮助里面的教程学习学习,俗语说,磨刀不误砍柴工,平时花一点时间,多学习和掌握一些评审相关的知识和技巧,对提高评审工作的效率还是很有帮助的.欢迎关注、欢迎留言、欢迎讨论、欢迎吐槽。觉得不错请分享点赞往期精彩：建设项目工程结算的审核土方工程概预算编制的几个问题结算工程中物价涨落的处理浅谈财政投资项目在实施营改增后“建筑工程老项目”应如何计算结算尾款税金旋挖钻机的施工技术应用更多精彩请关注我，到我主页看哦您的关注、是我最大的动力本文由百家号作者上传并发布，百家号仅提供信息发布平台。文章仅代表作者个人观点，不代表百度立场。未经作者许可，不得转载。工程预算百家号最近更新：简介:造价培训教程、依据、书籍、工具、案例大全作者最新文章相关文章VBA在EXCEL中设置公式_百度知道
VBA在EXCEL中设置公式
在A9:A44区域中有的为空，现在需要用VBA代码在B9:B44中设置公式=&J&&A9:A44,比如A9=1,出来结果是B=J1,当A列区域内为空值时，B列返回也为空。该怎么写代码？哪位高手知道？很着急
二楼的不是不知道怎么写公式我写range(&b9&).formula = &=&J&&A9&但是报错啊！~说缺少结束语句，错误就在&J&这里，去掉&&出来的结果就错了
我有更好的答案
看起来你就是不知道怎么往单元格写入公式嘛，照这个格式写就好：range(&b9&).formula = xxxxxxxxxxx
不是不知道怎么写公式我写range(&b9&).formula = &=&J&&A9&但是报错啊！~说缺少结束语句，错误就在&J&这里，去掉&&出来的结果就错了
for i = 9 to 44
range(&b& & i).formula = &J& & range(&a& & i).valuenext i注意VBA中的&号前后一定要留出空格，否则有时候无法识别
好像可以了，如果A列中有空值，则B列就不再执行了怎么写？
在循环中加入判断：if not range(&a& & i).value = && then
采纳率：49%
=IF(A1=&&,&&,INDIRECT(&j&&A1))下拉
为您推荐：
其他类似问题
excel的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}