| 查看: 2167 | 回复: 9 | ||
zjs12309金虫 (小有名气)
|
[求助]
excel编写VBA程序 已有1人参与
|
想用一个自定义函数，函数公式如下: 举例，excel计算公式如下：  备注：n不一定等于4，可以是≥3的整数。 求助编写一个VBA程序，作为自定义函数，计算时直接选取A、B两列数值即可得出结果，不用输入复杂的公式。 备注：此为溶出曲线相似因子f2计算公式，如有更方便的程序亦可提供。 |
回复此楼» 猜你喜欢
一志愿太原理工安全工程300分，求调剂
已经有5人回复
-
调剂求院校招收
已经有4人回复
-
求化学调剂
已经有4人回复
-
085600，材料与化工321分求调剂
已经有7人回复
-
一志愿武汉理工，总分321，英一数二，求老师收留。
已经有6人回复
-
考研调剂
已经有6人回复
-
0856求调剂
已经有12人回复
-
0703化学
已经有9人回复
-
0703化学求调剂
已经有10人回复
-
317求调剂
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 测量坐标计算程序 V5（全线贯通曲、直线坐标计算，支持生成卡西欧计算器数据库）
已经有22人回复
- 锂电池SOC与OCV之间的转换问题
已经有2人回复
- 请问如何使该循环终止？
已经有4人回复
- Office 2010 SP2 精简便携版
已经有72人回复
- 测量坐标计算程序V5（工程测量员的福音）
已经有39人回复
- 求大神，关于C++程序的调试
已经有2人回复
- Excel计算LD50、EC50等版数量的VBA源程序
已经有22人回复
yhzh2009
木虫 (小有名气)
aa
- 应助: 1 (幼儿园)
- 金币: 2327.8
- 帖子: 80
- 在线: 168.5小时
- 虫号: 1710185
- 注册: 2012-03-22
- 性别: GG
- 专业: 矿床学
2楼2016-06-07 00:57:33
yhzh2009
木虫 (小有名气)
aa
- 应助: 1 (幼儿园)
- 金币: 2327.8
- 帖子: 80
- 在线: 168.5小时
- 虫号: 1710185
- 注册: 2012-03-22
- 性别: GG
- 专业: 矿床学
3楼2016-06-07 01:12:03
zjs12309
金虫 (小有名气)
- 应助: 7 (幼儿园)
- 金币: 1020.5
- 帖子: 107
- 在线: 220.1小时
- 虫号: 1609782
- 注册: 2012-02-10
- 性别: GG
- 专业: 药物分析
4楼2016-06-07 08:32:16
yhzh2009
木虫 (小有名气)
aa
- 应助: 1 (幼儿园)
- 金币: 2327.8
- 帖子: 80
- 在线: 168.5小时
- 虫号: 1710185
- 注册: 2012-03-22
- 性别: GG
- 专业: 矿床学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
zjs12309: 金币+20, ★★★★★最佳答案 2016-06-07 16:20:56
zjs12309: 金币+20, ★★★★★最佳答案 2016-06-07 16:20:56
|
Function f(R As Range, T As Range) 'f2为单元格，用冲突，改成f '溶出曲线相似因子f2计算公式，R,T必须连续且包含的单元格数目相等 Application.Volatile '用以实时刷新 Dim i As Integer, N As Integer, Srt As Double '剔除有删除线的点,并求R、T差平方和 For i = 1 To R.Count If Not (R(i).Font.Strikethrough Or T(i).Font.Strikethrough) Then Srt = Srt + (R(i) - T(i)) ^ 2 N = N + 1 End If Next f = 50 * Log(100 / Sqr(1 + Srt / N)) / Log(10#) End Function ‘============================= 粘贴上述代码到模块中，运用时用删除线(ctrl+5)剔除掉不用的数据即可 |
5楼2016-06-07 15:17:03
yhzh2009
木虫 (小有名气)
aa
- 应助: 1 (幼儿园)
- 金币: 2327.8
- 帖子: 80
- 在线: 168.5小时
- 虫号: 1710185
- 注册: 2012-03-22
- 性别: GG
- 专业: 矿床学
6楼2016-06-07 15:22:58
zjs12309
金虫 (小有名气)
- 应助: 7 (幼儿园)
- 金币: 1020.5
- 帖子: 107
- 在线: 220.1小时
- 虫号: 1609782
- 注册: 2012-02-10
- 性别: GG
- 专业: 药物分析
7楼2016-06-07 16:20:49
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
| 我编写了个vba函数，上传在百度盘里。解压后直接调用 函数 ffs（），就一个参数，就是你所选的区域。就可以计算结果了。 链接：http://pan.baidu.com/s/1bpqhKMb |
8楼2016-06-08 00:32:41
zjs12309
金虫 (小有名气)
- 应助: 7 (幼儿园)
- 金币: 1020.5
- 帖子: 107
- 在线: 220.1小时
- 虫号: 1609782
- 注册: 2012-02-10
- 性别: GG
- 专业: 药物分析
9楼2016-06-08 09:42:15
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
10楼2016-06-08 16:19:59
5
