24小时热门版块排行榜

返回列表

【奖励】本帖被评价19次，作者shex增加金币 15 个

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

shex

金虫 (小有名气)

应助: 22 (小学生)
金币: 996.3
帖子: 67
在线: 119.9小时
虫号: 27809

[资源] Excel计算LD50、EC50等版数量的VBA源程序

看到有不少战友没有合适的LD50计算软件，将以前编的一个小程序与大家分享。
LD50、IC50、ED50等XX50半数量计算方法都相同，只是意义不同，本程序都可以算。算法为Bliss正规法，参考孙瑞元主编《定量药理学》一书相应部分，计算结果同NDST基本一致。
本程序采用Excel的宏（VBA）编写，大量应用Execl提供的函数，故程序简短，可读性强，有爱好编程的朋友可以参考。
用法：打开表格，选择启用宏，任意位置输入相邻的三列数，鼠标选中，选择菜单“工具”-宏-宏（或按alt+F8），执行main即可。熟练的朋友可在工具栏上添加一个按钮，指向main，使用方便。
第一列：剂量（实际值，不用对数转换）；第二列：每组总动物数；第三列：死亡/有效动物数。如：
3502020
2452017
1722016
120206
84202
5920　
记得之行前一定要选中三列数据，用于计算，可在表格的任意部分。该程序在excel2000上通过，2003可能行，2007和2010估计不行，但只是函数表达更新，过程一致。可供爱好者参考。待明天上传支持新版excel的。

回复此楼