應(yīng)用Excel設(shè)計(jì)醫(yī)院藥品競(jìng)價(jià)采購(gòu)系統(tǒng)

茹建華

（浙江省慈溪市人民醫(yī)院藥劑科，浙江 寧波 315300）

目前，我國(guó)醫(yī)療機(jī)構(gòu)絕大部分藥品都納入招標(biāo)范疇，但仍有部分藥品不在集中招標(biāo)采購(gòu)范圍之內(nèi)。急救藥品、生物制品、藥準(zhǔn)字的檢驗(yàn)試劑及因中標(biāo)價(jià)過(guò)低而導(dǎo)致斷貨的藥品，大多由醫(yī)療機(jī)構(gòu)以競(jìng)價(jià)方式進(jìn)行采購(gòu)，即比較多家醫(yī)藥公司的報(bào)價(jià)，選擇最低報(bào)價(jià)采購(gòu)[1]。以前對(duì)這一工作采用手工處理，效率低，差錯(cuò)率高，公開(kāi)性差。Excel作為Microsoft Office辦公軟件的組成部分之一，具有強(qiáng)大的組織、管理和分析數(shù)據(jù)能力。筆者用Excel設(shè)計(jì)了藥品競(jìng)價(jià)采購(gòu)系統(tǒng)，提高了工作效率，以下作具體介紹。

1 運(yùn)行環(huán)境

硬件為計(jì)算機(jī)和數(shù)碼投影儀各1臺(tái)。軟件為Windows 98/2000/XP，Excel 2000或以上版本。

2 藥品競(jìng)價(jià)采購(gòu)系統(tǒng)的設(shè)計(jì)

2.1 競(jìng)價(jià)藥品報(bào)價(jià)表設(shè)計(jì)

在Excel中建立一個(gè)競(jìng)價(jià)藥品報(bào)價(jià)工作表，文件名為ypbj.xls。詳細(xì)內(nèi)容見(jiàn)圖1。為了提高工作效率，表中的藥品名稱(chēng)、規(guī)格、單位、生產(chǎn)廠家等信息，可從醫(yī)院信息系統(tǒng)（HIS）中導(dǎo)出[2]。測(cè)算價(jià)指醫(yī)院可接受的最高報(bào)價(jià)。為防止醫(yī)藥公司輸入差錯(cuò)，如小數(shù)點(diǎn)錯(cuò)輸成“?！?，報(bào)價(jià)大于測(cè)算價(jià)等，在報(bào)價(jià)檢測(cè)單元格J3輸入檢測(cè)函數(shù)“ =IF（（TYPE（G3））=1，IF（（G3-F3 ＞0），報(bào)價(jià)大于測(cè)算價(jià)，），輸入錯(cuò)誤）”，然后在單元格J3右下端十字星下拉，將此函數(shù)復(fù)制至最后一條藥品記錄。若醫(yī)藥公司報(bào)價(jià)輸錯(cuò)，報(bào)價(jià)檢測(cè)單元格將產(chǎn)生提示信息。單擊“數(shù)據(jù)/篩選/自動(dòng)篩選”，在數(shù)據(jù)上方出現(xiàn)篩選下拉菜單標(biāo)志。為防止醫(yī)藥公司對(duì)表格內(nèi)容的修改，選中所有報(bào)價(jià)，報(bào)價(jià)公司單元格，單擊菜單欄“格式/單元格”調(diào)出單元格設(shè)置窗口，在保護(hù)窗口去掉鎖定項(xiàng)前的“√”。然后再單擊“工具/保護(hù)/保護(hù)工作表”輸入密碼，這樣除了報(bào)價(jià)和報(bào)價(jià)公司單元格外，其他單元格內(nèi)容都無(wú)法編輯，這樣，就完成了對(duì)工作表的保護(hù)。

圖1 競(jìng)價(jià)采購(gòu)藥品報(bào)價(jià)表

2.2 競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表設(shè)計(jì)

在Excel中建立一個(gè)競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表，文件名為lhby.xls。具體內(nèi)容見(jiàn)圖2。單擊“數(shù)據(jù)/篩選/自動(dòng)篩選”，在數(shù)據(jù)上方出現(xiàn)篩選下拉菜單標(biāo)志。單擊“視圖/工作欄/窗體”，顯示“窗體”工具欄，再單擊按鈕，在工作表上要放置按鈕的位置按住鼠標(biāo)左鍵，拖拉出大小合適的按鈕后，選取宏，按“確定”，按鈕形成，再把按鈕名稱(chēng)改為自動(dòng)評(píng)標(biāo)。鼠標(biāo)右鍵單擊自動(dòng)評(píng)按鈕，選擇“指定宏/編輯”在代碼框中輸入以下VBA代碼。

Sub Macro（）

OrderCustom：=1，MatchCase：=False，Orientation：=xlTopToBottom，

SortMethod:=xlPinYin，按藥品編號(hào)，報(bào)價(jià)降序排序

r=Cells（1，3）.Value

For n=3 To r

If Cells（n，1）=Cells（n+1，1）Then

If Cells（n+1，7）＞ Cells（n，7）Then

Else

Else

End If

End If

End If

Next n

For n=3 To r

Next n

End Sub

圖2 競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表

以上代碼的作用是對(duì)所有藥品的報(bào)價(jià)進(jìn)行自動(dòng)判斷，報(bào)價(jià)結(jié)果只可能是最低報(bào)價(jià)、非最低報(bào)價(jià)、最低報(bào)價(jià)相同3種情況之一。確定每種藥品全部報(bào)價(jià)中的最低報(bào)價(jià)或相同的最低報(bào)價(jià)（如兩家或兩家以上醫(yī)藥公司最低報(bào)價(jià)相同的情況），并將結(jié)果寫(xiě)在每條報(bào)價(jià)記錄的評(píng)標(biāo)結(jié)果中。

3 應(yīng)用

3.1 報(bào)價(jià)文件的發(fā)送

將競(jìng)價(jià)藥品報(bào)價(jià)文件ypbj.xls通過(guò)電子郵件發(fā)給各醫(yī)藥公司，醫(yī)藥公司填好報(bào)價(jià)后，在規(guī)定的時(shí)間統(tǒng)一上交醫(yī)院。

3.2 現(xiàn)場(chǎng)公開(kāi)開(kāi)標(biāo)、評(píng)標(biāo)

為真正做到公開(kāi)、公平、公正，醫(yī)院工作人員當(dāng)場(chǎng)打開(kāi)某醫(yī)藥公司上交的ypbj.xls報(bào)價(jià)文件，用數(shù)碼投影儀將其投影于大屏幕上，現(xiàn)場(chǎng)展示給各醫(yī)藥公司報(bào)價(jià)代表看。點(diǎn)擊報(bào)價(jià)的下拉菜單標(biāo)志，選擇非空白，Excel自動(dòng)把未報(bào)價(jià)品種過(guò)濾掉，然后再點(diǎn)擊報(bào)價(jià)檢測(cè)的下拉菜單標(biāo)志，選擇空白，Excel將報(bào)價(jià)大于測(cè)算價(jià)或輸入錯(cuò)誤的記錄過(guò)濾掉。接著打開(kāi)競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表lhby.xls文件，將上述ypbj.xls文件中有效報(bào)價(jià)記錄全部復(fù)制粘貼到競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表中。同法操作，將其余醫(yī)藥公司的有效報(bào)價(jià)記錄全部復(fù)制粘貼到競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表中，最后把總報(bào)價(jià)記錄數(shù)（最后一條報(bào)價(jià)記錄的行號(hào)減3）輸?shù)絚1單元格，保存。然后點(diǎn)擊自動(dòng)評(píng)標(biāo)按鈕，系統(tǒng)對(duì)每條報(bào)價(jià)記錄自動(dòng)產(chǎn)生評(píng)標(biāo)結(jié)果。點(diǎn)擊評(píng)標(biāo)結(jié)果的下拉菜單標(biāo)志，選擇相同最低報(bào)價(jià)，若有相同最低報(bào)價(jià)的情況，Excel將自動(dòng)篩選出這些最低報(bào)價(jià)相同的藥品記錄，現(xiàn)場(chǎng)重新組織醫(yī)藥公司報(bào)價(jià)，即讓醫(yī)藥公司報(bào)價(jià)代表將新報(bào)價(jià)寫(xiě)在紙上，上交，當(dāng)場(chǎng)亮相比價(jià)；若再相同，再重新填報(bào)比價(jià)，直至產(chǎn)生唯一的最低報(bào)價(jià)。將新的最低報(bào)價(jià)輸入原報(bào)價(jià)單元格，替換原報(bào)價(jià)后保存。單擊“數(shù)據(jù)/篩選/全部顯示”，顯示全部報(bào)價(jià)記錄，此時(shí)報(bào)價(jià)匯總表中已無(wú)相同最低報(bào)價(jià)記錄。再點(diǎn)擊自動(dòng)評(píng)標(biāo)按鈕。此時(shí)，競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表中只產(chǎn)生兩種評(píng)標(biāo)結(jié)果，即最低報(bào)價(jià)和非最低報(bào)價(jià)。

3.3 競(jìng)價(jià)結(jié)果公示

點(diǎn)擊競(jìng)價(jià)采購(gòu)報(bào)價(jià)匯總表中評(píng)標(biāo)結(jié)果的下拉菜單標(biāo)志，選擇最低報(bào)價(jià)，Excel將自動(dòng)篩選出每種藥品的最低報(bào)價(jià)記錄（即成交品種）。再點(diǎn)擊報(bào)價(jià)公司下拉菜單標(biāo)志，選擇各醫(yī)藥公司，Excel自動(dòng)篩選出各公司的最低報(bào)價(jià)記錄（即成交品種）。將該公司的最低報(bào)價(jià)記錄復(fù)制到另一空白Excel表格中，交由各報(bào)價(jià)公司帶回。

4 討論

VBA（Visual Basic for Application）是微軟公司為了加強(qiáng) Office軟件的二次開(kāi)發(fā)能力而附加于其中的編程語(yǔ)言。VBA與BASIC具有相似的語(yǔ)言結(jié)構(gòu)，便于藥師等非計(jì)算機(jī)專(zhuān)業(yè)人員理解和掌握。利用VBA，幾乎可以在Excel里面做任何其他程序能做的事情。利用VBA編制自動(dòng)評(píng)標(biāo)功能，方法簡(jiǎn)單、實(shí)用，處理數(shù)據(jù)快速、準(zhǔn)確，大大拓展了Excel處理數(shù)據(jù)的功能，實(shí)現(xiàn)了評(píng)標(biāo)自動(dòng)化。

本系統(tǒng)經(jīng)濟(jì)、實(shí)用，可明顯節(jié)省采購(gòu)方和報(bào)價(jià)方的人力、物力，降低采購(gòu)成本，院方競(jìng)價(jià)采購(gòu)工作組和各醫(yī)藥公司都感到滿意。本系統(tǒng)實(shí)現(xiàn)了報(bào)價(jià)文件發(fā)送、開(kāi)標(biāo)、評(píng)標(biāo)過(guò)程的信息化運(yùn)作，有效地減少了中間環(huán)節(jié)和人為因素，全面提高了藥品競(jìng)價(jià)采購(gòu)的效率、質(zhì)量和透明度，并規(guī)范了藥品購(gòu)銷(xiāo)行為，最大限度地降低了藥品進(jìn)價(jià)，值得醫(yī)療機(jī)構(gòu)推廣使用。

[1]欒瀟瀟，陳盛新.醫(yī)療機(jī)構(gòu)藥品采購(gòu)模式的比較及影響因素分析[J].藥學(xué)實(shí)踐雜志，2008，26（6）：415-416.

[2]曾明藝，黃 春.Microsoft Excel工作表在醫(yī)院藥品管理中的應(yīng)用[J].中國(guó)藥房，2009，20（1）：42.