《Excel计算含有不同项目个数的加权平均值.doc》由会员分享，可在线阅读，更多相关《Excel计算含有不同项目个数的加权平均值.doc（4页珍藏版）》请在三一文库上搜索。
1、Excel计算含有不同项目个数的加权平均值在计算学生成绩时会遇到下面的问题：每一位学生所选的课程不同，导致每个学生的学分数不同，这样计算加权平皿生址COM鳥曲6 二均分时会出现问题。如图LKjEjcfcLjaXMLAlTi科m於沟AECDEGr1t4U+- SL1. S12 12J科目：吗目二啓目3科目!擇目sn张_aoBlB24亨CD30Blas驭H IW刑翻:三卫手尋几 旨严帚fel =弓采用的解决方法是，使用 VBA功能，自定义函数。如上图，点击开发工具Visual Basic，进入VBA编辑窗口。如果没有“开 发工具”选项，请点击文件 选项，进入Excel选项窗口，如下图。点击“自定
2、义功能区”，右侧勾选“开发工具”。VBA窗口如下图所示在图中“ 1”处空白区域点击右键，选择“插入” 模块，双击新建的模块1, 打开程序编辑窗口。注意：图中“ 2”区域显示为“模块 T 程序代码如下Function zyRowAverage(a, b)If a.Columns.Count <> b.Columns.Count Or a.Rows.Count <> 1 Or b.Rows.Cou nt <> 1 The nMsgBox ("所选单元格必须具有相同的列数(行数)，且行数(列数) 为1")Exit Fun cti onEnd I
3、fs = 0For i = 1 To a.Colu mn s.Co unts = s + a.Cells(1, i) * b.Cells(1, i)Next iFor i = 1 To a.Colu mn s.Co untIf a.Cells(1, i) <> 0 The nm = m + b.Cells(1, i) End IfNext i zyRowAverage = s / mEnd FunctionFunction zyColumnAverage(a, b)If a.Rows.Count <> b.Rows.Count Or a.Columns.Count &l
4、t;> 1 Or b.Columns.Count <> 1 ThenMsgBox ("所选单元格必须具有相同的行数，且列数为 1")Exit FunctionEnd If s = 0 For i = 1 To a.Rows.Counts = s + a.Cells(i, 1) * b.Cells(i, 1)Next im = 0For i = 1 To a.Rows.CountIf a.Cells(i, 1) <> 0 Then m = m + b.Cells(i, 1)End IfNext i zyColumnAverage = s / mE
5、nd Function含有 两 个函 数， 分别 计 算行 平 均 值 ( zyRowAverage) 和 列 平 均 值 ( zyColumnAverage)。下面使用该函数计算加权平均值。如下图，在 G3 单元格内输入公式如红圈 内所示。该处使用了符号“ $”,是为了后续拖动公式时，权值项保持不变。圭总产金二显 如弐遊 Acrobat林” M f A" * =三I三申l認庠荊接行畚HK I 3 世” 3(” 雯r学翌国合it桔J8中”鲁g科目3科目4科目丢栖籾、千均B2S4 S1.65667B384 82. 09091E 1G科S岳三四 科姓张寺1 2 3 4 5 & 7关于函数使用的说明：提供，允许任何单位和个人使用帮助他人就本函数由燕山大学“ zhiyi ng ” 是帮助自己。