基于VBA的脑卒中评分系统的设计与实现

李小刚 孟网兵 缪垚 梁峰宁 吕崇文 刘伟

摘要：信息技术的不断发展，极大地提高了医疗服务水平，同时也提高了医务人员的服务效率，减轻了负担。传统的脑卒中病人的随访评分记录以纸质形式进行存档，这种方式存储的数据不能被直接提取、统计和分析，会造成严重的资源浪费。一般的脑卒中评分系统，是针对神经内科医生的普遍需求，医生难以针对自身的需求对系统进行修改。考虑到很多医生大学有过VB学习经验，采用ExceIVBA技术，综合运用VBA的多种功能，以医生作为用户，设计并实现了脑卒中评分系统，并可对病人进行随访，界面简洁实用，同时便于医生对系统进行少量修改。

关键词：脑卒中;评分系统;ExceIVBA

中图分类号：TP311

文献标识码：A

文章编号：1009-3044（2019）34-0074-02

1 背景

脑卒中（“cerebral stroke”）又称“中风”“脑血管意外”是一种常见的急性脑血管疾病。通过近期的大数据调查可以知道，其发病率高，发病年轻化，疾病变化快，致残率及病死率高。所以早期诊断、缩短早期干预的时间、在最佳时间窗内给予正确治疗是降低其病死率、致残率的关键。而在中国乃至全世界范围内，对于脑卒中一直缺乏有效的治疗手段，目前认为预防是最好的措施。

因此，对脑卒中病人进行随访，使用脑卒中评价量表对患者进行评分并将其记录下来，对于早期诊断、缩短早期干预的时间、在最佳时间窗内给予正确治疗十分关键。所以，我们设计开发了脑卒中评分系统，一方面方便医生对病人的神经缺损的程度进行评价，另一方面也可保存病人数据，用于科研。

2 ExceIVBA编程技术简介

VBA，即Visual Basic for Applications，是基于Visual Basic的一种宏语言，是由微软开发出来的一种自动化的编程语言，Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA技术来提高办公效率。

VBA语言作VB家族成员，二者的结构较为相似，但是VBA需要一个应用程序作为主体才能运行，而VB则可以创建独立的应用程序。VBA技术中，除了可以利用窗体与Excel表的交互，对象的属性、方法、事件以及对象间的组合运用来完成相关任务，还可通过录制宏来自动生成代码，从而极大地提高办公效率。

简单地说，Excel VBA是依附于Excel程序的一种自动化语言，有多种用途，不仅可用于处理大型运算、操作工作簿与工作簿、信息录入与存储，还可开发专业程序。本系统综合使用ExceIVBA的多种功能，用于开发脑卒中随访与评分系统。

3 脑卒中评分系统设计与实现

脑卒中评分系统是基于Excel VBA来设计与实现的。主要包括：登录界面、主页面、添加新患者界面、评分系统界面、记录查询界面、统计图表界面、excel表界面、链接网址界面以及各个用户窗体和模块的设计。

3.1 登录界面的设计与实现

界面设计简洁实用，可供多名用户使用，用户的账号和密码保存在Excel表中。

新用户需要注册，注册成功后，返回登录界面，输入用户名和密码即可进入系统的主页面。关键代码如下：

For i_2 To Worksheets（”密码”）.Cells（l，7）.Value+1 7将用户数放在密码表gI（Cells（l，7））单元格中，添加新用户就将数值加1

If TextBoxI.Text= Worksheets（”密碼”）.Cells（i，1） Then

If TextBox2.Text=""Then

MsgBox”请输入密码”

TextBox2.SetFocus

flag= False

End If

If flag= True And TextBox2.Text= Worksheets（“密码”）.Cells（i，2） Then

TextBoxl.Text=""

TextBox2.Text=""

登录界面.Hide

主页面.Show

Exit For

End If

End If

Nexti

3.2 主页面

主页面为功能选择界面，主要功能有修改密码、添加新患者、评分、记录查询、链接网址。添加新患者功能的设计采用窗体和Excel表交互的方式，窗体用于输入，Excel表用于保存数据。对于一名新的患者，需要通过基本信息、症状、并发症、体征、日常生活、用药、肢体功能恢复情况、转诊8个方面进行详细的建档。通过这个建档，可以清晰地看到病人的各种基本状况，并可将病人相关信息存入excel表。除此之外，还设置了格式化输入，用户只有再输入了全部的必填信息后才可保存相关数据。

关键代码如下：

If flag= True Then

On Error Resume Next

Worksheets（'病人信息记录”）.Activate

选择窗口中的单元格

Range（”al”）.Select

移动到窗口最底部

Selection.End（xIDown）.Select

移动到窗口最左边

Selection.End（xIToLeft）.Select

将窗口的输入值保存到窗口最后新建的一条记录

ActiveCell.Offset（l， O）.Range（”A1”）=LTrim（TextBoxI.Text）

保存新用户名到全局变量

p_name= TextBoxl.‘rext

在记录查询中，可以根据患者的姓名，手机号，住院号，门诊号，然后输入相对应的数据，可以确切地查到相对应的患者的信息，单击列表框中查询结果项后，则可自动跳转到excel表中对应的病人信息。

3.3 评分系统

共选用5个常用权威量表，每个评分量表由三个板块组成，即评分界面，评分结果界面和对应的Excel表格界面，各量表运行原理大致相同，以改良rankin量表为例来展示rankin评分。rankin评分是一种快速简洁的评估方式，是现今最常使用的功能结局评估量表。它不仅可以与患者进行面对面直接评估，也可以通过电话随访进行远程评估，对临床试验的结果有重大意义。

美国国立卫生院神经功能缺损评分（NIHSS）。由于NIHSS评分具有操作简单、可靠性高、效率高的特点，已经成为AIS临床诊断及临床试验评估体系的重要组成部分。它从意识、凝视、视野、面瘫、上下肢运动、上下肢协调、感觉、语言、构音障碍、忽视十大方面对患者进行评估。

ADL量表。Barthel指数计分可以将ADL分为四级。生活基本自理、生活需要帮助、生活需要极大帮助、生活完全需要帮助。它从大便、小便、修饰、用厕、吃饭、移动、活动（步行）、穿衣、上下楼梯、洗澡这十大方面对患者进行测评。由于Barthel指数评定简单、可信度高等特点，被广泛应用于康复医疗方面。

SIS量表。SIS量表的目的是为了评价脑卒中影响健康与生活的程度，主要作为测评生存质量的工具，被主要应用于测量临床脑卒中患者健康状况。SIS量表从力气、手功能、ADUIADL、移动能力、交流、情绪、记忆思维、参与这八个方面，59个小条目对患者进行评估。

MoCA评分。蒙特利尔认识评估（MoCA）是一种快速筛选轻度认知功能异常的评分工具。它评定不同认知领域，包括：视空间/执行能力、命名、记忆、注意力、语言、抽象能力、定向力。由于MoCa涵盖认知领域广、敏感度高、设计合理、更具针对性等特点，被国际广泛推荐的筛查量表。

可以针对病人的不同量表的得分以及同一量表的不同时期的得分以统计图表的形式进行展示，便于医生及时掌握病人的状况以及综合各个量表的结论进行判断。

为方便医生使用，设置了超链接功能，可以通过链接进入权威卒中网站，如中国心脑血管疾病网，本思路也是基于本团队对医院的走访和医生的需求而设计的。

4 结束语

本系統使医务人员在常用的Excel软件或WPS软件上能够实现评分，对提高医疗服务水平、工作效率和节约成本等都有现实意义。鉴于传统的纸质脑卒中评分和随访额诸多弊端，现有移动的脑卒中评分系统的缺点，以及Excel VBA具有开发速度快，窗口化制作，支持调用底层API、方便进行二次开发等特点，本团队设计并实现了基于Excel VBA的脑卒中评分系统脑卒中评分系统，可以更好地帮助不同医院的医生了解患者的患病情况，提高医生工作效率。

参考文献：

[1]蔺雪梅，王芳，王静，等.RRE-90、ESRS和SPI-Ⅱ评分对缺血性脑卒中复发风险预测价值比较[J].陕西医学杂志，2019，48（5）：599-602.

[2]安成东.北方地区急诊老年脑卒中患者心理应激评分调查[J].中国老年保健医学，2018，16（4）：90-91.

[3]崔子健.基于VBA的成绩快速录入系统的设计与实现[J].电脑知识与技术，2019，15（6）：49-51，58.

[4]刘柱鸿，黎鑫，彭元辉.基于Excel VBA的教学秩序督查报表管理系统设计与实现[J].软件工程，2018，21（4）：45-48.

[5]蒋帅.基于Unity 3D的远程医疗系统的设计与实现[D].北京：北京交通大学，2017.

【通联编辑：谢媛媛】

收稿日期：2019-10-08

基金项目：江苏省教育科学研究院课题，医学生信息技术课程的教学改革与创新（项目编号：2017R57185）;徐州医科大学高等教育教改研究课题，互联网+背景下医学生计算机课程教学改革研究（项目编号：xjy201723）

作者简介：李小刚（1997-），男，河南鹿邑人，徐州医科大学，2016级本科临床医学系;刘伟（1978-），男，通讯作者，副教授，徐州医科大学医学信息与工程学院，研究方向为医学信息化技术、信息技术教育。