| 查看: 2124 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
zjs12309金虫 (小有名气)
|
[求助]
excel编写VBA程序 已有1人参与
|
|
想用一个自定义函数，函数公式如下: 举例，excel计算公式如下：  备注：n不一定等于4，可以是≥3的整数。 求助编写一个VBA程序，作为自定义函数，计算时直接选取A、B两列数值即可得出结果，不用输入复杂的公式。 备注：此为溶出曲线相似因子f2计算公式，如有更方便的程序亦可提供。 |
回复此楼» 猜你喜欢
情人节自我反思：在爱情中有过遗憾吗？
已经有6人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有4人回复
-
今年春晚有几个节目很不错，点赞！
已经有6人回复
-
球磨粉体时遇到了大的问题，请指教！
已经有15人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 测量坐标计算程序 V5（全线贯通曲、直线坐标计算，支持生成卡西欧计算器数据库）
已经有22人回复
- 锂电池SOC与OCV之间的转换问题
已经有2人回复
- 请问如何使该循环终止？
已经有4人回复
- Office 2010 SP2 精简便携版
已经有72人回复
- 测量坐标计算程序V5（工程测量员的福音）
已经有39人回复
- 求大神，关于C++程序的调试
已经有2人回复
- Excel计算LD50、EC50等版数量的VBA源程序
已经有22人回复
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
- 专业: 矿床学
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
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