当前位置:大学毕业论文> 学年论文>材料浏览

关于浅谈方面论文参考文献范文 与VBA在EXCEL教学中的作用类专科开题报告范文

主题:浅谈论文写作 时间:2024-02-11

VBA在EXCEL教学中的作用,该文是关于浅谈方面毕业论文怎么写与EXCEL教学和作用和浅谈VBA有关毕业论文怎么写.

浅谈论文参考文献:

浅谈论文参考文献 教育教学论坛杂志外语教学期刊教学论文范文教育教学论坛期刊

吴秀英

(江西环境工程职业学院 江西 赣州 341000)

摘 要:利用VBA可以快速地实现将多个工作簿内容汇总,EXCEL教学中经常需要对学生信息进行汇总,利用这个功能可以避免重复的复制和粘贴操作,大大节省了操作的时间,提高了课堂效率.本文利用VBA对学生信息进行初步汇总,并提出号汇总出错的解决方法.

关键词:VBA;合并工作簿;EXCEL教学;课堂效率

作者简介:

吴秀英(1983—),女,汉族,江西抚州人,本科,研究方向:计算机应用.

在EXCEL教学中,第一次上课教师一般会收集学生的信息作为今后教学的素材,这样做的好处是学生对自己的信息比较感兴趣,课堂效果较好.假设我要收集学生下列信息,我让每个学生新建了一个工作簿,每个学生都在sheet1表中完成如下表格,文件名命名为学生的名字,最后提交作业后所有学生作业都在一个公共文件夹下,现在要对这些文件进行汇总,把不同学生的信息汇总到一个工作簿里,以前我们大多是用复制粘贴的方式完成,但是班级人数较多,利用这种方式需要不断打开和关闭工作簿,非常麻烦,而且有可能重复操作.利用VBA可以轻松地解决这个问题.

一、利用VBA实现信息汇总

新建一个“汇总”工作簿,类型为“启用宏的工作簿(*.xl)”,打开EXCEL,调出开发工具,点击VB按钮,插入两个模块分别为“模块1”和“模块2”,在“模块1”中输入如下代码,并运行.

Sub合并多工作簿及多工作表()

Dim MyPath As String,MyFile As String,i As Integer

Dim Wb As Workbook,arr

Application.ScreenUpdating等于False

MyPath等于ThisWorkbook.Path

MyFile等于Dir(MyPath &”\*.xlsx”)

Do Until MyFile等于””

If MyFile<>ThisWorkbook.Name Then

Set Wb等于Workbooks.Open(MyPath &”\”& MyFile)

‘For i等于1 To Wb.Worksheets.Count

arr等于Sheets(1).UsedRange

ThisWorkbook.Sheets(1).Range(“A”& Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr),UBound(arr,2))等于arr

‘Next

Wb.Close

End If

MyFile等于Dir

Loop

Application.ScreenUpdating等于True

End Sub

该模块的主要作用是将同一个文件夹下的若干工作簿汇总到一个工作簿里,运行后得到汇总后效果如图:

删除第一行空行后,从第三行开始,奇数行都是重复标题行,所以,在“模块2”中输入如下代码,并运行.

Public Sub隔行删除()

m等于Application.CountA([a:a])

For r等于3 To m/2+2

Rows(r).Delete

Next r

End Sub

运行后得到汇总后的效果:

这样就快速地汇总好了数据,将汇总后的数据进行保存,并进行后续的处理.

二、使用VBA进行信息汇总需要注意的几个问题

(1)要汇总的工作簿需在一个文件夹内,凡是与“汇总”工作簿不同名的工作簿都能被汇总.

(2)每个学生的sheet1表中的数据必须从A1单元格开始输入,B1单元格必须有对应的数据,否则汇总不到.中间不要有空行,数据的列顺序尽量保证相同.

(3)在汇总号的时候,如果号是纯数字的,即不带X字样的,虽然在汇总前已经将数据类型设为文本型了,但是汇总后还是会出现数据变化的情况,最后3位会变成0.解决的办法是汇总前每个同学在号后统一加上一个字母如Y,汇总后再用函数进行提取.或者如本例所示,在号前6位,中间8位后面分别加上点号,汇总后再分别用left,mid和right函数处理也比较方便.

(4)汇总后的文本型数据如学号,电话,等,会丢失文本属性,需要用分列的功能将其重新设置为文本类型.

参考文献:

[1]http://www.51zxw.net/.

综上而言:本文是适合EXCEL教学和作用和浅谈VBA论文写作的大学硕士及关于浅谈本科毕业论文,相关浅谈开题报告范文和学术职称论文参考文献.

教师激励性语言在师生有效对话教学巾的作用
激励性的语言在教学过程中有重要的作用,不仅能够促进对话教学效率的提升,还能够拉近师生之间的距离,建立和谐平……的师生关系,帮助学生树立学习信心,强化学习动力   一、把握激励时机,促进学生积极性的提高.

多感官互动训练系统在特殊教育学校语文教学中的作用
【摘要】对于如何让特殊教育学校的孩子们能够感知到精彩的外部世界,这个问题是非常值得思考的 多感官训练系统就是一种较好的教学方式,能够较好地促进特殊教育学校的孩子们康复 因此,将对特殊教育学校语文教学中.

动手操作在小学数学教学中的作用
刘四萍【摘要】随着我国教育事业的不断发展,在小学数学的教学过程中,对小学生动手操作能力的培养成为最为重要的教学任务之一,动手操作在小学数学教学过程中起到了至关重要的作用 主要从动手操作能够激发学生的学.

论文大全