如何调动小组合作学习过程中学生的积极性和如何通过EXCEL制作一个录入收集系统

如何调动小组合作学习过程中学生的积极性

俗话说“众人拾柴火焰高”，小组合作学习以它的优势越来越受到老师们的青睐，那么如何调动小组合作学习过程中学生的积极性呢？为此，我们五年级数学组全体教师结合平时教学，同时我给学生也做了问卷调查，请同学们写写什么样的方法更能激起同学们合作学习的欲望。现在，我将学生问卷调查的情况以及我在教学中的实践谈谈我的看法，请领导和各位老师批评指正。一．原因分析从学生层面看，主要原因有：学生没有有效的掌握小组合作学习的方法；部分学生存在依赖心理；对学习没有兴趣，采取无所谓的态度；每天每节课都这样进行，部分学生缺乏新鲜感，产生疲劳感等等。二．方法建议1.兴趣激励兴趣是激发学生学习的兴奋剂，如果学生对小组合作学习毫无兴趣甚至排斥，那么这个合作就是毫无意义的。推行小组合作这种模式，部分学生很反对，他们总认为，这种模式浪费他们的时间，尤其是尖子生更是觉得无助于他们的提高，有学生甚至还私下里说采用这种模式会害了他们。对此种种反对的声音，我只是针对课堂里学生个体较为难以解决的问题设计一个或两个抛出来，学生觉得不突兀，而且认为的确需要团队合作来解决，他们渐渐地接受了小组合作的这种模式。在学生开始对小组合作有了一定兴趣了，我就在我的课堂根据学情和教情更广泛地运用小组合作，比如，合作检查教材内容的记忆落实情况，练习完成情况，错题更正情况等等。当我给学生布置作业要写写什么样的评讲方式更能激起学生参与到合作中来，我的学生主动的告诉我：“老师，我们要小组合作来完成。”看来，学生们都已经接受了这种模式，从这种模式中尝到了学习的快乐和学习的收获，今天，还主动提出来我们要小组合作。2．竞争激励竞争是激发学生积极参与的催化剂。心理学研究表明，竞争比平常状态有更大的紧张感，压力感。在竞争过程中学生想获得自尊心﹑成就感的需要更为强烈，潜在的动机可转变为学习的动力。竞争使同学们在学习中你追我赶，力争上游，它是促使学生完成各项学习任务的“催化剂”。因此，竞争也是一种激发学生积极参与学习的有效激励。我在教学过程中采取了这样的竞争机制，开设“最佳合作团队奖”和“最优秀小组长奖”。根据已经分好的小组，每节课以小组为单位，对每个成员的课堂表现﹑作业完成情况等，加分或者扣分，一节课后或一周后进行统计，积分最高的组授予“最佳合作团队奖”，而这个组长则获得“最优秀小组长奖”。3．评价激励对于评价的权力属于谁，我们往往认为这是老师的事情，我在调查中发现，学生不仅渴望得到老师的评价，也希望能得到家长和同伴的认可。（1）同伴互评。在小组合作学习的过程中，小组长会按照老师安排的任务合作共学。在组内交流的过程中学生对于同伴的发言不仅要认真的倾听，而且还要对同伴的表现从完成的速度﹑完成的质量等方面给予评价。为了能得到同伴的肯定，学生会主动积极的学习，得到同伴的肯定后，他参与小组合作学习的热情会更高。（2）组间评价。在小组展示学习成果的过程中，第一小组展示合作成果之后，他组要对第一小组的成果进行评价。这就改变了以往教师评学生听的局面，让学生真切的感受到自己的主人。通过这种评价，既使学生增强集体责任感﹑集体荣誉感，还进一步提高其分析能力。（3）教师评价。教师的评价是小组合作学习质量的保证，是学生进步的强化剂，教师的评价是贯穿在课堂的各个环节中的。在小组合作学习的过程中，教师要细心观察学生合作的表现，并及时给予评价，比如：“你们小组分工明确，各尽其职，动作迅速，而且合作愉快，值得大家学习！从而为其他小组树立榜样。其他小组在先进小组的鞭策下，也积极调整自己的合作方式，迅速得出探讨的结论。（4）自我评价。在一节课近尾声的5分钟，我常常会给学生布置一个任务，那就是对自己前35分钟的表现进行一个小结和自我评价。学生在自我反思和自我评价的过程中，回顾了一节课所学，收获了已经掌握的内容，遇到问题也可以自我调整和自我完善，如有疑问不能解决，可以记录下来提出来作为下一节课小组合作探究的问题。（5）家长评价。每周的家长开放日以及班级qq群便于家长和老师在一起交流学生的学习情况等，在以后的课堂和考试中，部分学生都有很大的改善。这些给我带来极大地感悟，我们也可以把小组合作学习表现优秀的学生家长也请来一起接受“最佳合作小组奖”“最优秀组长奖”等奖项。这样就更能促进学生参与小组合作学习，也更能调动学生学习的主动性。调动学生小组合作学习积极性的方法和技巧激发心态的表现，也是一种良好的习惯。学生良好的行为习惯的培养，当别人发表不同意见时，其它同学安静坐好，边听边思考，积极构建自己的认知，认真听取别人不同的见解，主动获取信息。教师应满怀期望地鼓励学生大胆表达独特见解，富于机智地引导启发。学生自由放飞想像，他们的发言就会出人意外的精彩。通过本课题的研究发现，在小组合作学习中，激发学生自主合作学习的积极性，主要注意做到以下几点：（1）老师要不断监控小组活动，做观察记录，及时对小组活动进行反馈，针对学生争持不下或思维受阻不能深入时，老师必须介入，及时点拨，排除思维障碍。（2）小组活动中，老师要告诉学生注意倾听他人的发言，有礼貌地阐述自己的观点，不要把自己的观点强加与人。老师可以把要注意的问题编成口诀贴在教室前面，让学生牢记。如：“小组讨论声音小；开口之前要想好；别人发言认真听；意见不同我不吵；他人不会我帮助；为组争光集体好；无论对错要谦虚；团结互助向前跑。”（3）合作学习是学生之间的互动，师生之间的互动，老师就是这种互动进行的保证者和组织者，因此要求教师要科学地合理地设计合作学习的目标和任务；明确提出合作要求，培养合作技能。（4）在合作学习的过程中，老师要在各小组之间来回巡视，及时了解合作情况，发现学生不能认真参与交流，做与合作学习无关的事情，要及时地加以引导，提出明确要求，确保合作学习顺利进行。（5）充分考虑学生的异质情况，科学分组（男女生、学习较好和学习有困难的、性格内外向互相搭配），避免小组不能很好合作，只有少数人发表意见或因为各组学生差异较大而讨论时间进度相差甚远的现象发生。（6）组织得力，控制时间长短和噪音，防止失控，浪费教学时间。（7）科学地摆放桌椅，以利于学生合作学习。如马蹄型、梅花型、半圆型等。（8）合作学习要实实在在，不能流于形式，搞花架子。有些老师上课，既不根据教学内容，也不考虑学生的实际情况，只是为了适应新课改的要求，简单地把学生围坐在一起。这能是合作学习吗？合作学习的前提是“合作’，而不是“围坐”。围坐在一起的学生真的合作了吗？关键的问题是老师交给学生讨论的问题要有一定的深度，这样才能使“合作”不流于形式。才能让学生把教材作为例子，从学会了到会学了，充分挖掘课程资源，达到由课内的获取到课外的提升。从而真实地体现在学习中合作，在合作中学会学习。问题有一定的探度，讨论也有价值，才能使学生在学习中求得发展，小组合作学习才能落到实处。总之，小组合作学习是一种通过学生之间相互协助、师生之间共同探讨学习知识的学习方法，它改变了学生以往单调、枯燥的学习方式，给学生创造了更多参与学习的机会，使学生在合作中，集思广益，各抒己见，积极思考。让学生在合作中学会学习，在学习中学会合作，增进了同学间的感情交流，改善了人际关系，有利于学生发挥出自己的最高水平，有助于培养学生必需的合作技能。在我的教学实践的活动中，我尝试着结合学生的年龄特点和认知水平，对学生采取了多种评价方式，充分调动每个学生的参与意识和学习的积极性，提高合作学习质量，提高了教学的有效性。如何通过EXCEL制作一个录入收集系统？一、数据采集系统功能录入、保存、查询、清空、修改

二、两个界面

1.数据录入界面：前台功能使用界面，实现“录入、保存、查询、清空、修改”；2.数据存储界面：后台实现数据的保存；录入界面：三、实现方法1.保存功能SubSave()'

'保存数据Marco，xiaohou制作，时间2013-9-5'

Dimr1,r2,r3AsRangeWithSheets("数据存储")

Setr2=.Range("a2",.[a100000].End(xlUp))EndWith

WithSheets("数据录入")

Setr1=.Range("c4:e4,d6:l39")

IfIsEmpty(.Range("c4"))OrIsEmpty(.Range("e4"))Then

'OrIsEmpty(.Range("b7:b41"))添加科室不为空，未成功

MsgBox("编码、名称为空，不可保存！")

Else

Setr3=r2.Find(.Cells(4,3),,,1)

IfNotr3IsNothingThen

MsgBox("此编码已存在，不可保存。如果此信息需要修改，请点击查询后再修改")Else

Sheets("数据存储").Rows("2:35").InsertShift:=xlDown

.Range("c6:l39").Copy

'复制“数据录入”表体信息

Sheets("数据存储").Range("c2:l2").PasteSpecialPaste:=xlPasteValues

.Range("c4").Copy

'复制“数据录入”编码

Sheets("数据存储").Range("a2:a35").PasteSpecialPaste:=xlPasteValues

.Range("e4").Copy

'复制“数据录入”名称

Sheets("数据存储").Range("b2:b35").PasteSpecialPaste:=xlPasteValues

r1.ClearContents

'保存数据后，清空录入界面

.Range("c4").Select

EndIf

EndIfEndWithEndSub2.查询功能SubQuery()'

'查询筛选Macro，xiaohou制作，时间2013-9-5''

DimErowAsIntegerDimr1,r2AsRangeWithSheets("数据录入")

Setr1=.Range("d6:l39")

Setr2=.Range("a6:b39")

Erow=Sheets("数据存储").[a100000].End(xlUp).Row

r1.ClearContents

'ForEachceIn.[a2:x2]

'Ifce<>""Thence.Value="*"&ce&"*"

'加上通配符*,实现模糊查询

'Next

IfIsEmpty(.Range("c4"))OrIsEmpty(.Range("e4"))Then

'OrIsEmpty(.Range("b7:b41"))添加科室不为空，未成功

MsgBox("编码、名称为空，不可查询！")

Else

Sheets("数据存储").Range("A1:l"&Erow).AdvancedFilterAction:=xlFilterCopy,CriteriaRange:=_

.[c3:e4],CopyToRange:=.[A5:l5],Unique:=False

r2.Borders(xlDiagonalDown).LineStyle=xlNone

r2.Borders(xlDiagonalUp).LineStyle=xlNone

r2.Borders(xlEdgeLeft).LineStyle=xlNone

r2.Borders(xlEdgeTop).LineStyle=xlNone

r2.Borders(xlEdgeBottom).LineStyle=xlNone

'r2.Borders(xlEdgeRight).LineStyle=xlNone

r2.Borders(xlInsideVertical).LineStyle=xlNone

r2.Borders(xlInsideHorizontal).LineStyle=xlNone

r2.NumberFormatLocal=";;;"

'ForEachceIn.[a2:x2]

'Ifce<>""Thence.Value=Mid(ce,2,Len(ce)-2)

'取消"*"通配符

'Next

EndIfEndWithEndSub3.更新SubUpdate()'

'更新Macro，xiaohou制作，时间2013-9-5

Dimarr,dAsObject

DimrAsRange

Dimlr&,i&,j%

WithSheets("数据录入")'查询修改工作表数据区域写入数组arr

'arr=.Range("A7:D"&.Range("A65536").End(xlUp).Row)

arr=.Range("a6:l39")

Setr=.Range("d6:l39")

EndWith

Setd=CreateObject("scripting.dictionary")'定义字典对象

Fori=1ToUBound(arr)'逐行

'IfLen(arr(i,2))<>0Then'排出“合计”行，即：姓名务数据

IfNotd.exists(arr(i,1)&arr(i,2)&arr(i,3))Thend(arr(i,1)&arr(i,2)&arr(i,3))=arr(i,4)&Chr(9)&arr(i,5)_

&Chr(9)&arr(i,6)&Chr(9)&arr(i,7)&Chr(9)&arr(i,8)&Chr(9)&arr(i,9)&Chr(9)&arr(i,10)&Chr(9)&arr(i,11)&Chr(9)&arr(i,12)

'上一句：如果编码和名称连接字符串字典不存在(首次出现，这里判断可能多余)，这个字符串添加到字典键值，后续的相关属性字段用制表符连接添加到字典条目

'EndIf

Next

WithSheets("数据存储")