宏与VBA教学障碍与策略探析

摘要：近年来，各中职学校都以“以服务为宗旨、以就业为导向、以能力为本位”的教学方针指导下，很多学校只是以能用、够用作为教学的目标，因而教学效果不理想，致使学生学习往往都大而画之，不求深解，尤其是计算机操作基础这一课程。学生就业后在实际工作中碰到问题不知所措，学到的专业知识看似有用实则无用。本文以计算机操作教学中很少深入讲解的宏与VBA知识为例，尝试在中职学校基础课程中提出一定对应策略，正确引导学生、提高学生兴趣，让学生有切身体会，扫除教学障碍。

关键词：宏；VBA；教学障碍；情境

中图分类号：G64文献标识码：A文章编号：1009-3044(2011)20-4928-02

现在，各中职学校都以“以服务为宗旨、以就业为导向、以能力本位”作为教学方针，这本来是正确的做法。但是由于各个方面的原因，近年来中职教育面对的学生素质逐渐下降，其接受能力越来越差，不爱思考，这就导致教师在教学中降低了要求，以能用、够用为目标，不进行深入透彻的讲解，学生对基础课程也仅仅只是了解、知道。如此以来，学生就业后一旦遇到工作中的实际问题就不知所措了。

计算机基本操作是中职学校最是一门专业基础课，所有的专业几乎都会开设这门课程。现在的计算机基本操作教材大多数是采用项目教学法，虽然教材中举了较多的实例，但多数只是针对某个知识点的，不能全面考虑实际应用的情况，学生感受也不深，教学效果自然也就不尽如人意了，这就形成了教学障碍。比如计算机基本操作课中的宏与VBA知识，因为大多数学生会觉得有点抽象、听不懂，又没有没有遇到具体情况，没有切身体会肯定不会认真学习这方面的知识。为了加深学生切身感受，加强对宏与VBA知识的了解，笔者以认为可以采取如下办法。

1 设置实际情境，让学生切身感受

在接触到宏和VBA章节部分之前，可先让学生上机完成一张夹杂大量数学公式的试卷。这样做不但让学生复习了以前的文字排版内容，同时也为宏和VBA的学习做铺垫。

一般说来学生将会这样插入公式：插入菜单对象Micsoft3.0 公式确定调出公式面板输入公式。如果仅仅一个公式或两个公式的话，那是没有什么问题的，但是夹杂大量公式的试卷就会让学生感受到这样输入公式很繁琐、很麻烦、太不方便。那么，学生自然就会想：有没有更方便、快捷的方法呢？

在检查学生们完成的试卷后，向学生提问：这样录入公式有什么感受？素质较好的学生可能会提出另外一种方法――工具自定义在对话框左边选择“插入”公式编辑器鼠标左键点住不要松开拖到工具栏――来快速打开公式面板，但仍然不是很方便。那么，此时可以告诉学生还有更好的方法来输入这些公式，接下来就可以演示并引导学生用宏录制的办法做一个宏按钮，最后提出什么叫宏的概念，宏应用的范围是什么。

通过让学生真正去制作一张试卷，让学生亲身感受按部就班的使用公式是很不方便的，以此来促使他们认真学习“宏”，同时提高了他们在以后工作中应对问题的能力。

2 承前启后，指导明确

通过设置实际情境，让学生有了切身感受，同时也通过一定量的练习，让学生拉近了与宏的距离，然后可以对学生说明宏的本质就是VBA代码。简单的宏可以通过录制宏的办法生成,复杂点的需要手动编写VBA代码。VBA在Word中的应用比EXCEL要少得多，所以当在EXCEL中碰到VBA的时候，就正好把宏与VBA的关系理清楚了。

在WORD宏的基础之上，给学生更一步讲解宏与VBA的关系，可引导学生利用VBA解决一个较为现实的例子。假设录入班级学生的信息，同时想在对应学生的某列单元格内放置对应学生的相片，其相片保存在my documents中，并且相片名称与学生信息顺序是一致的，要EXCEL自动将对应的相片导入到相应的单元格中。其VBA内容如下：

Sub marcro ()

Dim n As Integer

n = 50

For i = 1 To n

With ActiveSheet.Pictures.Insert("C:my documents\" & i & ".jpg").ShapeRange

.LockAspectRatio = msoTrue

.Width = 302.25

.Height = 8

.Rotation = 0#

.Top = Int((i-1)/2) * 230 + 10

.Left = ((i-1) Mod 2) * 350 + 10

End With

Next

End Sub

从上面的代码我们可以看出，只要解释几个关键的单词以及循环就可以让学生读懂其中的内容。这时候我们只要求学生会修改代码，而不要求学生去编制，只要学生在实训过程中，教师要给学生明确的指导，特别是当面指导，让学生越过心理障碍，基本上学生都能过关的，其教学效果是显而易见的。

3 前后参照，有效探析

这时候我们可以引导学生对比Word的相应功能，比如说Word中的页眉与页脚可以设置每页都打印不同的内容，而在EXCEL中其页面的概念与Word中有很大的不同，可以引导学生思考实现每页都有不同的页眉内容办法。自然而然地让学生想起使用VBA，为了让学生对此产生浓厚兴趣，我们可提供代码让学生修改，以期让学生对VBA有着更加深刻的理解和感悟。

1) Sub PageH()

Dim ws As Worksheet

Dim c As Range

Dim a As Variant, b As Variant

Dim i As Integer, n As Integer

Dim sWsName As String

Dim bPrn As Boolean

Application.EnableEvents = False

Set ws = Worksheets("打印控制")

Set c = ws.Cells(3, 1)

sWsName = ws.Cells(1, 2)

Worksheets(sWsName).Select

bPrn = (ws.Cells(1, 3) = "预览")

Do While c ""

a = Split(c.Value, ",")

ActiveSheet.PageSetup.CenterHeader = c.Offset(0, 1)

For i = 0 To UBound(a)

If InStr(a(i), "-") > 0 Then

b = Split(a(i), "-")

For n = b(0) To b(1)

ActiveWindow.SelectedSheets.PrintOut From:=n, to:=n, Preview:=bPrn

Next

Else

ActiveWindow.SelectedSheets.PrintOut From:=a(i), to:=a(i), Preview:=bPrn

End If

Next

Set c = c.Offset(1, 0)

Loop

Application.En

2) Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim sWsName As String

sWsName = Worksheets("打印控制").Cells(1, 2)

If ActiveSheet.Name = sWsName Then

Cancel = True

Call OkExcel

End If

End Sub

总而言之，随着教学改革和学生素质不断地变化，实践教学与理论教学要相得益彰、互为依托，同时也要与时俱进，不断更新观念，调整教学内容，改进教学方法与手段，把教、学、用紧密联系起来。设置实际情境，让学生切身感受，承前启后，指导明确，在教学设计中要前后参照，有效探析，充分调动学生在教学实践中的积极性与创造性，从而真正地贯彻了“以服务为宗旨、以就业为导向、以能力为本位”的教学方针，扫除教学障碍，改变教学策略，提高了教学质量，保证了教学效果。

参考文献：

[1] 刘风平. 实践导向职业教育课程研究[M].上海教育出版社,2010.

[2] 熊思思. 计算机基础高级版[M].海洋出版社,2007.

[3] 盐思超. EXCEL实际运用实例[M].陕西教育出版社,2011.