百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 编程网 > 正文

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表单设计器,开发人员可以通过拖拉实现一个可视化的表单。支持表单常用控件...

取消回复欢迎 发表评论: