应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » excel编写VBA程序
北京石油化工学院2026年研究生招生接收调剂公告
101/1返回列表
查看: 2171  |  回复: 9
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zjs12309

金虫 (小有名气)

[求助] excel编写VBA程序 已有1人参与

想用一个自定义函数，函数公式如下:
excel编写VBA程序

举例，excel计算公式如下：
excel编写VBA程序-1

备注：n不一定等于4，可以是≥3的整数。

求助编写一个VBA程序，作为自定义函数，计算时直接选取A、B两列数值即可得出结果，不用输入复杂的公式。

备注：此为溶出曲线相似因子f2计算公式，如有更方便的程序亦可提供。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2016-06-06 23:15:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhzh2009

木虫 (小有名气)

aa
直接数组公式就可解决

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
2楼2016-06-07 00:57:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhzh2009

木虫 (小有名气)

aa

【答案】应助回帖

感谢参与，应助指数 +1
Function  f2(R As Range, T As Range)
    With WorksheetFunction
          f2=50*.log(...)   '''手机打字，省略要搬你的Excel公式，不过里面的函数前要加“.”号，表所属关系
    End With
End Function

[ 发自手机版 http://muchong.com/3g ]
赞一下(2人) 回复此楼
3楼2016-06-07 01:12:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zjs12309

金虫 (小有名气)
引用回帖:
3楼: Originally posted by yhzh2009 at 2016-06-07 01:12:03
Function  f2(R As Range, T As Range)
    With WorksheetFunction
          f2=50*.log(...)   '''手机打字，省略要搬你的Excel公式，不过里面的函数前要加“.”号，表所属关系
    End With
End Function
...

THX,如果我想选序号1,3,4的数值，不把序号2的数值算进去的话，该如何修改VBA？
赞一下 回复此楼
4楼2016-06-07 08:32:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhzh2009

木虫 (小有名气)

aa

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
zjs12309: 金币+20, ★★★★★最佳答案 2016-06-07 16:20:56
引用回帖:
4楼: Originally posted by zjs12309 at 2016-06-07 08:32:16
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
  Next
  f = 50 * Log(100 / Sqr(1 + Srt / N)) / Log(10#)
End Function
‘=============================
粘贴上述代码到模块中，运用时用删除线(ctrl+5)剔除掉不用的数据即可
赞一下 回复此楼
5楼2016-06-07 15:17:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhzh2009

木虫 (小有名气)

aa
这类问题可以到Excelhome论坛上问

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
6楼2016-06-07 15:22:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zjs12309

金虫 (小有名气)
引用回帖:
5楼: Originally posted by yhzh2009 at 2016-06-07 15:17:03
Function f(R As Range, T As Range)  'f2为单元格，用冲突，改成f
'溶出曲线相似因子f2计算公式，R,T必须连续且包含的单元格数目相等
  Application.Volatile '用以实时刷新
  Dim i As Integer, N As Integer ...

好的，非常感谢
回复此楼
7楼2016-06-07 16:20:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
我编写了个vba函数，上传在百度盘里。解压后直接调用 函数 ffs（），就一个参数，就是你所选的区域。就可以计算结果了。 链接：http://pan.baidu.com/s/1bpqhKMb
赞一下 回复此楼
8楼2016-06-08 00:32:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zjs12309

金虫 (小有名气)
引用回帖:
8楼: Originally posted by deephill at 2016-06-08 00:32:41
我编写了个vba函数，上传在百度盘里。解压后直接调用 函数 ffs（），就一个参数，就是你所选的区域。就可以计算结果了。 链接：http://pan.baidu.com/s/1bpqhKMb

thx，不过好像写出来的VBA算出来的结果不正确哦
赞一下 回复此楼
9楼2016-06-08 09:42:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
引用回帖:
9楼: Originally posted by zjs12309 at 2016-06-08 09:42:15
thx，不过好像写出来的VBA算出来的结果不正确哦...

你帖子中那个图片中的公式和 excel 公式好像不一样。你自己用vb 打开看下模块中的这个函数的程序。稍微修改下就没有问题了。
赞一下 回复此楼
10楼2016-06-08 16:19:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zjs12309 的主题更新
101/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 332求调剂 +3 @MZB382400 2026-03-28 3/150 2026-03-28 16:55 by JourneyLucky
[考研] 一志愿中南大学化学0703总分337求调剂 +5 niko- 2026-03-27 5/250 2026-03-28 14:25 by 唐沐儿
[考研] 317求调剂 +6 十闲wx 2026-03-24 6/300 2026-03-28 13:27 by Iveryant
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 一志愿南昌大学324求调剂 +7 hanamiko 2026-03-27 7/350 2026-03-28 09:56 by 李上岸0921
[考研] 322求调剂 +6 宋明欣 2026-03-27 6/300 2026-03-28 07:08 by wangy0907
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
[考研] 331环境科学与工程求调剂 +3 熠然好运气 2026-03-27 3/150 2026-03-28 04:11 by fmesaito
[考研] 086000调剂 +3 7901117076 2026-03-26 3/150 2026-03-27 21:34 by Jianing_Mi
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
[考研] 284求调剂 +11 junqihahaha 2026-03-26 12/600 2026-03-27 04:37 by wxiongid
[考研] 329求调剂 +5 1() 2026-03-22 5/250 2026-03-26 20:40 by fmesaito
[考研] 289求调剂 +17 硕星赴 2026-03-23 17/850 2026-03-26 16:18 by 不吃魚的貓
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 302求调剂 +4 锦衣卫藤椒 2026-03-25 4/200 2026-03-25 16:29 by 功夫疯狂
[考研] 各位老师您好：本人初试372分 +5 jj涌77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[考研] 347求调剂 +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
[考研] 300分，材料，求调剂，英一数二 +5 超赞的 2026-03-24 5/250 2026-03-24 21:07 by 星空星月
[考研] 085404电子信息284分求调剂 +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
信息提示
关闭
请填处理意见
关闭