门外汉学VBA系列教程 教学考试成绩统计实例
阅读权限20
在线时间 小时
第二讲 VBA与宏
悟空：VBA与宏，谁是孩子谁是爹？
唐僧：阿弥陀佛！色既是空，空既是色！……
VBA 即Visual Basic for Application， 是Visual Basic 的一个派生体，是依附于 Microsoft Office 系列软件的自动化语言。利用Excel VBA可以直接对Excel对象进行编程， 可以提升数据处理速度，可以增强Excel的自动化能力，从而提高Excel的利用效率，使用户更高效地完成特定任务。
什么是宏？笔者理解宏其实就是VBA。宏是用户用VBA程序设计语言编写或录制的程序，其中保存有一系列Excel的命令，可以被多次重复使用。宏可以自动执行复杂的任务，减少完成任务所需的步骤。
对VBA初学者而言，不可能完成所有关于Excel操作代码的记忆，甚至对熟练者来说也相当有困难。而在Excel中，VBA代码可以是录制的，而不是写出来的，带来的好处是，学习曲线变得非常缓。
在Excel中，可以用Excel提供的宏录制工具录制宏程序， 也可以使用它提供的“VBE”窗口直接编写或修改宏。
【VBA实练】 录制宏
录制一个能在成绩工作内统计班级个人总分及各科总分的宏。成绩工作表如图2-1所示。
2-1.jpg (24.26 KB, 下载次数: 0)
09:26 上传
1、菜单栏选择“工具”菜单——“宏”——“录制新宏”，如图2-2所示。
2-2.jpg (12.22 KB, 下载次数: 0)
09:26 上传
2、在弹出的“录制新宏”对话框中设置“宏名”、“快捷键”、“保存在”后，单击“确定”，如图2-3所示。
2-3.jpg (20 KB, 下载次数: 0)
09:26 上传
3、成绩工作表中的“F1”单元格输入“总分”，激活“F2”单元格，在名称框输入“F2:F12”后按“Shift+Enter”组合键，使F2:F12区域被选中，光标定位编辑栏输入公式“=SUM(B2:E2)”后按“Ctrl+Enter”组合键，在F2:F12区域输入计算总分公式，如图2-4所示。
2-4.jpg (49.42 KB, 下载次数: 0)
09:26 上传
4、按以上方法在“B13”单元格输入“总分”，并在“B13:E13”单元格区域输入公式“=SUM(B2:B12)”，如图2-5所示。
2-5.jpg (53.09 KB, 下载次数: 0)
09:26 上传
5、菜单栏——“工具”——“宏”——“停止录制”，如图2-6所示，结束宏的录制。
2-6.jpg (19.09 KB, 下载次数: 0)
09:26 上传
说明：当录制宏的工作开始后，所有的操作步骤都将被记录在宏中，所以应尽量减少不必要的或错误的操作，如果在录制宏时出现失误，更正失误的操作也会记录在宏中。
阅读权限20
在线时间 小时
三、属性窗口
在工程资源管理器选中某个工程部件后，可以在属性窗口中修改它的属性，当然也可以用代码修改，部分属性还可以直接在Excel窗口用菜单操作修改。在这里先讲工作表的属性设置。如图1-15所示。
1-15.jpg (45.06 KB, 下载次数: 0)
15:02 上传
1、名称：修改对应的内容如图红色箭头所示，该属性不能在Excel窗口通过菜单操作修改。
2、Name：该属性也可以通过Excel窗口通过菜单操作修改。如图1-16所示，左键双击工作表标签或者右键单击弹出的右键菜单选择“重命名”即可修改。
1-16.jpg (23.92 KB, 下载次数: 0)
15:02 上传
3、Visible：决定工作表是否可见。
设置为-1（xlSheetVisible）工作表可见；
设置为0（xlSheetHidden）工作表不可见（即隐藏），这种设置可通过工作表菜单使工作表显示。
菜单栏选择“格式”——“工作表”——“取消隐藏”，如图1-17所示。
1-17.jpg (22.15 KB, 下载次数: 0)
15:02 上传
在弹出的“取消隐藏”窗口中选择要取消隐藏的工作表名后点“确定”即可显示该工作表，如图1-18所示。
1-18.jpg (12.67 KB, 下载次数: 0)
15:02 上传
设置为2（xlSheetVeryHidden）工作表不可见（即深度隐藏），这种设置不可通过工作表菜单使工作表显示，只能通过VBE窗口中的“属性窗口”或代码修改。
四、调整/打开/隐藏窗口
1、打开/隐藏窗口：如图 1-19 所示，可以通过单击“视图”菜单下各个窗口的按钮打开窗口，或者单击各个窗口标题栏右上角的“×”关闭窗口。
1-19.jpg (69.69 KB, 下载次数: 0)
15:02 上传
如果“视图”不能打开窗口，请进行如图1-20及图1-21所示设置后才能通过“视图”打开窗口。
1-20.jpg (19.84 KB, 下载次数: 0)
15:02 上传
1-21.jpg (26.73 KB, 下载次数: 0)
15:02 上传
2、调整窗口
你可以根据自己的需要随意移动或调整每个窗口，可通过右键单击标题栏弹出相应选项即可，如果该窗口已处于最大化需先双击标题栏才能弹出相应选项，如图1-22所示。
1-22.jpg (60.23 KB, 下载次数: 0)
15:02 上传
阅读权限20
在线时间 小时
本帖最后由 阳朔游游 于
10:21 编辑
【VBA秘笈】VBE窗口的重要操作方法
一、工程资源管理器
1、插入或删除工程部件
在工程资源管理器里空白处右击，在弹出的右键菜单里选择“插入”——“模块”或“用户窗体”，如图1-5。如果你想删除它同样也可以在这里进行相应的操作。
1-5.jpg (52.1 KB, 下载次数: 0)
10:18 上传
2、查看代码
每个 VBA 工程部件均有与之相关联独立的代码窗口，如图1-6红方框所示。如果要打开某工作部件的代码窗口查看VBA代码，可以在“工程资源管理器”窗口中双击该工程部件或者右击该工程部件弹出的右键菜单里选择“查看代码”即可，如图1-6所示。
1-6.jpg (61.78 KB, 下载次数: 0)
10:18 上传
二、代码窗口
在这里你大可像编辑WORD文档一样书写、编辑、查看学习代码。看到这么多的代码是不是一头雾水，无所适从呢？
1、学习快捷键【F1】
1-7.jpg (61.7 KB, 下载次数: 0)
10:18 上传
看不懂代码不用怕，如图1-7红框所示，只需要将光标定位在看不懂的代码（如Rows）里，按【F1】键即可打开相应的帮助文件。在 Excel 自带的帮助文件中，我们几乎可以找到所有与 Excel 开发相关的帮助信息，除语法之外，帮助文件中还提供了示例代码供参考。我们可以利用示例代码进行学习和测试。
2、调试学习快捷键【F8】
把光标定位于要运行的代码中，不断按下【F8】快捷键，程序会一条条的运行代码，如图1-8所示，准备运行的代码背景色为黄色；此时把光标定位于某变量里可显示变量当前值，也可在“本地窗口”查看变量值，如图1-8红框所示。你还可以回到Excel窗口查看代码每步运行的效果。
1-8.jpg (76.72 KB, 下载次数: 0)
10:18 上传
3、调试学习快捷键【F5】与【F9】
有些代码已经很明白了，不必一步步查看结果了，如果还是按【F8】运行代码是不是累啊，我们可以把光标定位于想要查看结果的代码里，按下【F9】快捷键或在边框代码所在位置单击（如图1-8暗红色○斑所在位置），当前代码背景色变为暗红色，然后按【F5】，代码运行到当前代码（断点）处停止运行，再按【F8】一步步查看运行效果。
4、自动罗列成员代码
还在为记不住代码而发愁吗？其实你大可不必这么认真的去记，书写代码（如输入range().）时会自动帮你罗列相关代码，就像输入法会出关联词一样，如图1-9所示。这种方法还可以避免我们因马虎输错代码。
1-9.jpg (8.81 KB, 下载次数: 4)
10:19 上传
如果无法自动罗列成员，请进行如下设置：
在菜单栏上选择“工具”——“选项”，如图1-10所示。
1-10.jpg (25.34 KB, 下载次数: 0)
10:19 上传
在弹出的“选项”窗口里勾选“自动列出成员”，如图1-11。
1-11.jpg (30.19 KB, 下载次数: 0)
10:19 上传
5、设置或解除注释块
某些代码想用其他方法的代码代替，但原有代码不想删除，防止辛辛苦苦写的代码不可恢复。【设置注释块】和【解除注释块】工具很好的解决这一问题。
选择要加注释的代码，工具栏单击【设置注释块】工具，设置注释的代码呈绿色，每句开头多了个英文的单引号，如图1-12所示。
1-12.jpg (65.03 KB, 下载次数: 0)
10:19 上传
如果工具栏没有【设置注释块】和【解除注释块】工具，可在菜单栏选择“视图”——“工具栏”——“编辑”调出，如图1-13所示。
1-13.jpg (74.63 KB, 下载次数: 0)
10:19 上传
如果还是没有【设置注释块】和【解除注释块】工具，图1-14所示操作或许可以调出。
1-14.jpg (94.29 KB, 下载次数: 2)
10:19 上传
阅读权限20
在线时间 小时
【VBA入门】 认识VBE窗口
VBE窗口界面如图1-4所示。
1-4.jpg (94.04 KB, 下载次数: 3)
09:27 上传
工程资源管理器：显示当前 VBA 工程中包含的所有部件（工作簿、工作表、窗体、模块、 类模块等）及所有引用的工程。呈树型图示，每个工作薄被认为是一个工程。
代码窗口：显示和编辑 VBA 程序代码。
属性窗口：当前激活的工程部件的主要属性。
本地窗口：显示当前运行的过程中所包含的变量的值。
工具栏：用得最多的是【编辑】工具栏：包含几个在编辑代码时经常使用的菜单项快捷方式的按钮，如代码缩进、 设置注释等。还有【标准】工具栏：包含几个常用的菜单项快捷方式的按钮，如视图切换、运行过程、显示 各窗口的快捷键等。
阅读权限20
在线时间 小时
& & & & & & & &
第一讲 VBE窗口
VBE（Visual Basic Editor）是 VBA 编程的编辑窗口，它与Excel窗口分离但却可与Excel无缝结合，它集成了代码编写、运行、调试以及对象的属性更改和设置于一身，所有的VBA操作都在VBE里完成。
【VBA入门】&&打开VBE窗口
VBA代码是与Excel工作薄文件一起存储，但要查看VBA代码必须先打开VBE窗口，要运行VBE则必须先运行Excel。Excel 2003与Excel 2010打开VBE窗口的方法略有不同，但我用下面的方法在这两个版本中都很凑效。请先把引言中制作的成绩统计工作簿打开。
方法一、快捷键
按组合键【Alt＋F11】即可打开 VBA 编辑器，是不是很简单。
方法二、右键菜单
在Excel窗口左下角的工作表名上右键单击，在弹出的右键菜单中选择“查看代码”即可打开 VBA 编辑器，如图1-1所示。
1-1.jpg (29.06 KB, 下载次数: 0)
09:20 上传
方法三、窗体控件右键菜单
1、在VBA工作表的按钮1右键单击，在弹出的右键菜单中选择“指定宏”，如图1-2所示。
1-2.jpg (13.46 KB, 下载次数: 0)
09:20 上传
2、在弹出的“指定宏”窗口中单击“编辑”即可打开 VBA 编辑器，如图1-2所示。
1-3.jpg (21.61 KB, 下载次数: 0)
09:20 上传
(14.91 KB, 下载次数: 12)
09:22 上传
点击文件名下载附件
阅读权限20
在线时间 小时
【VBA秘笈】启用宏及宏设置
如果office软件缺少vba组件，请重装完整版的office软件，精简版的不要，安装步骤不再哆嗦。如果Excel不能运行宏，请进行如下设置。
在Excel2003版本中，可以依以下步骤操作：
1、在Excel的菜单栏上依次单击“工具”——“宏”——“安全性”，打开“安全性”对话框，如图引言-10所示。
引言-10.jpg (21.87 KB, 下载次数: 0)
10:38 上传
图 引言-10
2、在“安全级”选项卡中将宏的安全级别设置为“中”或“低”。其中推荐使用“中”级，如图引言-11所示。
引言-11.jpg (35.22 KB, 下载次数: 0)
10:38 上传
图 引言-11
3、在宏的安全性级别设置成功后，再次打开Excel程序文件时，会出现提示信息框，如图引言-12所示，此时点击“启用宏”按钮即可正常运行。
引言-12.jpg (21.02 KB, 下载次数: 2)
10:38 上传
图 引言-12
在Excel版本中，可以依以下步骤操作：
1、依次单击Excel的Office按钮（2010版本为“文件”按钮）——“Excel选项”，打开“Excel选项”选项卡，在左侧列表中选择“信任中心”，在右侧出现的窗口中点击“信任中心设置”按钮。
2、打开“信任中心”选项卡，在左侧选择“宏设置”，在右侧出现的窗口中选择“禁用所有宏，并发出通知”选项，单击确定完成。
3、在宏的安全性级别设置成功后，再次打开Excel程序文件时，在信息栏（编辑栏上方）会出现安全警告信息，此时点击其中的“选项”按钮打开Office安全选项对话框，在其中选择“启用此内容”选项并确定即可正常运行。
说明：笔者电脑里只装了Excel 2003，与Excel 2007及Excel 2010无法上图，请谅解。
笔者也是一名VBA初学者，只是想把自己学习的经历表达出来，本着互相学习的态度还望多提宝贵意见；部分学习内容及代码来源于网络，没有一一注明出处，若无意侵犯到您的权益请联系本人删除相关内容（QQ：）；为了方便阅读，笔者把所讲内容分为四部分。
【VBA入门】基础，必读。
【VBA实练】跟着做，相信会有收获。实践出真知，这就是笔者的感悟。
【VBA提高】初学者暂时选择性阅读。
【VBA秘笈】技巧方法。
阅读权限20
在线时间 小时
【VBA秘笈】启用宏及宏设置
如果office软件缺少vba组件，请重装完整版的office软件，精简版的不要，安装步骤不再哆嗦。如果Excel不能运行宏，请进行如下设置。
在Excel2003版本中，可以依以下步骤操作：
1、在Excel的菜单栏上依次单击“工具”——“宏”——“安全性”，打开“安全性”对话框，如图引言-10所示。
引言-10.jpg (21.87 KB, 下载次数: 0)
10:33 上传
图 引言-10
2、在“安全级”选项卡中将宏的安全级别设置为“中”或“低”。其中推荐使用“中”级，如图引言-11所示。
引言-11.jpg (35.22 KB, 下载次数: 0)
10:33 上传
图 引言-11
3、在宏的安全性级别设置成功后，再次打开Excel程序文件时，会出现提示信息框，如图引言-12所示，此时点击“启用宏”按钮即可正常运行。
引言-12.jpg (21.02 KB, 下载次数: 2)
10:33 上传
图 引言-12
在Excel版本中，可以依以下步骤操作：
1、依次单击Excel的Office按钮（2010版本为“文件”按钮）——“Excel选项”，打开“Excel选项”选项卡，在左侧列表中选择“信任中心”，在右侧出现的窗口中点击“信任中心设置”按钮。
2、打开“信任中心”选项卡，在左侧选择“宏设置”，在右侧出现的窗口中选择“禁用所有宏，并发出通知”选项，单击确定完成。
3、在宏的安全性级别设置成功后，再次打开Excel程序文件时，在信息栏（编辑栏上方）会出现安全警告信息，此时点击其中的“选项”按钮打开Office安全选项对话框，在其中选择“启用此内容”选项并确定即可正常运行。
说明：笔者电脑里只装了Excel 2003，与Excel 2007及Excel 2010无法上图，请谅解。
笔者也是一名VBA初学者，只是想把自己学习的经历表达出来，本着互相学习的态度还望多提宝贵意见；部分学习内容及代码来源于网络，没有一一注明出处，若无意侵犯到您的权益请联系本人删除相关内容（QQ：）；为了方便阅读，笔者把所讲内容分为四部分。
【VBA入门】基础，必读。
【VBA实练】跟着做，相信会有收获。实践出真知，这就是笔者的感悟。
【VBA提高】初学者暂时选择性阅读。
【VBA秘笈】技巧方法。
阅读权限20
在线时间 小时
引言-8.jpg (30.95 KB, 下载次数: 16)
10:21 上传
小结 VBA编程与函数公式的比较
1、误操作是函数公式致命弱点，VBA编程具有容错恢复能力。
函数公式对单元格不能删除或剪切，只能清除内容，否则会出现意想不到的错误，如图引言-8所示为剪切粘贴操作后公式引用的单元格地址发生了变化。对于写有公式的单元格更是万万不能乱操作，否则辛辛苦苦写好的公式会变得面目全非。
引言-2.jpg (41.59 KB, 下载次数: 3)
10:22 上传
VBA编程的工作表里您尽可放心大胆编辑、修改，如排序、筛选、删除等操作，如果你进行了以上或者其他误操作，您只需重新轻点“按钮1”即可自动恢复。
2、函数公式限制条件多，通用性不强，而VBA编程操作简单，具有较高的智能性。
也许一个班级会因转学等原因使得班级人数发生变化，科目数量也会因不同的年级而不同。函数公式只能修改公式里的单元格地址引用来适应班级人数及科目数的变化，而VBA编程不受班级人数及科目数的限制，无需人工干预智能适应数据的变化，如图引言-9所示为班级人数增加1人后的统计结果。
引言-9.jpg (75.41 KB, 下载次数: 19)
10:22 上传
3、函数公式文件大速度慢，VBA编程代码文件小速度快。
函数公式储存在单元格里，会占用很大的文件空间，笔者曾用公式制作的一个工作簿有20M之大，因公式多每次计算都花费大量的时间，而VBA无需把大量数据储存在单元格里，文件小而且运行速度很快。
4、函数公式无法人机交互，而VBA编程可人机交互。
后面将会有论述，暂且不作讨论。
教导主任：VBA真是魅力四射啊！
元芳：大人真乃神人也。
阅读权限20
在线时间 小时
本帖最后由 阳朔游游 于
10:32 编辑
方案二、VBA编程
1、如图引言-2所示，在工作簿窗口左下角的“VBA”工作表名上右击，点“查看代码”，进入VBE窗口。
引言-3.jpg (15.85 KB, 下载次数: 22)
10:17 上传
2、如图引言-3所示，在“工程-VBAProject”窗口任意位置右击弹出右键菜单，然后“插入”——“模块”。
引言-4.jpg (28.68 KB, 下载次数: 22)
10:17 上传
3、如图引言-4所示，在“工程-VBAProject”窗口双击“模块1”，把下面的代码粘贴到图示位置。
引言-5.jpg (192.6 KB, 下载次数: 20)
10:17 上传
代码：
Sub VBA成绩统计()
Dim R As Integer, L As Byte '定义变量
With Worksheets(&班级成绩&).UsedRange '班级成绩工作表成绩表区域
& & R = .Rows.Count + .Row - 1 '最后一行行号
& & L = .Columns.Count + .Column - 1 '最后一列行号
& &
& & '清除内容
& & Worksheets(&VBA&).UsedRange.Clear
& & .Copy Worksheets(&VBA&).Range(&A1&) '复制班级成绩到VBA工作表
End With
With Worksheets(&VBA&)
& & '写标题
& & .Cells(1, L + 1).Value = &总分&
& & .Cells(1, L + 2).Value = &名次&
& & .Cells(R + 1, 1).Resize(12, 1).Value = WorksheetFunction.Transpose(Array(&班级人数&, &参考人数&, &总分&, &平均分&, &优秀人数&, _
& & &优秀率&, &及格人数&, &及格率&, &40分以下人数&, &低分率&, &最高分&, &最低分&))
& &
& & '写公式
& & .Range(.Cells(2, L + 1), .Cells(R, L + 1)).FormulaR1C1 = &=SUM(RC2:RC[-1])& '个人总分
& & .Range(.Cells(2, L + 2), .Cells(R, L + 2)).FormulaR1C1 = &=IF(ISNUMBER(RC[-1]),RANK(RC[-1],R2C[-1]:R& & R & &C[-1]))& '名次
& & .Cells(R + 1, 2).Resize(1, L - 1).FormulaR1C1 = &=SUMPRODUCT(1*(R2C1:R& & R & &C1&&&&&&))&&&'班级人数
& & .Cells(R + 2, 2).Resize(1, L - 1).FormulaR1C1 = &=SUMPRODUCT((R2C1:R& & R & &C1&&&&&&)*(R2C:R& & R & &C&&&&&&))& '参考人数
& & .Cells(R + 3, 2).Resize(1, L - 1).FormulaR1C1 = &=SUM(R2C:R& & R & &C)& ' 总分
& & .Cells(R + 4, 2).Resize(1, L - 1).FormulaR1C1 = &=IF(R& & R + 2 & &C=0,&&&&,R[-1]C/R& & R + 2 & &C)& ' 平均分
& & .Cells(R + 5, 2).Resize(1, L - 1).FormulaR1C1 = &=COUNTIF(R2C:R& & R & &C,&&&=80&&)& '优秀人数
& & .Cells(R + 6, 2).Resize(1, L - 1).FormulaR1C1 = &=IF(R& & R + 2 & &C=0,&&&&,R[-1]C/R& & R + 2 & &C)& '优秀率
& & .Cells(R + 7, 2).Resize(1, L - 1).FormulaR1C1 = &=COUNTIF(R2C:R& & R & &C,&&&=60&&)& '及格人数
& & .Cells(R + 8, 2).Resize(1, L - 1).FormulaR1C1 = &=IF(R& & R + 2 & &C=0,&&&&,R[-1]C/R& & R + 2 & &C)& '及格率
& & .Cells(R + 9, 2).Resize(1, L - 1).FormulaR1C1 = &=COUNTIF(R2C:R& & R & &C,&&&40&&)& '40分以下人数
& & .Cells(R + 10, 2).Resize(1, L - 1).FormulaR1C1 = &=IF(R& & R + 2 & &C=0,&&&&,R[-1]C/R& & R + 2 & &C)& '低分率
& & .Cells(R + 11, 2).Resize(1, L - 1).FormulaR1C1 = &=MAX(R2C:R& & R & &C)& '最高分
& & .Cells(R + 12, 2).Resize(1, L - 1).FormulaR1C1 = &=MIN(R2C:R& & R & &C)& '最低分
& &
& & '设置数字格式
& & .Cells(R + 4, 2).Resize(1, L - 1).NumberFormatLocal = &0.00&
& & .Cells(R + 6, 2).Resize(1, L - 1).NumberFormatLocal = &0.0%&
& & .Cells(R + 8, 2).Resize(1, L - 1).NumberFormatLocal = &0.0%&
& & .Cells(R + 10, 2).Resize(1, L - 1).NumberFormatLocal = &0.0%&
End With
End Sub复制代码
4、如图引言-5所示，激活工作簿窗口，菜单栏点“视图”——“工具栏”——“窗体”，调出窗体控件窗口。
Excel 2010操作方法：单击“开发工具”选项卡中的“插入”按钮，弹出“表单控件”窗口。
引言-6.jpg (14.49 KB, 下载次数: 21)
10:17 上传
5、如图引言-6红框所示，单击“窗体”控件中的“按钮”后在工作表任意位置单击插入按钮。
引言-7.jpg (4.81 KB, 下载次数: 18)
10:18 上传
6、在弹出的“指定宏”窗口中选择“VBA成绩统计”，然后点“确定”，如图引言-7所示。
一个高效的VBA成绩统计表完成，你只需轻点工作表上的“按钮1”，公式自动输入相应位置完成成绩统计。
(41.59 KB, 下载次数: 17)
10:17 上传
收藏，学习一下，谢谢老师
阅读权限20
在线时间 小时
引言&&魅力VBA
教导主任：今儿个要开全校师生段考质量分析会，昨晚方才收齐全校50个班的成绩电子档，若是用Excel统计成绩想必是极好地，但时间紧迫，想来菜单操作恐是来不及了，面对人数科数不同的50个工作簿，函数公式一时半会怕也解不了燃眉之急，据说VBA可一键搞掂。元芳，你怎么看？
元芳：大人英明。使用Excel，菜鸟用菜单操作，中鸟精通函数，老鸟玩转VBA。小人心有戚戚焉，不如我们现在就动手试试？
【VBA实练】&&制作班级成绩统计表
需统计的项目：通过A列统计班级人数，各科目列统计参考人数、总分、平均分、优秀（80分）人/率、及格（60分）人/率、40分以下人/率、最高分、最低分，计算考生个人总分及排名。
新建工作簿，把默认的3个工作表分别重命名为“班级成绩”、“公式”、“VBA”。为防止误操作破坏原始成绩，我们将原始成绩保存在“班级成绩”工作中，因是学习用，只列了10位学生的成绩，学科成绩从第二列开始登记。如图引言-1所示。
引言-1.jpg (24.26 KB, 下载次数: 38)
10:12 上传
方案一、公式法
1、将班级成绩复制粘贴到“公式”工作表中。
2、F1及G1单元格分别写入标题“总分”、“名次”。
3、F2单元格写入学生个人总分计算公式“=SUM($B2:$E2)”，然后拖拉使公式填充至F11单元格。
4、G2单元格写入学生个人总分名次排名公式“=IF(ISNUMBER($F2),RANK($F2,$F$2:$F$11))”，然后拖拉使公式填充至G11单元格。
5、A12至A23单元格分别写入标题&班级人数&、 &参考人数&、&总分&、 &平均分&、 &优秀人数&、&优秀率&、&及格人数&、&及格率&、 &40分以下人数&、 &低分率&，&最高分&、&最低分&。
6、B12单元格写入班级人数统计公式“=SUMPRODUCT(1*($A$2:$A$11&&&&))”，然后拖拉使公式填充至E12单元格。
7、B13单元格写入参考人数统计公式“=SUMPRODUCT(($A$2:$A$11&&&&)*(B$2: B$11&&&&))”，然后拖拉使公式填充至E13单元格。
8、B14单元格写入总分计算公式“=SUM(B$2:B$11)”，然后拖拉使公式填充至E14单元格。
9、B15单元格写入平均分计算公式“=IF(B$13=0,&&,B$14/B$13)”，然后拖拉使公式填充至E15单元格。
10、B16单元格写入优秀人数统计公式“=COUNTIF(B$2:B$11,&&=80&)”，然后拖拉使公式填充至E16单元格。
11、B17单元格写入优秀率计算公式“=IF(B$13=0,&&,B$16/B$13)”，然后拖拉使公式填充至E17单元格。
12、B18单元格写入及格人数统计公式“=COUNTIF(B$2:B$11,&&=60&)”，然后拖拉使公式填充至E18单元格。
13、B19单元格写入及格率计算公式“=IF(B$13=0,&&,B$18/B$13)”，然后拖拉使公式填充至E19单元格。
14、B20单元格写入40分以下人数统计公式“=COUNTIF(B$2:B$11,&&40&)”，然后拖拉使公式填充至E20单元格。
15、B21单元格写入优秀率计算公式“=IF(B$13=0,&&,B$20/B$13)”，然后拖拉使公式填充至E21单元格。
16、B22单元格写入提取最高分公式“=MAX(B$2:B$11)”，然后拖拉使公式填充至E22单元格。
17、B23单元格写入提取最低分公式“=MIN(B$2:B$11)”，然后拖拉使公式填充至E23单元格。
立竿见影，随着公式输入完毕相关成绩统计也已完成。
您需要登录后才可以回帖
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
fx日期相关.xls8页
本文档一共被下载：
次 ,您可免费全文在线阅读后下载本文档
文档加载中...广告还剩秒
需要金币：100 &&
fx日期相关,日期计算器,星座日期,日期计算,2015欧冠决赛日期,12星座日期查询,高考日期,支票日期的填写方法,十二星座日期,2015中考日期
你可能关注的文档：
··········
··········
Asc&WideChar函数
DATEDIF函数
COUNTIF 函数
TODAY&NOW函数
VLOOKUP函数
指定开始进行查找的字符。within_text 中的首字符是编号为 1 的字符。如果忽略 start_num，则假设其为 1。
如果 find_text 是空文本
"" ，则 FIND 会匹配搜索串中的首字符（即：编号为 start_num 或 1 的字符）。
Find_text 中不能包含通配符。
如果 within_text 中没有 find_text，则 FIND 和 FINDB 返回错误值 #VALUE!。
如果 start_num 不大于 0，则 FIND 和 FINDB 返回错误值 #VALUE!。
如果 start_num 大于 within_text 的长度，则 FIND 和 FINDB 返回错误值 #VALUE!。
SEARCH 返回从 start_num 开始首次找到特定字符或文本字符串的位置上特定字符的编号。使用 SEARCH 可确定字符或文本字符串在其他文本字符串中的位置
这样就可使用 MID 或 REPLACE 函数更改文本。
SEARCH find_text,within_text,start_num
是要查找的文本。可以在 find_text 中使用通配符，包括问号 和星号
* 。问号可匹配任意的单个字符，星号可匹
配任意一串字符。如果要查找真正的问号或星号，请在该字符前键入波形符
Within_text
是要在其中查找 find_text 的文本。
是 within_text 中开始查找的字符的编号。
SEARCH在查找文本时不区分大小写。
如果没有找到 find_text，则返回错误值 #VALUE!。
如果忽略 start_num，则假定其为 1。
如果 start_num 不大于 0（零）或大于 within_text，则返回错误值 #VALUE!。
在实际使用中，用search的次数较多。
Statements
SEARCH "e",A408,6
SEARCH A410,A409
REPLACE A409,SEARCH A410,A409 ,6,"Amount"
使用其他文本字符串并根据所指
正在加载中，请稍后...}