24小时热门版块排行榜    

查看: 3557  |  回复: 22
【奖励】 本帖被评价19次,作者shex增加金币 15

shex

金虫 (小有名气)


[资源] 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的。
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : LD.xls
  • 2013-05-09 23:17:20, 104 K

» 收录本帖的淘帖专辑推荐

收藏资料

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangzq

铁虫 (初入文坛)


★★★★★ 五星级,优秀推荐

很好的,支撑
2楼2013-05-10 08:31:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

iwish297

禁虫 (小有名气)

本帖内容被屏蔽

4楼2013-08-27 09:52:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

veigh09

禁虫 (初入文坛)

本帖内容被屏蔽

8楼2014-12-28 16:29:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wang2020

金虫 (正式写手)


略微简单点,标题都没有,看不懂
13楼2016-07-22 14:57:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

milertom

铁虫 (小有名气)


★★★ 三星级,支持鼓励

顶一下,感谢分享!2003能用。2016用不了。
15楼2016-12-01 17:48:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
2013-06-18 21:36   回复  
五星好评  顶一下,感谢分享!
SunnyRsGs5楼
2014-01-17 17:45   回复  
五星好评  顶一下,感谢分享!
huwenjun6楼
2014-02-27 23:24   回复  
顶一下,感谢分享!
emilyjc7楼
2014-06-02 20:04   回复  
五星好评  顶一下,感谢分享!
glssg9楼
2015-01-06 14:24   回复  
五星好评  顶一下,感谢分享!
2015-02-22 15:59   回复  
顶一下,感谢分享!
2015-02-25 22:52   回复  
五星好评  顶一下,感谢分享!
wang202012楼
2016-07-22 14:56   回复  
五星好评  顶一下,感谢分享!
csp245814楼
2016-09-16 14:16   回复  
五星好评  顶一下,感谢分享!
2017-02-15 12:45   回复  
五星好评  顶一下,感谢分享!
taizf17楼
2017-03-07 14:46   回复  
五星好评  顶一下,感谢分享!
137470425518楼
2017-03-12 20:57   回复  
五星好评  顶一下,感谢分享!
hua19916319楼
2018-02-16 23:24   回复  
五星好评  顶一下,感谢分享!
rgfmgk20楼
2018-04-19 17:06   回复  
五星好评  顶一下,感谢分享!
2018-11-29 11:03   回复  
五星好评  顶一下,感谢分享!
2019-12-05 15:32   回复  
五星好评  顶一下,感谢分享!
nalgae23楼
2022-06-02 09:55   回复  
五星好评  顶一下,感谢分享!
相关版块跳转 我要订阅楼主 shex 的主题更新
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[博后之家] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 DpSrDtM079iu 2026-08-22 5/250 2026-08-23 04:07 by OEbVnUOu01ol
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 2JOx3r2CYEgw 2026-08-22 4/200 2026-08-23 03:55 by OEbVnUOu01ol
[论文投稿] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 2JOx3r2CYEgw 2026-08-22 5/250 2026-08-23 03:52 by OEbVnUOu01ol
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 2JOx3r2CYEgw 2026-08-22 6/300 2026-08-23 03:40 by OEbVnUOu01ol
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 2JOx3r2CYEgw 2026-08-21 9/450 2026-08-23 03:31 by OEbVnUOu01ol
[论文投稿] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 QTy3jDtz1uLt 2026-08-21 9/450 2026-08-23 03:04 by OEbVnUOu01ol
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 QTy3jDtz1uLt 2026-08-21 11/550 2026-08-23 02:55 by OEbVnUOu01ol
[基金申请] 范进中举一文的中心思想 +3 zjuhero 2026-08-22 4/200 2026-08-22 20:02 by mycsru
[基金申请] filecode,4个jtjc了 +13 ziyangfang 2026-08-19 16/800 2026-08-22 17:08 by WH3796
[基金申请] 今天基金会出结果吗?20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by 阿布Abu
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +16 医学老男孩 2026-08-20 20/1000 2026-08-21 21:13 by Ldrop2023
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 感觉是下周放榜了 +7 angus9576 2026-08-17 12/600 2026-08-21 13:38 by weiyin
[基金申请] 我面上完蛋了 +7 且听虎啸 2026-08-20 8/400 2026-08-21 12:31 by 酷酷墨镜
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 今天系统多次维护,明天很可能放榜! +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 重要消息,中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
信息提示
请填处理意见