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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » excel编写VBA程序
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 2169  |  回复: 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的回帖

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的回帖
查看全部 10 个回答

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的回帖
查看全部 10 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 调剂310 +5 温柔的晚安 2026-03-25 6/300 2026-03-28 15:43 by buxianyu
[考研] 311（085601）求调剂 +3 liziyeyeye 2026-03-28 3/150 2026-03-28 15:29 by 1018329917
[考研] 320分，材料与化工专业，求调剂 +9 一定上岸aaa 2026-03-27 13/650 2026-03-28 15:00 by 神马都不懂
[考研] 085600，材料与化工321分求调剂 +9 大馋小子 2026-03-28 9/450 2026-03-28 14:56 by 神马都不懂
[考研] 调剂 +3 好好读书。 2026-03-28 3/150 2026-03-28 12:04 by 王保杰33
[考研] 322求调剂 +6 宋明欣 2026-03-27 6/300 2026-03-28 07:08 by wangy0907
[考研] 086502化学工程342求调剂 +6 阿姨复古不过 2026-03-27 6/300 2026-03-28 07:06 by wangy0907
[考研] 331环境科学与工程求调剂 +3 熠然好运气 2026-03-27 3/150 2026-03-28 04:11 by fmesaito
[有机交流] 高温高压反应求助 10+4 chibby 2026-03-25 4/200 2026-03-27 21:08 by BT20230424
[考研] 085601 材料工程 313分 求调剂 +5 Ong3 2026-03-27 5/250 2026-03-27 12:24 by goldfish51
[考研] 327求调剂 +7 prayer13 2026-03-23 7/350 2026-03-26 20:48 by 不吃魚的貓
[考研] 中国科学院深圳先进技术研究院-光纤传感课题组招生-中国科学院大学、深圳理工大学联培 +5 YangTyu1 2026-03-26 5/250 2026-03-26 18:27 by 猫咪猫咪呀
[考研] 352求调剂 +4 大米饭！ 2026-03-22 4/200 2026-03-26 16:40 by 不吃魚的貓
[考研] 085602 289分求调剂 +8 WWW西西弗斯 2026-03-24 8/400 2026-03-26 16:33 by 不吃魚的貓
[考研] 一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研经历 +6 cccchenso 2026-03-23 6/300 2026-03-25 22:25 by 544594351
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 生物技术与工程 +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[考研] 化工专硕求调剂 +3 question挽风 2026-03-24 3/150 2026-03-24 18:48 by jhhcooi
[考研] 277分求调剂，跨调材料 +3 考研调剂lxh 2026-03-24 3/150 2026-03-24 13:52 by JourneyLucky
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
信息提示
关闭
请填处理意见
关闭