excel vba vbnet条件求和求平均应用示例
yuyutoo 2024-10-12 01:34 2 浏览 0 评论
核定月份 | 月度奖金核定额度 | 月度考核系数(上报) | 当月考核系数均值 | 月度考核奖金额度=当月总奖金/当月总系数*个人系数之和 |
1月 | 1000 | 1.111 | 1.116 | 995.52 |
1月 | 1000 | 1.112 | 1.116 | 996.42 |
1月 | 1000 | 1.113 | 1.116 | 997.31 |
1月 | 1000 | 1.114 | 1.116 | 998.21 |
1月 | 1000 | 1.115 | 1.116 | 999.10 |
1月 | 1000 | 1.116 | 1.116 | 1000.00 |
1月 | 1000 | 1.117 | 1.116 | 1000.90 |
1月 | 1000 | 1.118 | 1.116 | 1001.79 |
1月 | 1000 | 1.119 | 1.116 | 1002.69 |
1月 | 1000 | 1.12 | 1.116 | 1003.58 |
1月 | 1000 | 1.121 | 1.116 | 1004.48 |
2月 | 2000 | 1.122 | 1.126 | 1992.90 |
2月 | 2000 | 1.123 | 1.126 | 1994.67 |
2月 | 2000 | 1.124 | 1.126 | 1996.45 |
2月 | 2000 | 1.125 | 1.126 | 1998.22 |
2月 | 2000 | 1.126 | 1.126 | 2000.00 |
2月 | 2000 | 1.127 | 1.126 | 2001.78 |
2月 | 2000 | 1.128 | 1.126 | 2003.55 |
2月 | 2000 | 1.129 | 1.126 | 2005.33 |
2月 | 2000 | 1.13 | 1.126 | 2007.10 |
3月 | 3000 | 1.131 | 1.135 | 2989.43 |
3月 | 3000 | 1.132 | 1.135 | 2992.07 |
3月 | 3000 | 1.133 | 1.135 | 2994.71 |
3月 | 3000 | 1.134 | 1.135 | 2997.36 |
3月 | 3000 | 1.135 | 1.135 | 3000.00 |
3月 | 3000 | 1.136 | 1.135 | 3002.64 |
3月 | 3000 | 1.137 | 1.135 | 3005.29 |
3月 | 3000 | 1.138 | 1.135 | 3007.93 |
3月 | 3000 | 1.139 | 1.135 | 3010.57 |
红框内是需要求取的数值:D列要根据A列月份求I列月份均值。
E列月度考核奖金额度=当月总奖金/当月总系数*个人系数之和
首先考虑到通用性,先定义两个小函数:
Function 以A列为条件对B列求和(arr(,) As Object, A As Integer, 条件 As Object, B As Integer)
Dim t As Double
For i = LBound(arr, 1) To UBound(arr, 1)
If arr(i, A) = 条件 Then t = t + arr(i, B)
Next
Return t
End Function
Function 以A列为条件对B列求平均(arr(,) As Object, A As Integer, 条件 As Object, B As Integer)
Dim t As Double
Dim k As Integer = 0
For i = LBound(arr, 1) To UBound(arr, 1)
If arr(i, A) = 条件 Then
k = k + 1
t = t + arr(i, B)
End If
Next
Return t / k
End Function
以上两个函数可以收藏到模块库中,下次使用简单调用即可。
Dim xlapp = New excel
Dim ws = xlapp.activesheet()
Dim arr = ws.Getgrid(2, "A")‘获取以A2为左上角的数组
Dim 当月总奖金, 当月总系数
For i = 1 To UBound(arr, 1)
ws.cells(i + 1, "D") = 以A列为条件对B列求平均(arr, 1, arr(i, 1), 3)
当月总奖金 = 以A列为条件对B列求和(arr, 1, arr(i, 1), 2)
当月总系数 = 以A列为条件对B列求和(arr, 1, arr(i, 1), 3)
ws.cells(i + 1, "E") = 当月总奖金 / 当月总系数 * arr(i, 3)
Next
xlapp.quit()
'探索3000原创代码
相关推荐
- jQuery VS AngularJS 你更钟爱哪个?
-
在这一次的Web开发教程中,我会尽力解答有关于jQuery和AngularJS的两个非常常见的问题,即jQuery和AngularJS之间的区别是什么?也就是说jQueryVSAngularJS?...
- Jquery实时校验,指定长度的「负小数」,小数位未满末尾补0
-
在可以输入【负小数】的输入框获取到焦点时,移除千位分隔符,在输入数据时,实时校验输入内容是否正确,失去焦点后,添加千位分隔符格式化数字。同时小数位未满时末尾补0。HTML代码...
- 如何在pbootCMS前台调用自定义表单?pbootCMS自定义调用代码示例
-
要在pbootCMS前台调用自定义表单,您需要在后台创建表单并为其添加字段,然后在前台模板文件中添加相关代码,如提交按钮和表单验证代码。您还可以自定义表单数据的存储位置、添加文件上传字段、日期选择器、...
- 编程技巧:Jquery实时验证,指定长度的「负小数」
-
为了保障【负小数】的正确性,做成了通过Jquery,在用户端,实时验证指定长度的【负小数】的方法。HTML代码<inputtype="text"class="forc...
- 一篇文章带你用jquery mobile设计颜色拾取器
-
【一、项目背景】现实生活中,我们经常会遇到配色的问题,这个时候去百度一下RGB表。而RGB表只提供相对于的颜色的RGB值而没有可以验证的模块。我们可以通过jquerymobile去设计颜色的拾取器...
- 编程技巧:Jquery实时验证,指定长度的「正小数」
-
为了保障【正小数】的正确性,做成了通过Jquery,在用户端,实时验证指定长度的【正小数】的方法。HTML做成方法<inputtype="text"class="fo...
- jquery.validate检查数组全部验证
-
问题:html中有多个name[],每个参数都要进行验证是否为空,这个时候直接用required:true话,不能全部验证,只要这个数组中有一个有值就可以通过的。解决方法使用addmethod...
- Vue进阶(幺叁肆):npm查看包版本信息
-
第一种方式npmviewjqueryversions这种方式可以查看npm服务器上所有的...
- layui中使用lay-verify进行条件校验
-
一、layui的校验很简单,主要有以下步骤:1.在form表单内加上class="layui-form"2.在提交按钮上加上lay-submit3.在想要校验的标签,加上lay-...
- jQuery是什么?如何使用? jquery是什么功能组件
-
jQuery于2006年1月由JohnResig在BarCampNYC首次发布。它目前由TimmyWilson领导,并由一组开发人员维护。jQuery是一个JavaScript库,它简化了客户...
- django框架的表单form的理解和用法-9
-
表单呈现...
- jquery对上传文件的检测判断 jquery实现文件上传
-
总体思路:在前端使用jquery对上传文件做部分初步的判断,验证通过的文件利用ajaxFileUpload上传到服务器端,并将文件的存储路径保存到数据库。<asp:FileUploadI...
- Nodejs之MEAN栈开发(四)-- form验证及图片上传
-
这一节增加推荐图书的提交和删除功能,来学习node的form提交以及node的图片上传功能。开始之前需要源码同学可以先在git上fork:https://github.com/stoneniqiu/R...
- 大数据开发基础之JAVA jquery 大数据java实战
-
上一篇我们讲解了JAVAscript的基础知识、特点及基本语法以及组成及基本用途,本期就给大家带来了JAVAweb的第二个知识点jquery,大数据开发基础之JAVAjquery,这是本篇文章的主要...
- 推荐四个开源的jQuery可视化表单设计器
-
jquery开源在线表单拖拉设计器formBuilder(推荐)jQueryformBuilder是一个开源的WEB在线html表单设计器,开发人员可以通过拖拉实现一个可视化的表单。支持表单常用控件...
你 发表评论:
欢迎- 一周热门
- 最近发表
- 标签列表
-
- mybatis plus (70)
- scheduledtask (71)
- css滚动条 (60)
- java学生成绩管理系统 (59)
- 结构体数组 (69)
- databasemetadata (64)
- javastatic (68)
- jsp实用教程 (53)
- fontawesome (57)
- widget开发 (57)
- vb net教程 (62)
- hibernate 教程 (63)
- case语句 (57)
- svn连接 (74)
- directoryindex (69)
- session timeout (58)
- textbox换行 (67)
- extension_dir (64)
- linearlayout (58)
- vba高级教程 (75)
- iframe用法 (58)
- sqlparameter (59)
- trim函数 (59)
- flex布局 (63)
- contextloaderlistener (56)