论文部分内容阅读
摘 要：ExcelVBA是Excel基于VB开发的脚本语言。它具有强大的Excel使用扩展功能，完全可实现Excel中的查询统计；同时可提高办公中Excel的使用效率。单独招生录取查询统计仅是招生录取中一个小环节，没有必要使用较高成本开发系统软件实现查询统计功能。ExcelVBA可在查询中大大提高工作效率，实现多人共同统计，设计和开发该系统对ExcelVBA的扩展运用有一定的探索实践作用。
关键词：ExcelVBA 单独招生录取 查询统计 查询系统 统计系统
中图分类号：TP311 文献标识码：A 文章编号：1672-3791（2016）11（b）-0017-02
1 问题背景
云南机电职业技术学院位于云南昆明，是一所以机电专业为主要培养对象的高职院校，被评为“云南省省级示范性高等职业院校”与“国家示范性高等职业院校”的骨干高职院校，具备云南省单独招生资格，报考考生较多、竞争激烈，因此做好考生的招生服务显得更为重要。
考生通过笔试、面试后学院会将名单通过单独招生考试网发布给各位考生；因考生可以同时报考多所学校，所以必须由考生确认是否选择该校就读，并通过传真的方式回传到学院招生就业办公室，通过传统的统计、收集Excel、逐个查询录入系统；当考生需要查询时，又返回查询。具有工作量大、效率不高、不易查询等特点，又因为就招生这个小环节还没有必要开发大型系统进行查询统计，所以笔者探究用ExcelVBA的同一界面完成两项功能，期望完成对传统查询的改善，提高工作效率。
2 ExcelVBA简介
在Office对于一些烦琐、重复的操作，用户可以通过“宏”来实现。“宏”是由一系列指令组合而成的命令集，其本质是VBA代码组成的程序。VBA是微软在其开发的应用程序中共享的通用自动化语言。
Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自動化（OLE）任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic脚本。该语言于1993年由微软公司开发的应用程序共享一种通用的自动化语言——Visual Basic For Application（VBA），实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本即具备了VBA的宏功能。
3 系统设计思路
系统开发一般由以下几个步骤组成：问题分析、需求分析、软件设计、程序编码、软件测试组成。
由于笔者是系统的使用者和开发者，常年从事招生工作，熟悉该校招生中会出现的一些问题和需求。在设计和编码阶段通过积极思考，如果使用过程中出现错误完全可实时进行调试和测试。该文仅从实现系统的一些核心模块进行设计，更好地实现预期效果。主要核心设计模块如下。
4 系统模块开发与实现
4.1 前台界面的设计与实现
准考证号文本框及查询按钮，用于识别考生个人信息。点击查询按钮可通过对Excel表格数据的查询，显示考生的姓名、性别、考分，拟录取专业和是否收到传真，逐一进行核对。
当收到考生传真时，在“是否就读”的文本框输入“是”或“否”，点击“确认”按钮以确认对考生传真的收取。
点击“清除”按钮可以清空文本框内容，也可以修正一下信息。图1是前台设计显示效果。
4.2 两个主要模块的源代码
4.2.1 查询模块
Public Sub find_Click（）
Dim rng As Range
With ActiveSheet
For Each rng In [b2：b1819] //查询数据的范围
If rng.Text = tzkzh.Text Then //比对准考证号给相关的内容显示信息
xzkzh1 = tzkzh.Text
xm1 = rng.Offset（0， 1）.Text
xb1 = rng.Offset（0， 2）.Text
mscj1 = rng.Offset（0， 3）.Text
kf1 = rng.Offset（0， 3）.Text
pm1 = rng.Offset（0， 4）.Text
lqzy1 = rng.Offset（0， 5）.Text
sfjd1 = rng.Offset（0， 6）.Text
bz1 = rng.Offset（0， 7）.Text
lxdh1 = rng.Offset（0， 11）.Text
time1 = rng.Offset（0， 8）.Text
tj1 = rng.Offset（0， 9）.Text
End If
Next
End With
End Sub
4.2.2 確认统计模块
Private Sub confirm_Click（）
Dim rng As Range， rng1 As Range， m As Integer， n As Integer， k As Integer， l As Integer
With ActiveSheet
For Each rng In [b2：b1890] //查询范围
If rng.Text = tzkzh.Text Then
rng.Offset（0， 6） = sfjd1
rng.Offset（0， 7） = bz1
rng.Offset（0， 8） = Now
rng.Offset（0， 9） = tj1
End If
Next
If Len（sfjd1.Text） And Len（tj1.Text） > 0 Then
MsgBox "输入正确"//进行数据较验
Else
MsgBox "确认时是否就读或是否服从调剂不能为空值"
End If
For Each rng1 In [h2：h1890] //数据统计的实现
If rng1 = "是" Then
m = m + 1
ElseIf rng1 = "否" Then
n = n + 1
Else
k = k + 1
End If
Next
Label17 = m
Label18 = n
wfcz1 = k
End With
End Sub
5 结语
通过设计基本解决了提出的问题，同时还具备以下几个优点。
（1）无需安装数据库。巧妙地把Excel表格中的数据作为原始数据，操作方便、使用便捷、易于不太熟悉计算机的使用者单机使用。
（2）友好输入界面。界面具有良好的互动性和纠错功能，防止输入错误并纠错，实践证明比实际在Excel中录入数据的效率提高了。
当然在使用中也存在一些不足，鉴于ExcelVBA的局限性，功能还算是很强大。笔者也将继续努力在后期不断完善，力争把ExcelVBA的功能在工作中做更多扩展。
参考文献
[1]何非，叶萃娟.Excel VBA高效办公从入门到精通[M].北京： 中国青年出版社，2008.
[2]罗刚君.Exclel VBA程序开发自学宝典[M].北京：电子工业出版社，2009.
关键词：ExcelVBA 单独招生录取 查询统计 查询系统 统计系统
中图分类号：TP311 文献标识码：A 文章编号：1672-3791（2016）11（b）-0017-02
1 问题背景
云南机电职业技术学院位于云南昆明，是一所以机电专业为主要培养对象的高职院校，被评为“云南省省级示范性高等职业院校”与“国家示范性高等职业院校”的骨干高职院校，具备云南省单独招生资格，报考考生较多、竞争激烈，因此做好考生的招生服务显得更为重要。
考生通过笔试、面试后学院会将名单通过单独招生考试网发布给各位考生；因考生可以同时报考多所学校，所以必须由考生确认是否选择该校就读，并通过传真的方式回传到学院招生就业办公室，通过传统的统计、收集Excel、逐个查询录入系统；当考生需要查询时，又返回查询。具有工作量大、效率不高、不易查询等特点，又因为就招生这个小环节还没有必要开发大型系统进行查询统计，所以笔者探究用ExcelVBA的同一界面完成两项功能，期望完成对传统查询的改善，提高工作效率。
2 ExcelVBA简介
在Office对于一些烦琐、重复的操作，用户可以通过“宏”来实现。“宏”是由一系列指令组合而成的命令集，其本质是VBA代码组成的程序。VBA是微软在其开发的应用程序中共享的通用自动化语言。
Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自動化（OLE）任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic脚本。该语言于1993年由微软公司开发的应用程序共享一种通用的自动化语言——Visual Basic For Application（VBA），实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本即具备了VBA的宏功能。
3 系统设计思路
系统开发一般由以下几个步骤组成：问题分析、需求分析、软件设计、程序编码、软件测试组成。
由于笔者是系统的使用者和开发者，常年从事招生工作，熟悉该校招生中会出现的一些问题和需求。在设计和编码阶段通过积极思考，如果使用过程中出现错误完全可实时进行调试和测试。该文仅从实现系统的一些核心模块进行设计，更好地实现预期效果。主要核心设计模块如下。
4 系统模块开发与实现
4.1 前台界面的设计与实现
准考证号文本框及查询按钮，用于识别考生个人信息。点击查询按钮可通过对Excel表格数据的查询，显示考生的姓名、性别、考分，拟录取专业和是否收到传真，逐一进行核对。
当收到考生传真时，在“是否就读”的文本框输入“是”或“否”，点击“确认”按钮以确认对考生传真的收取。
点击“清除”按钮可以清空文本框内容，也可以修正一下信息。图1是前台设计显示效果。
4.2 两个主要模块的源代码
4.2.1 查询模块
Public Sub find_Click（）
Dim rng As Range
With ActiveSheet
For Each rng In [b2：b1819] //查询数据的范围
If rng.Text = tzkzh.Text Then //比对准考证号给相关的内容显示信息
xzkzh1 = tzkzh.Text
xm1 = rng.Offset（0， 1）.Text
xb1 = rng.Offset（0， 2）.Text
mscj1 = rng.Offset（0， 3）.Text
kf1 = rng.Offset（0， 3）.Text
pm1 = rng.Offset（0， 4）.Text
lqzy1 = rng.Offset（0， 5）.Text
sfjd1 = rng.Offset（0， 6）.Text
bz1 = rng.Offset（0， 7）.Text
lxdh1 = rng.Offset（0， 11）.Text
time1 = rng.Offset（0， 8）.Text
tj1 = rng.Offset（0， 9）.Text
End If
Next
End With
End Sub
4.2.2 確认统计模块
Private Sub confirm_Click（）
Dim rng As Range， rng1 As Range， m As Integer， n As Integer， k As Integer， l As Integer
With ActiveSheet
For Each rng In [b2：b1890] //查询范围
If rng.Text = tzkzh.Text Then
rng.Offset（0， 6） = sfjd1
rng.Offset（0， 7） = bz1
rng.Offset（0， 8） = Now
rng.Offset（0， 9） = tj1
End If
Next
If Len（sfjd1.Text） And Len（tj1.Text） > 0 Then
MsgBox "输入正确"//进行数据较验
Else
MsgBox "确认时是否就读或是否服从调剂不能为空值"
End If
For Each rng1 In [h2：h1890] //数据统计的实现
If rng1 = "是" Then
m = m + 1
ElseIf rng1 = "否" Then
n = n + 1
Else
k = k + 1
End If
Next
Label17 = m
Label18 = n
wfcz1 = k
End With
End Sub
5 结语
通过设计基本解决了提出的问题，同时还具备以下几个优点。
（1）无需安装数据库。巧妙地把Excel表格中的数据作为原始数据，操作方便、使用便捷、易于不太熟悉计算机的使用者单机使用。
（2）友好输入界面。界面具有良好的互动性和纠错功能，防止输入错误并纠错，实践证明比实际在Excel中录入数据的效率提高了。
当然在使用中也存在一些不足，鉴于ExcelVBA的局限性，功能还算是很强大。笔者也将继续努力在后期不断完善，力争把ExcelVBA的功能在工作中做更多扩展。
参考文献
[1]何非，叶萃娟.Excel VBA高效办公从入门到精通[M].北京： 中国青年出版社，2008.
[2]罗刚君.Exclel VBA程序开发自学宝典[M].北京：电子工业出版社，2009.