VBA作业.xls

第一次作业:
习题一:
,然后:
(1)用公式计算各科的最高分、最低分及平均分;
(2)设置平均分单元格为1位小数数值格式
(3)将外语成绩高于平均分的学生筛选出来。
姓名数学语文外语
白晓敏 98 69 90
黄新 80 78 88
张生超 79 87 78
余沿 68 90 94
刘春生 88 85 80
张小海 78 68 77
最高分: 98 90 94 √
最低分: 68 68 77
平均分:
习题二:
在Exce单元格区域设置自定义数字格式,实现如下效果:在该区域的任意单元格中输入数字1,
则显示为√,其他数据原样显示。
习题三:
在Exce工作表中有大量数据,要删除所有偶数行的数据,请用尽可能简单的方法完成这项操作。
第二次作业:
习题一:
编写程序实现如下操作:当单击“产生随机数”按钮时,会在指定的单元格中重新产生随机数,当单击“随机数求和”按钮时,会给出消息框,提示“和”是否正确。
第一个数: 32
第二个数: 10
和是:
习题二:
编程产生九九表,并且适当的修饰九九表。
1 2 3 4 5 6 7
1 1
2 4
3 9
4 16
5
6
7
8
9
第三次作业:
习题一:
将“作业”工作表复制到本工作簿所有工作表的最后,并且改名为“excel作业1”
如果“excel作业1”已经存在,则命名为“excel作业2”,以此类推。
习题二:
将“1月”和“2月”两工作表中的明细数据合并到一个新的数据表中,上下排列,如"汇总数据"表所示,并将新的数据表重命名为“汇总数据”。
注:明细表中行数和列数均不定,但各个工作表中的行列数量相同。
第四次作业:
习题一:
有一学生成绩表(学号,姓名,性别,平时成绩,实验成绩,期末成绩,总评成绩,排名),编写工作表的change事件实现如下功能:
,系统会自动求出该学生的总分和名次。所有成绩均以百分制计。并将总评成绩不及格的突出显示。
总评成绩=平时成绩*20%+实验成绩*30%+期末成绩*50
“不及格学生名单”的工作表,将所有总评成绩不及格的学生信息填入其中。


姓名数学语文外语
余沿 68 90 94
白晓敏 98 69 90
黄新 80 78 88
刘春生 88 85 80
张生超 79 87 78
张小海 78 68 77
最高分: 98 90 94
最低分: 68 68 77
平均分:

0
哈哈













8 9


















第一次作业:
习题一:
,然后:
(1)用公式计算各科的最高分、最低分及平均分;
(2)设置平均分单元格为1位小数数值格式
(3)将外语成绩高于平均分的学生筛选出来。
姓名数学语文外语
白晓敏 98 69 90
黄新 80 78 88
张生超 79 87 78
余沿 68 90 94
刘春生 88 85 80
张小海 78 68 77
最高分: 98 90 94 √
最低分: 68 68 77
平均分:
习题二:
在Exce单元格区域设置自定义数字格式,实现如下效果:在该区域的任意单元格中输入数字1,
则显示为√,其他数据原样显示。
习题三:
在Exce工作表中有大量数据,要删除所有偶数行的数据,请用尽可能简单的方法完成这项操作。
第二次作业:
习题一:
编写程序实现如下操作:当单击“产生随机数”按钮时,会在指定的单元格中重新产生随机数,当单击“随机数求和”按钮时,会给出消息框,提示“和”是否正确。
第一个数: 32
第二个数: 10
和是:
习题二:
编程产生九九表,并且适当的修饰九九表。
1 2 3 4 5 6 7
1 1
2 4
3 9
4 16
5
6
7
8
9
第三次作业:
习题一:
将“作业”工作表复制到本工作簿所有工作表的最后,并且改名