《Excel加权平均计算宏创建及使用》由会员分享，可在线阅读，更多相关《Excel加权平均计算宏创建及使用（3页珍藏版）》请在金锄头文库上搜索。
1、Excel 加权平均计算函数的创建及使用李光明山东省地质科学实验研究院加权平均品位计算是矿产勘查中的一项重要工作，使用 Excel 电子表格计算时，由于没 有加权平均计算函数，实际操作起来比较麻烦。为此，利用宏方法自定义了加权平均计算函数WeightedAverage()。下面介绍其创建和使用方法。1、创建加权平均计算函数 WeightedAverage()打开Excel工作簿，选择“工具/宏/visual Basic编辑器”(图1),通过“插入/模块”命图 1 选择 visual Basic 编辑器ftA Ct) J 用p-. | .： g V已:：心-|曲心令添加一个模块(图 2)。图 2
2、 添加模块在命令窗口添加如下代码(图 3)：加权平均计算。Weight-权；value-值权，如样长、为矿石量Function WeightedAverage(Weight As Range, Value As Range)sWeight = Application.WorksheetFunction.Sum(Weight)sWeightValue = Application.WorksheetFunction. SumProduct(Weight, Value)(权x值)，如(样长xmFe)、为(矿石量xmFe)WeightedAverage = Round(sWeightValue / s
3、Weight, 2)平均值，如 mFe，保留 2 位小数End Function图3在命令窗口添加代码保存后，点击鱷返回Excel视图。2、利用WeightedAverage()进行品位加权平均计算 以矿床品位计算表(表 1)为例，进行说明。(1)进行各矿体类别品位计算如图4所示，鼠标点击“E8”单元格，输入“=”号，点击左上角“函数”下拉列表中 的“其它函数”，出现“插入函数”列表框，选择“ WeightedAverage”后“确定”，显 示“函数参数”文本框。在图4中，在Weight（权）文本框中，用鼠标下拉“D4:D7”、“E4:E7”，点击“确定”, “E8”单元格中便填入了 TFe加
4、权平均品位计算结果“31.65”。为了简化mFe的计算操作, 计算TFe时，Weight单元格区域的列采用了绝对地址（“$D4:$D7”），这样在mFe计算时, 可在表中直接拖动复制，不用再输入函数和选择单元格。表 1 矿床品位计算表 续表 1 矿床品位计算表矿体 编号资源量类别块段 编号资源量（万t）品 位（）TFemFeI(332)332-1217 731 5121 17332 2224 930 6120 96332 3126 4an O/i20 94j J J332 4164 3厶.厶132 8220 84j j I类别丄 VZ 1 * J(333)333 1169 632 5520 7
5、5J J J 丄333 2117 5O 厶 J J31 58厶U. / J21 04J J J333- 3丄丄， J71 8J 丄* J q31 4021 39333- 491 230 3420 59333 588 530 8921 35333- 631 230 5120 35333-765 133 3021 75333-849 832 7621 54333-975 733 0020 59333-10275 932 2920 75类别矿体II(332)332 514 432 9718 63j j 丿332-670 731 2418 13332 770 731 1018 40类别(333)333
6、 1 147 932 6316 80J J J 丄 JL333 12I丿丿16 319 47J WJL 厶333-1337 9J厶* /厶33 0218 46333-1431 730 9218 53矿体 编号资源量类别块段 编号资源量（万t）品 位（）TFemFeII(333)333-1562 032 2418 36333-1633 130 3417 38333 1765 231 1618 4907 7 JL 1333 18U丿.厶89 1J丄丄VZ31 7718 63J JL U333 19O丿1 .丄50 232 52丄 O * vz J17 98333 2024 431 7719 33J
7、 J J厶 U333 2178 332 86丄丿1. j j20 33J J JJL类别U * J J矿体III(332)332-847 734 6925 35332-947 735 1526 23类别(333)333 222 634 6825 89333-2327 233 4623 25333-2418 434 4224 04333-2539 234 2925 22333-2612 335 3125 49333 2729 834 8826 51j j j厶 /333-282 6O 1.0034 31厶J丄24 97类别矿体矿床(332)2D丿 (333)j j）矿床图 4 函数参数输入各矿体
8、类别资源量求和，可使用Excel的“Sum”函数。（2）矿体、矿床品位计算矿体、矿床品位计算时，其类别品位是分散分布的，不便于使用WeightedAverage（）计 算。为此，可使用Excel “数据” / “筛选” / “自动筛选”方法，将筛选结果复制后进行计 算。具体操作如下：选取表格任一单元格，点击“数据”/“筛选”/“自动筛选”，各字段旁出现筛选箭头 （图 5）。这时，点击“块段编号”旁的箭头，选中“类别”，则所有类别的计算结果被筛选出来（图6）。将“D8”至“F48”的数据（6行x3列）复制到表格下方，即可进行计算。A1:-DE1茁床品怪汁11婕2:门第一品垃艷;1卜3堰号：TFs
9、irFe4F332-2L7.731JL3L.1T5332-2测$.6L20 P66323-3.432创2D.P47血曲164.332盃20.S4SM7S1J31j6520 9P13S1-谨0莊55317511S2d-：21L7.5弟空2L 0411鞠百71.2弟皿：1L汕1-3EM9230343013333-J335H.3P2L.3514333-631.1U5L30.3515S0-76J.133302L.7516saw49.S32.762L.5417333-975.723 02DJP1 :MJ32.S20JJ1-|1LTM331.13J 9420215530.9d刃F332J14432WL5.63Ar：1)-F1忙耳讪穿F.矿体主4块段覺垢至:- 4册位理i -Qr舷类别733.331552D.f?19r妙LD36.331 ?32D.P4加亦1J5.Br 31/24P 1B.3036LLr妙夹別536.132D41B.5TdoF :：9刘F 3d92r 2：./P” 3、类别132.1鹑31胡.PT图 5 自动筛选图图 6 类别筛选结果图对于按样长进行品位加权平均计算时，在“函数参数”文本框中选择样长和品位即可。 3、结论 本例提供了创建和使用自定义函数的方法，读者可据此自定义自己所需的其它函数。 本方法自定义的宏只对本工作簿有效。若要对其它工作薄有效，应使用加载宏方法。
