标签:普通教育资料,http://www.jiaoshi66.com
用Excel制作学生成绩条,
用Excel制作学生成绩条
现在很多学校都在使用excel来处理学生成绩,但是处理完成绩之后,怎样才能将每个学生的成绩以成绩条方式发给学生呢?这可是个头痛的问题,因为处理完成绩之后会发现,成绩表只有一个表头(如:班别、年级、编号、姓名、总分、名次等),如何才能使每一个学生的成绩记录都有一个表头呢?
有的同事这样想:首先在每个学生的成绩记录之前插入一个空白行,然后再将表头复制到空白行上不就可以了吗?刚开始时觉得还是有点道理的,可是后来想了一想,我们学校有2000多学生,如果用这种方法给每位学生的成绩记录制一个表头,那得用多少时间?
如果能自动完成这个过程,那可是最好的,于是我想到了用excel的vba来制作学生成绩条。
解决问题的思路
因为每个学生只有一个学号,所以学号是惟一的,根据学号惟一性这一特点,使用vba里的判断语句,如果学号不同,就在两者之间插入一个空白行,然后再在每个空白行粘贴复制的表头,最后使用循环语句,自动制作每个学生成绩记录的表头。
解决问题的方法
打开学生的成绩表,我们需要另存为另外一个表来制作成绩条,以免影响成绩表的原貌。
在vba的工程资源管理器中双击sheet1,然后出现代码窗口,在代码窗口输入如下代码:
sub cjt()
application.screenupdating = false
sheets(1).[a1].currentregion.copy sheets(2).[a1]
’将表一的成绩表复制到表二
a=(application.worksheetfunction.counta(sheets(2).[b2:b2000]))*2
’sheets(1).[b2:b2000]的字符数的2倍
sheets(2).[a1:r1].borders(xledgetop).linestyle = xldouble
’sheets(2).[a1:r1]的下边框是双线
for i = 2 to a
if sheets(2).cells(i, 3) <> sheets(2).cells(i + 1, 3) and (sheets(2).cells(i, 3) <> "") then
sheets(2).rows(
i + 1).insert
end if
’如果第三列的上下单元格的值不相等,则在它们之间插入一个空白行
if sheets(2).cells(i, 3) = "" then
sheets(2).[a1:r1].copy sheets(2).cells(i, 1)
end if
’如果第三列中的单元格是空的,则将sheets(2).[a1:r1]复制到此行
next
application.screenupdating = true
end sub
论教师教育的开放性
内容提要:文章通过分析国外教师教育发展的历史经验和中国国情,认为教师教育由封闭型向开放型转变是必然的发展趋势,当前我国教师教育改革的时机已经成熟,具有调整教师教育结构的条件;并认为教师教育转型、开放的实质是提高教师教育的水平,而不是培养形式的变化。现在谈论教师教育的热点是两个问题 阅读全文 >>
乡党政办公室主任党性分析材料
我于1998年参加工作,20**年加入中国共产党,1998年到部队工作,现任合义乡党政办公室主任。辩证地说,入党这几年,是边工作边犯错误,边反思边学习提高,边鼓劲边向前进的几年。自保持共产党员先进性教育活动开展以来,我积极参加集中学习培训,通过认真学习《保持共产党员先进性教育读本 阅读全文 >>
×电力企业文化动员报告
立足本土转变观念营造氛围培育创新努力构筑公司先进企业文化---在XX发电有限责任公司六届七次次职工代表暨会员代表大会上的专题报告20**年2月12日XXX各位代表、同志们:随着电力体制改革的不断推进,建立产权明晰、政企分开,权责明确、科学管理的现代企业制度,增强自身的核心竞争力, 阅读全文 >>
三农问题”的影响与出路
全面建设小康社会的重点在农村。没有九亿农民的小康就没有中国的小康。中国最大的问题在农村。农民富则天下富,农民稳则天下稳。农业强,则天下强。90年代中期以来中国出现了以“农村经济发展缓慢,农民增收困难,农民负担沉重”为核心的“三农问题”。“三农问题”已经成为制约中国经济发展的一个瓶 阅读全文 >>
物业公司经理述职报告
20**年3月,组织上调任我为xx社区副主任。回顾在xx物业公司担任经理的6年来,所取得的成绩离不开中心党委和中心以及机关各科室的大力支持。在这6年中,我时刻不忘作为一名党员干部的神圣职责,XX虽然班子成员几经变动,但我始终与班子成员团结协作,带领公司全体干部职工以“创一流物业管 阅读全文 >>