基于Excel_VBA技术...物溶出度处理软件设计与实现_张梦.pdf

网络信息工程2022.24630 引言药物溶出度是评价体外模拟体内药物的溶出行为，是对体内药物生物利用度评价的有效替代方法，也是评价与衡量固体口服制剂生产工艺及质量是否稳定的一项重要手段1-3。目前溶出数据的处理过程普遍在 Excel 工作表中直接编辑溶出结果，包括核对试验参数、测定数据、编辑累计溶出度计算公式、绘制溶出曲线、整理溶出试验报告等。溶出报告的整理过程产生大量试验信息反复输入、计算公式反复编辑、溶出报告的反复排版等此类枯燥重复的操作，易产生人为失误。目前市面上有关药学实验与数据处理相关的软件报告模板常见于色谱工作站，如安捷伦、岛津、Waters 等品牌仪器都配备软件报告模板，但这些报告都只是记录数据而并非最终所需的结果报告；而电子办公软件 Excel 的基础操作虽然可以进行编辑公式处理数据，但由于表格的开放性，任何人可以随时添加或删除信息，改动报告结构、数据，并且如前所述存在无法实现数据的重复处理等问题。基于实际工作中的这些问题，拟用 Office 软件中开发模块 VBA 制作一款可以一键生成溶出报告的程序软件。本文 以 Microsoft Office Excel+VBA（Visual Basic for Application）为主平台进行二次开发，其中自动化智能技术部分采取以 VBA 编程为主，Excel 函数为辅的方案，实现既能提高数据处理的速率和准确率，同时得到美观、规范的溶出报告。该处理软件可用于药物信息录入、多种药物制剂溶出数据计算、一键导出药物溶出度计算报告等。软件的设计可以为研发人员带来便利，帮助从繁琐的重复数据处理中解放出来，提升工作效率和准确率。1 软件设计思路药物溶出数据处理往往需要对测定数据进行复制、粘贴和公式编辑等操作，为此通过 Excel 开发工具 Visual Basic录制新宏，将每一步操作详细记录下来，对应在模块内生成可执行的 VBA 宏代码4；同时在 VBA 中创建独立的用户窗体和控件，通过控件驱动代码，使得用户窗体与 Excel 工作表之间实现交互。软件的操作由登录权限，测定项目选择，输入试验参数、输入测定数据和生成溶出报告这五类界面构成，“输入测定数据”和“生成溶出报告”两个功能的用户操作界面以 Excel基于 Excel VBA 技术的药物溶出度处理软件设计与实现张梦1，张涛2，王祥吉3，祝红达1（1.湖北工业大学,湖北武汉,430000;2.复旦大学,上海,200000;3.北京振东生物科技有限公司,北京,100000）摘要：为准确、高效、规范地处理药物溶出度数据，减少研发人员对重复且繁琐实验数据的手动处理，运用 Excel VBA 技术设计一种药物溶出度数据处理软件。运用 Excel VBA 窗体设计功能开发美观的用户操作界面，使用 VBA 宏语言在 VBE 窗口编写程序代码，结合用户窗体中的控件命令按钮驱动代码，同时利用 VBA 宏录制功能实现对数据的反复处理。应用该软件能够高效批量处理各种药物制剂溶出数据，实现一键生成报告的“傻瓜式”操作功能。关键词：Excel;VBA 技术；Visual Basic；药物溶出度中图分类号：R932 文献标识码：A UseExcelVBAtoDesignSoftwareandApplyEvaluationofDrugDissolutionZhang Meng1,Zhang Tao2,Wang Jixiang3,Zhu Hongda1(1.School of Food and Biological Engineering,Hubei University of Technology,Wuhan Hubei,430000;2.School of Pharmacy,Fudan University,Shanghai,200000;3.Beijing Zhendong Biotechnology Co.,Ltd,Beijing,100000)Abstract:In order to process drug dissolution data effectively and accurately and reduce the manual processing of experimental data,Here an analysis software for evaluation of drug dissolution was designed based on Excel VBA technology.Using Excel VBA form design function to develop a beautiful user interface,the software can process data repeatly and realize the“fool”operation function of generating reports with one click.Keywords:Excel;VBA programming;Visual Basic;Drug Dissolution基金项目：湖北工业大学绿色工业科技引领计划项目（XJ2021003301）。DOI:10.16520/ki.1000-8519.2022.24.011网络信息工程2022.2464工作表形式呈现，其他功能的用户操作界面以用户窗体形式呈现。组成软件的各个界面属性见下表 1。表 1 组成软件的各个界面属性对象名称属性界面功能UserForm1用户窗体登录系统UserForm2用户窗体项目选择UserForm3用户窗体三大功能按钮（输入参数、输入数据、生成报告）UserForm4用户窗体输入试验参数Sheet1（库）Excel 工作表生成溶出报告Sheet2（紫外数据）Excel 工作表输入测定数据Excel VBA 中的用户窗体和控件为操作人员和程序代码之间搭建较友好的窗口界面，增强设计软件的视觉效果和操作功能。窗体与表格之间能够交互，其功能可用于登录窗口、数据输入界面、数据查询界面、选项设置窗口等系统界面设计。2 软件主要功能设计与实现2.1 生成溶出报告功能登录软件并选择具体药品项目后，进入主要功能区UserForm3，在单击“输入测定数据”和“编辑表头信息”按钮输入相应的文本后，单击“生成溶出报告”即可生成一份完整的溶出报告如图 1 所示。一键生成溶出报告的方式只需在软件第一次设计时编辑好报告模板，后续可以反复使用。2.2 生成溶出报告功能的设计根据制药行业对于溶出报告的要求设计报告模板信息见下表 2。在 Excel 工作表单元格中分别添加适当数量的溶出度测定报告样品信息对照信息实验信息样品名称：对乙酰氨基酚片规格(mg)：500生产公司：药品研究院产品批号：1201批制作者：ZM放置条件：自封袋内制作日期：20220427包 装：未包装对照品 1质量(mg)：对照品 2质量(mg)：15.3115.54对照品稀释系数：2500对照品厂家：山东新华方法号：900mL-30min-50rpm溶出介质：PH1.2介质体积(mL):900测定方法：浆法溶出仪：Hanson5min取样稀释系数:4500010min取样稀释系数：转 速：50rpm电子天平：METTLER90000波 长：243nm紫外仪器：UV15min取样稀释系数：90000片1片2片3片4片5片6质量(g)0.581g0.581g0.581g0.581g0.581g0.581g称样量(mg)对照品 1对照品 215.3115.54稀释系数25002500Abs0.39910.4070平均Abs0.40305F0.0151911时间(min)片1片2片3片4片5片6平均值RSD%510153045600.17220.29140.32620.35640.36000.36000.16640.23620.29860.34800.35320.35320.25270.27020.3080.33940.34790.34790.20790.27180.33460.35960.35540.35540.12240.16440.28420.34150.36170.36170.23440.24360.30210.35200.36650.36650.1930.2460.3090.3490.3570.35725.0318.236.012.301.861.86样品吸光度(A)时间(min)样品累计溶出度(%)5101530456004500090000900009000090000片1片2片3片4片5稀释系数0.023.579.990.399.6090000101.7102.80.00.022.864.882.697.099.5100.734.574.385.495.098.399.40.028.474.692.6100.5100.5101.60.016.745.178.494.9101.5102.6片60.032.067.083.798.3103.3104.5平均值RSD%参比0.00.0026.367.685.597.6100.8101.925.0318.216.112.391.741.7445.572.488.5102.1101.5102.4120.0100.080.060.040.020.00.0累计溶出度/%1201批参比020406080时间/min120.0100.080.060.040.020.00.0累计溶出度/%020406080时间/min1201批 PH1.2 50rpm 900mL 片1 片2 片3 片4 片5 片6实验记录本编号：1136 测定人员：ZM 测定日期：2022/03/27图 1 Sheet 溶出度测定报告网络信息工程2022.2465标签，将这些标签重命名为“样品信息”“样品名称”“生产公司”“对照信息”等表 2 中表头信息部分，每个标签后面预留空单元格，适当调整标签和单元格位置使排版清晰美观。表 2 溶出报告模板包含信息报告板块报告内容表头信息样品信息：样品名称、生产公司、制作者、制作日期、规格、产品批号、放置条件、包装；对照信息：对照品 1 质量、对照品 2 质量、对照品稀释倍数；实验信息：方法号、测定方法、转速、波长、溶出介质、溶出仪、电子天平、紫外仪器、介质体积、5 分钟取样稀释倍数、10 分钟取样稀释倍数、15 分钟取样稀释倍数试验数据溶出测定数据赋值区累积溶出度计算区溶出曲线自制 6 份样品的平均值与参比制剂的溶出曲线对比自制 6 份样品的单独溶出曲线页脚日期、记录本号、试验员名字在开发工具中启用宏，在 Visual Basic 中添加一个用户窗体和相应数量的命令按钮，分别在属性中将命令按钮重名为“输入测定数据”“编辑表头信息”“生成溶出报告”“返回上一层”，单击“生成溶出报告”按钮即弹出 Sheet1 工作表的程序代码如下：Private Sub CommandButton3_Click()Application.Visible=TrueSheets(“库”).Visible=TrueSheets(“紫外数据”).Visible=FalseSheet1.ActivateUserForm1.HideUserForm2.HideEnd Sub2.3 输入测定数据功能登 录 并 选 择 具 体 药 品 项 目 后，进 入 主 要 功 能 区UserForm3 用 户 界 面，单 击“输入测定数据”功能按钮，在弹出的Sheet2 工作表固定单元格内输入具体数据，点击“确定”即完成一次溶出试验数据的输入。2.4 输入测定数据功能的设计单击“输入测定数据”的按钮会弹出 Sheet2 工作表，通过如下代码实现命令按钮与 Sheet2 工作表的交互：Private Sub CommandButton1 _Click()Application.Visible=TrueSheets(“库”).Visible=FalseSheets(“紫外数据”).Visib