24小时热门版块排行榜&&&&
(小有名气)
在线: 208.8小时
虫号: 1609782
注册: 性别: GG专业: 药物分析
excel编写VBA程序已有1人参与
想用一个自定义函数，函数公式如下:
举例，excel计算公式如下：
备注：n不一定等于4，可以是≥3的整数。
求助编写一个VBA程序，作为自定义函数，计算时直接选取A、B两列数值即可得出结果，不用输入复杂的公式。
备注：此为溶出曲线相似因子f2计算公式，如有更方便的程序亦可提供。
& 猜你喜欢
已经有22人回复
已经有75人回复
已经有86人回复
已经有21人回复
已经有13人回复
已经有65人回复
已经有4人回复
已经有28人回复
已经有66人回复
已经有9人回复
& 本主题相关商家推荐:
& 本主题相关价值贴推荐，对您同样有帮助:
已经有20人回复
已经有2人回复
已经有4人回复
已经有6人回复
已经有4人回复
已经有68人回复
已经有18人回复
已经有38人回复
已经有2人回复
已经有10人回复
已经有19人回复
已经有32人回复
已经有2人回复
(小有名气)
在线: 168.5小时
虫号: 1710185
注册: 性别: GG专业: 矿床学
直接数组公式就可解决
(小有名气)
在线: 168.5小时
虫号: 1710185
注册: 性别: GG专业: 矿床学
【答案】应助回帖
感谢参与，应助指数 +1
Function&&f2(R As Range, T As Range)
& & With WorksheetFunction
& && && & f2=50*.log(...)& &'''手机打字，省略要搬你的Excel公式，不过里面的函数前要加“.”号，表所属关系
& & End With
End Function
(小有名气)
在线: 208.8小时
虫号: 1609782
注册: 性别: GG专业: 药物分析
引用回帖:: Originally posted by yhzh2009 at
Function&&f2(R As Range, T As Range)
& & With WorksheetFunction
& && && & f2=50*.log(...)& &'''手机打字，省略要搬你的Excel公式，不过里面的函数前要加“.”号，表所属关系
& & End With
End Function
... THX,如果我想选序号1,3,4的数值，不把序号2的数值算进去的话，该如何修改VBA？
(小有名气)
在线: 168.5小时
虫号: 1710185
注册: 性别: GG专业: 矿床学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ zjs12309: 金币+20, ★★★★★最佳答案
引用回帖:: Originally posted by zjs12309 at
THX,如果我想选序号1,3,4的数值，不把序号2的数值算进去的话，该如何修改VBA？... 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
&&f = 50 * Log(100 / Sqr(1 + Srt / N)) / Log(10#)
End Function
‘=============================
粘贴上述代码到模块中，运用时用删除线(ctrl+5)剔除掉不用的数据即可
(小有名气)
在线: 168.5小时
虫号: 1710185
注册: 性别: GG专业: 矿床学
这类问题可以到Excelhome论坛上问
(小有名气)
在线: 208.8小时
虫号: 1609782
注册: 性别: GG专业: 药物分析
引用回帖:: Originally posted by yhzh2009 at
Function f(R As Range, T As Range)&&'f2为单元格，用冲突，改成f
'溶出曲线相似因子f2计算公式，R,T必须连续且包含的单元格数目相等
&&Application.Volatile '用以实时刷新
&&Dim i As Integer, N As Integer ... 好的，非常感谢
(职业作家)
在线: 405.7小时
虫号: 305318
注册: 性别: GG专业: 微量元素地球化学
我编写了个vba函数，上传在百度盘里。解压后直接调用 函数 ffs（），就一个参数，就是你所选的区域。就可以计算结果了。 链接：
(小有名气)
在线: 208.8小时
虫号: 1609782
注册: 性别: GG专业: 药物分析
引用回帖:: Originally posted by deephill at
我编写了个vba函数，上传在百度盘里。解压后直接调用 函数 ffs（），就一个参数，就是你所选的区域。就可以计算结果了。 链接：http://pan.baidu.com/s/1bpqhKMb thx，不过好像写出来的VBA算出来的结果不正确哦
(职业作家)
在线: 405.7小时
虫号: 305318
注册: 性别: GG专业: 微量元素地球化学
引用回帖:: Originally posted by zjs12309 at
thx，不过好像写出来的VBA算出来的结果不正确哦... 你帖子中那个图片中的公式和 excel 公式好像不一样。你自己用vb 打开看下模块中的这个函数的程序。稍微修改下就没有问题了。
相关版块跳转
第一性原理
我要订阅楼主
的主题更新
小木虫,学术科研互动社区,为中国学术科研免费提供动力
违规贴举报删除请发送邮件至：
广告投放与宣传请联系 李想 QQ：
QQ：&&邮箱：
Copyright &
MuChong.com, All Rights Reserved. 小木虫 版权所有Excel处理数据用到的一些公式和VBA脚本 - swee632 - 博客园
随笔 - 20, 文章 - 2, 评论 - 0, 引用 - 0
最近工作中用到EXCEL统计处理一些数据，正好之前有自学了一段时间的EXCEL，这次正好用上。为了加深印象，以后方便翻阅，就记录下来。这篇会不断补充。
IF 多条件判断返回值
　　IF(logical_test, [value_if_true], [value_if_false])
　　示例：　小于500，且未到期的，返回“补款”
　　IF(AND(A2&500,B2="未到期"),"补款","")
　　职称为工程师或高工的，返回“满足”
　　IF(OR(C3="工程师", C3="高工"),"满足","")
　　说明：两个条件同时成立用AND,任一个成立用OR函数。
IFS 多场景判断返回值
IFS(logical_test1,value_if_true1, logical_test2, value_if_true2, ...)
在一列中，根据不同的判断条件，给出符合条件的值
IFERROR 把公式产生的错误值显示为自定义值
IFERROR(value, value_if_error) &第一个参数为需要判断的计算式，第二个参数为当第一个参数出错时要返回的值。
　　示例：成绩低于60，不及格　　
IFERROR(A2&=60,"不及格")
COUNTIF 单条件计数
　　COUNTIF(range, criteria)
　　示例：统计E列工资大于6000的人员数
　　COUNTIF(E:E, "&6000")
　　COUNTIF(E:E, "&"&M9) 假设M9单元格内容为6000
COUNTIFS 多条件计数
　　COUNTIFS(criteria_range1, criteria1, criteria_range2, criteria2, ...)
　　示例：统计属于销售部门，工资大于6000的员工人数
　　COUNTIFS(D:D, "销售", E:E, "&6000")
SUMIF 按条件在查找区域进行查找，并返回查找区域对应的数据区域中数值的和
　　SUMIF(range, criteria, [sum_range])
　　示例：当不指定SUM_RANGE时，将直接对RANGE区域求和
　　SUMIF(C:C, "&1000"), 对大于1000的单元格求和
　　SUMIF(B:B, "果汁", C:C), 对B列为果汁对应的C列销量求和
SUMIFS 多条件组合的数据求和
　　SUMIFS(sum_range, criteria_range1, criteria1, criteria_range2, criteria2, ...)
　　示例： 统计生产部门，男性工资的总和
　　SUMIFS(K:K, D:D, "生产", C:C, "男")　　
AVERAGEIF, AVERAGEIFS和SUMIF, SUMIFS类似
VLOOKUP, HLOOKUP 搜索用户查找范围中首列（或首行）中满足条件的数据，并根据指定的列号（行号）返回对应的值。VLOOKUP对列数据按行进行查找，HLOOKUP对行数据按列查找
　　VLOOKUP(lookup_value, table_array, col_index_num, [range_lookup])
　　HLOOKUP(lookup_value, table_array, row_index_num, [range_lookup])
　　[range_lookup]默认值为1或TRUE，使用模糊匹配方式进行查找。如果设置成0或FALSE，使用精确查找，同时支持无序查找。
　　示例：查找员工号为2267的员工姓名
　　VLOOKUP("2267", A1:D4, 2)
LEN 返回文本串的字符个数
　　LEN(text)
SUBSTITUTE 将目标文本中指定的字符串替换为新的字符串
　　SUBSTITUTE(text, old_text, new_text, instance_num)
　　示例：
　　将第二个狐替换成虎
　　SUBSTITUTE("狐假狐威", "狐", "虎", 2)
　　计算单元格中MANUAL字符的个数
(LEN(J13)-LEN(SUBSTITUTE(J13,"MANUAL",)))/LEN("MANUAL")
INDEX 根据给定的一个范围（区域引用或数组）中指定的行号和列号来返回一个值，如果源数据是区域，则返回单元格引用；如果源范围是数组，则返回数组中的某个值。
　　INDEX(reference, row_num, [column_num], [area_num])
　　INDEX(array, row_num, [column_num])
　　示例：从左侧的数据表隔行提取，生成新的工作表
　　E4：INDEX($C$3:$C$8, ROW(A2)*2-1)
　　F4：INDEX($C$3:$C$8,ROW(A2)*2)
SMALL 取指定的第N小的值
　　SMALL(array, K)
&　　示例：
　　取第一小的值
　　SMALL({10，15，20},1.5)等同于SMALLSMALL({10，15，20},1)，结果为10
LARGE 取指定的第N大的值，与SMALL相反
在一列中，填入其他一列需求名中的ID号，ID号会是重复的，但在另外一个OtherSheet中已经有B列对应所有的ID号。先模糊匹配上ID号，再返回ID号为单元格值。
E17=VaildReq(OtherSheet!B:B,B17)
VBA代码：&
Function VaildReq(rng1 As Range, s As String) As String
Dim r As Long
r = rng1.End(xlDown).Row - rng1.Row + <span style="color: #
Arr1 = rng1.Resize(r, <span style="color: #)
Dim i As Long
For i = <span style="color: # To UBound(Arr1)
If InStr(s, Arr1(i, <span style="color: #)) Then
If VaildReq = "" Then VaildReq = Arr1(i, <span style="color: #) Else VaildReq = s
End Function
&当EXCEL添加了VBA代码时，保存EXCEL得另存为 EXCEL启用宏的工作簿(*.xlsm)格式。已解决问题
EXCEL VBA 如何实现整个EXCEL 利的公式重新计算一次
浏览次数：1967
用手机阿里扫一扫
最满意答案
在代码中加一句：Calculate即可
答案创立者
以企业身份回答&
正在进行的活动
生意经不允许发广告，违者直接删除
复制问题或回答，一经发现，拉黑7天
快速解决你的电商难题
店铺优化排查提升2倍流量
擅长&nbsp 店铺优化
您可能有同感的问题
扫一扫用手机阿里看生意经
问题排行榜
当前问题的答案已经被保护，只有知县（三级）以上的用户可以编辑！写下您的建议，管理员会及时与您联络！
server is ok(window.slotbydup=window.slotbydup || []).push({
id: '2014386',
container: s,
size: '234,60',
display: 'inlay-fix'
&&|&&0次下载&&|&&总3页&&|
您的计算机尚未安装Flash，点击安装&
阅读已结束，如需下载到电脑，请使用积分（）
下载：2积分
1人评价35页
2人评价35页
0人评价1页
1人评价2页
0人评价35页
所需积分：（友情提示：大部分文档均可免费预览！下载之前请务必先预览阅读，以免误下载造成积分浪费！）
（多个标签用逗号分隔）
文不对题，内容与标题介绍不符
广告内容或内容过于简单
文档乱码或无法正常显示
文档内容侵权
已存在相同文档
不属于经济管理类文档
源文档损坏或加密
若此文档涉嫌侵害了您的权利，请参照说明。
我要评价：
价格：2积分VIP价：}