建立与应用Excel动态英语重点单词库PPT.docVIP

建立与应用Excel动态英语重点单词库PPT 　　在前文基础上，如果教师需要从单词表中挑选出重点讲授的某些单词，学生需要根据各自的实际情况挑选出比较难记的单词。那就需要利用控件和VBA程序开发建立与应用Excel动态“英语重点单词库”。本文将详述该课件的制作方法。 　　 　　一、课件演示幻灯片界面与功能简介 　　 　　课件演示“顺序复习新单词时挑选重点单词入库”幻灯片（Slide8）界面如图所示，它在前文slide3基础上添加了复选框（CheckBox1～4）、库中重点词数文本框（txtWordNum）、“重点单词入库（PutWordIn）”和“检查库中重点词数（CheckWordNum）”2个按钮，单击前一按钮可将用户选择的重点单词及其中文对照送到“重点单词库.xls”文件第2、3列，单击后一按钮可检查上述库文件中所保存的重点单词数。“重点单词的顺序与随机复习”幻灯片（Slide10）界面，布局类似于Slide8，但删除了txtLessonNum文本框和4个复选框，左边三个按钮则改为“开始复习重点词”、“复习后续重点词”、“随机复习重点词”。 　　 　　 　　二、VBA程序的设计与编制 　　 　　限于篇幅，本文只介绍幻灯片Slide8各按钮单击事件、相关进程与函数的编制。幻灯片Slide10的相关事件和参数请读者结合案例提供的代码自学。 　　 　　1.Slide8通用变量声明 　　Dim i, j, k As Integer 　　Dim arrGroupNum As Variant存放各课的单词组数 　　Dim intLessonNum As Integer存放当前课程的序号 　　Dim arrGroupNum As Variant 存放各课的单词组数 　　Dim ExcelApp As Excel.Application 　　Dim ExcelBook As Excel.Workbook 　　Dim ExcelSheet As Excel.Worksheet 　　 　　2.Silde8“开始复习新词”和“复习后续单词”按钮单击事件代码 　　请参阅前文Slide2幻灯片同名事件代码，并在“复习后续单词”按钮最后的循环中添加下列语句： 　　 取消选中“CheckBox”各复选框 　　ActivePresentation.Slides(Slide8).Shapes.Item(CheckBox i).OLEFormat.Object.Value = False 　　 　　3.Slide8打开Excel文件的带参数（最后一个是默认值为True的选项参数）进程 　　Private Sub OpenExcel(ExcelFileName As String, SheetNum As Integer, Optional blReadOnly As Boolean = True) 　　 Set ExcelApp = CreateObject(Excel.Application) 　　 Set ExcelBook = ExcelApp.Workbooks.Add 　　以只读方式打开本演示文档所在文件夹中由参数Excel FileName指定文件名的Excel文件 　　 ExcelFilePath = Application.ActivePresentation.Path \ ExcelFileName: ExcelApp.Workbooks.Open ExcelFilePath, ReadOnly:= blReadOnly 　　设定ExcelBook指向刚打开的Excel文件 　　 Set ExcelBook = ExcelApp.Workbooks(ExcelFileName) 　　设定ExcelSheet指向打开文件的第“WorkSheet Num”个工作表 　　 Set ExcelSheet = ExcelBook.Worksheets(WorkSheetNum) 　　End Sub 　　 　　4.Slide8关闭Excel的进程 　　Private Sub CloseExcel()关闭Excel与释放变量 　　关闭Excel文件和Excel进程 　　 If Not (ExcelBook Is Nothing) Then ExcelBook.Close 　　 If Not (ExcelApp Is Nothing) Then ExcelApp.Quit 　　释放对象变量 　　 Set ExcelBook = Nothing: Set ExcelSheet = Nothing 　　 Set ExcelApp = Nothing 　　End