应用Excel设计医院药品竞价采购系统

茹建华

（浙江省慈溪市人民医院药剂科，浙江 宁波 315300）

目前，我国医疗机构绝大部分药品都纳入招标范畴，但仍有部分药品不在集中招标采购范围之内。急救药品、生物制品、药准字的检验试剂及因中标价过低而导致断货的药品，大多由医疗机构以竞价方式进行采购，即比较多家医药公司的报价，选择最低报价采购[1]。以前对这一工作采用手工处理，效率低，差错率高，公开性差。Excel作为Microsoft Office办公软件的组成部分之一，具有强大的组织、管理和分析数据能力。笔者用Excel设计了药品竞价采购系统，提高了工作效率，以下作具体介绍。

1 运行环境

硬件为计算机和数码投影仪各1台。软件为Windows 98/2000/XP，Excel 2000或以上版本。

2 药品竞价采购系统的设计

2.1 竞价药品报价表设计

在Excel中建立一个竞价药品报价工作表，文件名为ypbj.xls。详细内容见图1。为了提高工作效率，表中的药品名称、规格、单位、生产厂家等信息，可从医院信息系统（HIS）中导出[2]。测算价指医院可接受的最高报价。为防止医药公司输入差错，如小数点错输成“。”，报价大于测算价等，在报价检测单元格J3输入检测函数“ =IF（（TYPE（G3））=1，IF（（G3-F3 ＞0），报价大于测算价，），输入错误）”，然后在单元格J3右下端十字星下拉，将此函数复制至最后一条药品记录。若医药公司报价输错，报价检测单元格将产生提示信息。单击“数据/筛选/自动筛选”，在数据上方出现筛选下拉菜单标志。为防止医药公司对表格内容的修改，选中所有报价，报价公司单元格，单击菜单栏“格式/单元格”调出单元格设置窗口，在保护窗口去掉锁定项前的“√”。然后再单击“工具/保护/保护工作表”输入密码，这样除了报价和报价公司单元格外，其他单元格内容都无法编辑，这样，就完成了对工作表的保护。

图1 竞价采购药品报价表

2.2 竞价采购报价汇总表设计

在Excel中建立一个竞价采购报价汇总表，文件名为lhby.xls。具体内容见图2。单击“数据/筛选/自动筛选”，在数据上方出现筛选下拉菜单标志。单击“视图/工作栏/窗体”，显示“窗体”工具栏，再单击按钮，在工作表上要放置按钮的位置按住鼠标左键，拖拉出大小合适的按钮后，选取宏，按“确定”，按钮形成，再把按钮名称改为自动评标。鼠标右键单击自动评按钮，选择“指定宏/编辑”在代码框中输入以下VBA代码。

Sub Macro（）

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

SortMethod:=xlPinYin，按药品编号，报价降序排序

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 竞价采购报价汇总表

以上代码的作用是对所有药品的报价进行自动判断，报价结果只可能是最低报价、非最低报价、最低报价相同3种情况之一。确定每种药品全部报价中的最低报价或相同的最低报价（如两家或两家以上医药公司最低报价相同的情况），并将结果写在每条报价记录的评标结果中。

3 应用

3.1 报价文件的发送

将竞价药品报价文件ypbj.xls通过电子邮件发给各医药公司，医药公司填好报价后，在规定的时间统一上交医院。

3.2 现场公开开标、评标

为真正做到公开、公平、公正，医院工作人员当场打开某医药公司上交的ypbj.xls报价文件，用数码投影仪将其投影于大屏幕上，现场展示给各医药公司报价代表看。点击报价的下拉菜单标志，选择非空白，Excel自动把未报价品种过滤掉，然后再点击报价检测的下拉菜单标志，选择空白，Excel将报价大于测算价或输入错误的记录过滤掉。接着打开竞价采购报价汇总表lhby.xls文件，将上述ypbj.xls文件中有效报价记录全部复制粘贴到竞价采购报价汇总表中。同法操作，将其余医药公司的有效报价记录全部复制粘贴到竞价采购报价汇总表中，最后把总报价记录数（最后一条报价记录的行号减3）输到c1单元格，保存。然后点击自动评标按钮，系统对每条报价记录自动产生评标结果。点击评标结果的下拉菜单标志，选择相同最低报价，若有相同最低报价的情况，Excel将自动筛选出这些最低报价相同的药品记录，现场重新组织医药公司报价，即让医药公司报价代表将新报价写在纸上，上交，当场亮相比价；若再相同，再重新填报比价，直至产生唯一的最低报价。将新的最低报价输入原报价单元格，替换原报价后保存。单击“数据/筛选/全部显示”，显示全部报价记录，此时报价汇总表中已无相同最低报价记录。再点击自动评标按钮。此时，竞价采购报价汇总表中只产生两种评标结果，即最低报价和非最低报价。

3.3 竞价结果公示

点击竞价采购报价汇总表中评标结果的下拉菜单标志，选择最低报价，Excel将自动筛选出每种药品的最低报价记录（即成交品种）。再点击报价公司下拉菜单标志，选择各医药公司，Excel自动筛选出各公司的最低报价记录（即成交品种）。将该公司的最低报价记录复制到另一空白Excel表格中，交由各报价公司带回。

4 讨论

VBA（Visual Basic for Application）是微软公司为了加强 Office软件的二次开发能力而附加于其中的编程语言。VBA与BASIC具有相似的语言结构，便于药师等非计算机专业人员理解和掌握。利用VBA，几乎可以在Excel里面做任何其他程序能做的事情。利用VBA编制自动评标功能，方法简单、实用，处理数据快速、准确，大大拓展了Excel处理数据的功能，实现了评标自动化。

本系统经济、实用，可明显节省采购方和报价方的人力、物力，降低采购成本，院方竞价采购工作组和各医药公司都感到满意。本系统实现了报价文件发送、开标、评标过程的信息化运作，有效地减少了中间环节和人为因素，全面提高了药品竞价采购的效率、质量和透明度，并规范了药品购销行为，最大限度地降低了药品进价，值得医疗机构推广使用。

[1]栾潇潇，陈盛新.医疗机构药品采购模式的比较及影响因素分析[J].药学实践杂志，2008，26（6）：415-416.

[2]曾明艺，黄 春.Microsoft Excel工作表在医院药品管理中的应用[J].中国药房，2009，20（1）：42.