基于VBA的腦卒中評分系統(tǒng)的設(shè)計與實現(xiàn)

李小剛 孟網(wǎng)兵 繆垚 梁峰寧 呂崇文 劉偉

摘要：信息技術(shù)的不斷發(fā)展，極大地提高了醫(yī)療服務(wù)水平，同時也提高了醫(yī)務(wù)人員的服務(wù)效率，減輕了負(fù)擔(dān)。傳統(tǒng)的腦卒中病人的隨訪評分記錄以紙質(zhì)形式進行存檔，這種方式存儲的數(shù)據(jù)不能被直接提取、統(tǒng)計和分析，會造成嚴(yán)重的資源浪費。一般的腦卒中評分系統(tǒng)，是針對神經(jīng)內(nèi)科醫(yī)生的普遍需求，醫(yī)生難以針對自身的需求對系統(tǒng)進行修改?？紤]到很多醫(yī)生大學(xué)有過VB學(xué)習(xí)經(jīng)驗，采用ExceIVBA技術(shù)，綜合運用VBA的多種功能，以醫(yī)生作為用戶，設(shè)計并實現(xiàn)了腦卒中評分系統(tǒng)，并可對病人進行隨訪，界面簡潔實用，同時便于醫(yī)生對系統(tǒng)進行少量修改。

關(guān)鍵詞：腦卒中;評分系統(tǒng);ExceIVBA

中圖分類號：TP311

文獻標(biāo)識碼：A

文章編號：1009-3044（2019）34-0074-02

1 背景

腦卒中（“cerebral stroke”）又稱“中風(fēng)”“腦血管意外”是一種常見的急性腦血管疾病。通過近期的大數(shù)據(jù)調(diào)查可以知道，其發(fā)病率高，發(fā)病年輕化，疾病變化快，致殘率及病死率高。所以早期診斷、縮短早期干預(yù)的時間、在最佳時間窗內(nèi)給予正確治療是降低其病死率、致殘率的關(guān)鍵。而在中國乃至全世界范圍內(nèi)，對于腦卒中一直缺乏有效的治療手段，目前認(rèn)為預(yù)防是最好的措施。

因此，對腦卒中病人進行隨訪，使用腦卒中評價量表對患者進行評分并將其記錄下來，對于早期診斷、縮短早期干預(yù)的時間、在最佳時間窗內(nèi)給予正確治療十分關(guān)鍵。所以，我們設(shè)計開發(fā)了腦卒中評分系統(tǒng)，一方面方便醫(yī)生對病人的神經(jīng)缺損的程度進行評價，另一方面也可保存病人數(shù)據(jù)，用于科研。

2 ExceIVBA編程技術(shù)簡介

VBA，即Visual Basic for Applications，是基于Visual Basic的一種宏語言，是由微軟開發(fā)出來的一種自動化的編程語言，Office軟件中的Word、Excel、Access、Powerpoint都可以利用VBA技術(shù)來提高辦公效率。

VBA語言作VB家族成員，二者的結(jié)構(gòu)較為相似，但是VBA需要一個應(yīng)用程序作為主體才能運行，而VB則可以創(chuàng)建獨立的應(yīng)用程序。VBA技術(shù)中，除了可以利用窗體與Excel表的交互，對象的屬性、方法、事件以及對象間的組合運用來完成相關(guān)任務(wù)，還可通過錄制宏來自動生成代碼，從而極大地提高辦公效率。

簡單地說，Excel VBA是依附于Excel程序的一種自動化語言，有多種用途，不僅可用于處理大型運算、操作工作簿與工作簿、信息錄入與存儲，還可開發(fā)專業(yè)程序。本系統(tǒng)綜合使用ExceIVBA的多種功能，用于開發(fā)腦卒中隨訪與評分系統(tǒng)。

3 腦卒中評分系統(tǒng)設(shè)計與實現(xiàn)

腦卒中評分系統(tǒng)是基于Excel VBA來設(shè)計與實現(xiàn)的。主要包括：登錄界面、主頁面、添加新患者界面、評分系統(tǒng)界面、記錄查詢界面、統(tǒng)計圖表界面、excel表界面、鏈接網(wǎng)址界面以及各個用戶窗體和模塊的設(shè)計。

3.1 登錄界面的設(shè)計與實現(xiàn)

界面設(shè)計簡潔實用，可供多名用戶使用，用戶的賬號和密碼保存在Excel表中。

新用戶需要注冊，注冊成功后，返回登錄界面，輸入用戶名和密碼即可進入系統(tǒng)的主頁面。關(guān)鍵代碼如下：

For i_2 To Worksheets（”密碼”）.Cells（l，7）.Value+1 7將用戶數(shù)放在密碼表gI（Cells（l，7））單元格中，添加新用戶就將數(shù)值加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 主頁面

主頁面為功能選擇界面，主要功能有修改密碼、添加新患者、評分、記錄查詢、鏈接網(wǎng)址。添加新患者功能的設(shè)計采用窗體和Excel表交互的方式，窗體用于輸入，Excel表用于保存數(shù)據(jù)。對于一名新的患者，需要通過基本信息、癥狀、并發(fā)癥、體征、日常生活、用藥、肢體功能恢復(fù)情況、轉(zhuǎn)診8個方面進行詳細(xì)的建檔。通過這個建檔，可以清晰地看到病人的各種基本狀況，并可將病人相關(guān)信息存入excel表。除此之外，還設(shè)置了格式化輸入，用戶只有再輸入了全部的必填信息后才可保存相關(guān)數(shù)據(jù)。

關(guān)鍵代碼如下：

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

在記錄查詢中，可以根據(jù)患者的姓名，手機號，住院號，門診號，然后輸入相對應(yīng)的數(shù)據(jù)，可以確切地查到相對應(yīng)的患者的信息，單擊列表框中查詢結(jié)果項后，則可自動跳轉(zhuǎn)到excel表中對應(yīng)的病人信息。

3.3 評分系統(tǒng)

共選用5個常用權(quán)威量表，每個評分量表由三個板塊組成，即評分界面，評分結(jié)果界面和對應(yīng)的Excel表格界面，各量表運行原理大致相同，以改良rankin量表為例來展示rankin評分。rankin評分是一種快速簡潔的評估方式，是現(xiàn)今最常使用的功能結(jié)局評估量表。它不僅可以與患者進行面對面直接評估，也可以通過電話隨訪進行遠(yuǎn)程評估，對臨床試驗的結(jié)果有重大意義。

美國國立衛(wèi)生院神經(jīng)功能缺損評分（NIHSS）。由于NIHSS評分具有操作簡單、可靠性高、效率高的特點，已經(jīng)成為AIS臨床診斷及臨床試驗評估體系的重要組成部分。它從意識、凝視、視野、面癱、上下肢運動、上下肢協(xié)調(diào)、感覺、語言、構(gòu)音障礙、忽視十大方面對患者進行評估。

ADL量表。Barthel指數(shù)計分可以將ADL分為四級。生活基本自理、生活需要幫助、生活需要極大幫助、生活完全需要幫助。它從大便、小便、修飾、用廁、吃飯、移動、活動（步行）、穿衣、上下樓梯、洗澡這十大方面對患者進行測評。由于Barthel指數(shù)評定簡單、可信度高等特點，被廣泛應(yīng)用于康復(fù)醫(yī)療方面。

SIS量表。SIS量表的目的是為了評價腦卒中影響健康與生活的程度，主要作為測評生存質(zhì)量的工具，被主要應(yīng)用于測量臨床腦卒中患者健康狀況。SIS量表從力氣、手功能、ADUIADL、移動能力、交流、情緒、記憶思維、參與這八個方面，59個小條目對患者進行評估。

MoCA評分。蒙特利爾認(rèn)識評估（MoCA）是一種快速篩選輕度認(rèn)知功能異常的評分工具。它評定不同認(rèn)知領(lǐng)域，包括：視空間/執(zhí)行能力、命名、記憶、注意力、語言、抽象能力、定向力。由于MoCa涵蓋認(rèn)知領(lǐng)域廣、敏感度高、設(shè)計合理、更具針對性等特點，被國際廣泛推薦的篩查量表。

可以針對病人的不同量表的得分以及同一量表的不同時期的得分以統(tǒng)計圖表的形式進行展示，便于醫(yī)生及時掌握病人的狀況以及綜合各個量表的結(jié)論進行判斷。

為方便醫(yī)生使用，設(shè)置了超鏈接功能，可以通過鏈接進入權(quán)威卒中網(wǎng)站，如中國心腦血管疾病網(wǎng)，本思路也是基于本團隊對醫(yī)院的走訪和醫(yī)生的需求而設(shè)計的。

4 結(jié)束語

本系統(tǒng)使醫(yī)務(wù)人員在常用的Excel軟件或WPS軟件上能夠?qū)崿F(xiàn)評分，對提高醫(yī)療服務(wù)水平、工作效率和節(jié)約成本等都有現(xiàn)實意義。鑒于傳統(tǒng)的紙質(zhì)腦卒中評分和隨訪額諸多弊端，現(xiàn)有移動的腦卒中評分系統(tǒng)的缺點，以及Excel VBA具有開發(fā)速度快，窗口化制作，支持調(diào)用底層API、方便進行二次開發(fā)等特點，本團隊設(shè)計并實現(xiàn)了基于Excel VBA的腦卒中評分系統(tǒng)腦卒中評分系統(tǒng)，可以更好地幫助不同醫(yī)院的醫(yī)生了解患者的患病情況，提高醫(yī)生工作效率。

參考文獻：

[1]藺雪梅，王芳，王靜，等.RRE-90、ESRS和SPI-Ⅱ評分對缺血性腦卒中復(fù)發(fā)風(fēng)險預(yù)測價值比較[J].陜西醫(yī)學(xué)雜志，2019，48（5）：599-602.

[2]安成東.北方地區(qū)急診老年腦卒中患者心理應(yīng)激評分調(diào)查[J].中國老年保健醫(yī)學(xué)，2018，16（4）：90-91.

[3]崔子健.基于VBA的成績快速錄入系統(tǒng)的設(shè)計與實現(xiàn)[J].電腦知識與技術(shù)，2019，15（6）：49-51，58.

[4]劉柱鴻，黎鑫，彭元輝.基于Excel VBA的教學(xué)秩序督查報表管理系統(tǒng)設(shè)計與實現(xiàn)[J].軟件工程，2018，21（4）：45-48.

[5]蔣帥.基于Unity 3D的遠(yuǎn)程醫(yī)療系統(tǒng)的設(shè)計與實現(xiàn)[D].北京：北京交通大學(xué)，2017.

【通聯(lián)編輯：謝媛媛】

收稿日期：2019-10-08

基金項目：江蘇省教育科學(xué)研究院課題，醫(yī)學(xué)生信息技術(shù)課程的教學(xué)改革與創(chuàng)新（項目編號：2017R57185）;徐州醫(yī)科大學(xué)高等教育教改研究課題，互聯(lián)網(wǎng)+背景下醫(yī)學(xué)生計算機課程教學(xué)改革研究（項目編號：xjy201723）

作者簡介：李小剛（1997-），男，河南鹿邑人，徐州醫(yī)科大學(xué)，2016級本科臨床醫(yī)學(xué)系;劉偉（1978-），男，通訊作者，副教授，徐州醫(yī)科大學(xué)醫(yī)學(xué)信息與工程學(xué)院，研究方向為醫(yī)學(xué)信息化技術(shù)、信息技術(shù)教育。