简介:该文是关于vba和电子表格毕业论文开题报告范文与自定义类大学毕业论文范文.
摘 要：文章主要利用excel中VBA编程功能的自定义教师职称系数函数、班级上课人数系数函数、上课门数系数函数、每轮次应减课时节数函数和FOR循环语句来统计教师超课时费,通过编程就能提高教学管理者统计教师超课时费的工作效率.
关键词：EXCEL;VBA编程;函数;超课时费
中图分类号：TP391文献标志码：A文章编号：2095-2945（2020）21-0130-02
Abstract： This paper mainly uses the self-defined teacher's professional title coefficient function, the class number coefficient function, the class number coefficient function, the reduced class period function and the FOR cycle sentence of the VBA programming function in excel to count teachers' overtime fees. Through programming, we can improve the efficiency of teaching administrators in counting teachers' overtime fees.
Keywords： EXCEL; VBA programming; function; extra class fee
1 超课时费计算方法
本人一直从事教学管理工作多年,以前使用微软excel办公软件自带的公式计算教师超课时费,在累加教师的课时数计算起来不方便,后来我发现excel中有VBA编程功能可用于计算教师超课时费简单方便实用.我校的甲教师一周内在1班上A课、在2班上A课、在3班上B课的超课时费是怎样计算呢?首先,计算甲教师一周内1班A课的教学工作量等于甲教师1班A课实际课时乘以（1+职称系数+上课门数系数+1班上课人数系数）;其次,用同样的方法计算甲教师一周内在2班上A课、在3班上B课的教学工作量;再次,将甲教师一周内在1班上A课、在2班上A课、在3班上B课的教学工作量累加再加上甲教师附加工作量,得到这个工作量称为甲教师折算后工作量合计.最后,甲教师折算后工作量合计减去应减的工作量得到折算后超课时节数,甲教师课时费等于折算后超课时节数乘以每节课时费.
2 用VBA编写程序统计教师超课时费步骤
第一步：准备教师课堂教学的基本信息表.
第二步：用FOR循环语句计算该系部全部教师某班某门课的教学工作量小计和附加工作量.在开发工具栏中,插入一个窗体控件按钮在表格中,打开VB编辑器,在按钮代码内输入如下代码
mjk 等于 InputBox（"每节课时费（元）"） '输入课时费
b 等于 Sheet1.Range（"A" & Rows.Count）.End（xlUp）.Row '统计A列有数据行数
For i 等于 5 To b Step 1 '某教师某班某门课的教学工作量小计和附加工作量
Sheet1.Cells（i, 12） 等于 Sheet1.Cells（i, 8） * （1 + skrsxs（Sheet1.Cells（i, 10）） + skmsxs（Sheet1.Cells（i, 11）） + zcxs（Sheet1.Cells（i, 4）））
Sheet1.Cells（i, 15） 等于 Sheet1.Cells（i, 12） + Sheet1.Cells（i, 14）
Next i
在上述代码中调用了教师职称系数函数（zcxs）、班级上课人数系数函数（skrsxs）和上课門数系数函数（skmsxs）, 这些函数中都使用了判断条件语句来判断教师职称、上课人数和上课门数每节课应该增加多少系数.
Function zcxs（zc） '职称系数函数
Select Case zc
Case "教授"
zcxs 等于 0.2'职称是教授每节课增加0.2系数
Case "副教授"
zcxs 等于 0.15 '职称是副教授每节课增加0.15系数
Case "讲师"
zcxs 等于 0.1'职称是讲师每节课增加0.1系数
Case Else
zcxs 等于 0 '职称是助教每节课增加0系数
End Select
End Function
Function skrsxs（skrs） '班级上课人数系数函数
If skrs >等于 100 Then
skrsxs 等于 0.3'班级上课人数100人及以上每节课增加0.3系数
Else
If skrs >等于 90 Then
skrsxs 等于 0.25 '班级上课人数在90-99人每节课增加0.25系数
Else
If skrs >等于 80 Then
skrsxs 等于 0.2'班级上课人数在80-89人每节课增加0.2系数
Else
If skrs >等于 70 Then
skrsxs 等于 0.15 '班级上课人数在70-79人每节课增加0.15系数
Else
If skrs >等于 60 Then
skrsxs 等于 0.1'班級上课人数在60-69人每节课增加0.1系数
Else
If skrs >等于 50 Then
skrsxs 等于 0.05 '班级上课人数在50-59人每节课增加0.05系数
Else
skrsxs 等于 0'班级上课人数在50人以下每节课增加0系数
End If
End If
End If
End If
End If
End If
End Function
Function skmsxs（skms） '上课门数系数函数
If skms >等于 3 Then
skmsxs 等于 0.2'教师上课门数3门及以上每节课增加0.2系数
Else
If skms 等于 2 Then
skmsxs 等于 0.1'教师上课门数2门每节课增加0.1系数
Else
skmsxs 等于 0 '教师上课门数1门每节课增加0系数
End If
End If
End Function
在运行上述代码后,就计算系部全部教师某班某门课的教学工作量小计和附加工作量.
第三步：利用内层FOR循环语句计算系部某教师的折算后工作量合计节数.
第四步：利用嵌套FOR循环语句和调用每轮次应减课时节数函数（yjksjs）计算某系部全部教师折算后超课时补贴合计节数和超课时费代码见如下
For i 等于 5 To b Step 1
k 等于 0
l 等于 0
For j 等于 i To 20 + i Step 1 '某教师的折算后工作量合计节数
If Sheet1.Cells（i, 3） 等于 Sheet1.Cells（j, 3） Then
k 等于 k + Sheet1.Cells（j, 15）
l 等于 l + Sheet1.Cells（j, 12）
Else
Exit For
End If
Next j
Sheet1.Cells（i, 16） 等于 k
Sheet1.Cells（i, 18） 等于 Sheet1.Cells（i, 16） - yjksjs（Sheet1.Cells（i, 5）, l） + Sheet1.Cells（i, 17） '某教师折算后超课时补贴合计节数
If Sheet1.Cells（i, 18） < 0 Then
Sheet1.Cells（i, 19） 等于 0
Else
Sheet1.Cells（i, 19） 等于 Round（mjk * Sheet1.Cells（i, 18）, 1） '某教师超课时费保留一位小数
End If
Range（Sheet1.Cells（i, 16）, Sheet1.Cells（j - 1, 16））.Merge '合并单元格
Range（Sheet1.Cells（i, 17）, Sheet1.Cells（j - 1, 17））.Merge '合并单元格
Range（Sheet1.Cells（i, 18）, Sheet1.Cells（j - 1, 18））.Merge '合并单元格
Range（Sheet1.Cells（i, 19）, Sheet1.Cells（j - 1, 19））.Merge '合并单元格
i 等于 j - 1
Next i
Function yjksjs（a, l） '每轮应减课时节数函数
If a 等于 "专任教师" Then
yjksjs 等于 10 * 4 '专任教师每周教学工作量10节,每轮四周应减40节课
Else
yjksjs 等于 l / 2 '教师教学工作量减半计算
End If
End Function
3 结束语
在使用VBA编程后教师超课时费汇总表模板已经在学校的各个教学系部广泛使用,受到教学秘书青睐,大大提高工作效率和计算准确率.在教师超课时费汇总表模板中,虽然某系部甲教师和乙教师姓名相同并且数据录入行连续,就会计算给一个教师,但是我们可以通过给名字相同教师加入一个数字进行区别.另外一般情况下每轮次是统计四个周超课时费,所以专任教师每轮次应减课时节数为40节,但是根据学校实际情况是每学期最后四周安排两周教学和两周考试,这样专任教师这轮次应减课时节数为20节,只需将每轮应减课时节数函数中4改为2就可以统计教师超课时费.
参考文献：
[1]杨洋.基于VBA的教学工作量及课时费核算系统设计——以天津职业大学为例[J].无线互联科技,2020,17（03）：80-81.
[2]贺婧.Excel VBA在道路工程测量中的应用[J].科技创新与应用,2020（08）：185-186.
[3]喻靖,朱峰,夏瑞杰.基于Excel VBA实现油田报表自动化设计[J].价值工程,2020,39（09）：193-194.
[4]邹传树.运用Excel_VBA编程实现一键批量发送工资条[J].电脑知识与技术,2019,15（28）：58-59.
总结：该文总结：上文是一篇关于经典vba和电子表格专业范文可作为自定义方面的大学硕士与本科毕业论文vba和电子表格论文开题报告范文和职称论文论文写作参考文献.
自定义引用文献:
[1] VBA论文范文素材 关于autocad和电子表格学年毕业论文范文2万字
[2] 电子表格论文如何怎么撰写 关于电子表格相关论文范文检索2500字
[3] 软件和电子表格论文如何怎么撰写 软件和电子表格开题报告范文2000字
