创建关于“母子”的自定义函数

WYS67

恳请老师们根据上面两张截图内容的异同，创建自定义函数MUZI

当输入公式{ =MUZI(数据区域,最小值,中间值)或=MUZI(单元格,最小值,中间值)时，指定为求《三区母子》B、D列的计算结果；
当省略上边公式第二、三参数时，输入公式{ =MUZI(数据区域)或=MUZI(单元格)时，则指定为求《三余母子》B、D列的计算结果。

创建关于母子的自定义函数.zip (18.6 KB, 下载次数: 5)

2018-12-2 22:25 上传

点击文件名下载附件

WYS67

恳请老师们帮忙写出代码

yjh_27

WYS67 发表于 2018-12-2 23:07
恳请老师们帮忙写出代码

参见附件。

WYS67

yjh_27 发表于 2018-12-3 01:02
参见附件。

老师的功力一直都很强大！写出的代码非常圆满地实现了我心中所想！诚挚感谢老师的热心帮忙！

lss001

→_→→_→

WYS67

lss001 发表于 2018-12-3 12:00
Function MUZI(rng As Range, Optional b = "", Optional c = "")
Dim ar, br, cr, d, e, f, i, j: ar = ...

经测试，计算结果完全正确！非常完美地实现了我的初衷！热忱感谢老师一如既往的热心帮忙！

玉阳山人

lss001 发表于 2018-12-3 12:00
Function MUZI(rng As Range, Optional b = "", Optional c = "")
Dim ar, br, cr, d, e, f, i, j: ar = ...

老师：看看 http://club.excelhome.net/thread-1449630-1-1.html  里的问题怎么解决？

WYS67

lss001 发表于 2018-12-3 12:00
Function MUZI(rng As Range, Optional b = "", Optional c = "")
Dim ar, br, cr, d, e, f, i, j: ar = ...

老师：恳请您根据http://club.excelhome.net/thread-1449776-1-1.html  1楼和7楼的补充，编写个按B2指定的每天周期，插入正确行数，自动补齐A列被遗漏期序的sub过程，或者区域数组输入的自定义函数{ =BUQIYILOU(数据区域，指定周期)，也就是选定C5:D100000,输入公式{  =BUQIYILOU(A5:B100000,B2)，就可以在C列插入正确的行数，自动补齐A5:A10972遗漏的期序；并同步显示与之对应的B列内容。


注意：实际工作表中并不限于只有A、B两列，也可能是三、四列，但其他列的情况与B列类似，如在E5:H100000里输入公式{  =BUQIYILOU(A5:D100000,B2)，则是在E列插入正确的行数，自动补齐A5:A10972遗漏的期序；并同步显示与之对应的B、C、D列内容。

麻烦老师给予帮忙！

lss001

WYS67 发表于 2018-12-5 16:32
老师：恳请您根据http://club.excelhome.net/thread-1449776-1-1.html  1楼和7楼的补充，编写个按B2指定 ...

最近较忙，请另发帖至vba板块求助！

WYS67

lss001 发表于 2018-12-5 17:00
最近较忙，请另发帖至vba板块求助！

那好吧。感谢老师回复！