使用WorksheetFunction嵌套函数

木易2008

      在excel中通过函数averageifs可以获得需要的数值，并嵌套函数round将该数值*10000，再取2位小数，将获取到的值放到N4单元格
      函数公式如下：ROUND(AVERAGEIFS(F:F,C:C,M4)*10000,2)
现在使用vba可以实现上面公式中的averageifs部分，

[n5] = Application.WorksheetFunction.AverageIfs([f:f], [c:c], [m5])



也就是函数的AVERAGEIFS(清洗数据!F:F,清洗数据!C:C,A2)

现在想在外面嵌套一层round函数，想请教下在不使用2行代码的情况下，通过vba该如何实现？试了好多次都没有成功。



[n5] = Application.WorksheetFunction.AverageIfs([f:f], [c:c], [m5])
[n5] = Application.WorksheetFunction.Round([n5] * 10000, 2)


也就是如何将上面2行代码合并到一起，谢谢。

taller

[n5] = VBA.Round(Application.WorksheetFunction.AverageIfs([f:f], [c:c], [m5]), 0)

lss001

ROUND函数ⅤBA有，可不加Application
AVERAGEIFS函数VBA无，要加Application
VBA引用单元格简化写法：两边加中括号[ ]

[N5] = ROUND(Application.AVERAGEIFS([F:F],[C:C],[M4])*10000,2)

ykcbf1100

VBA中，round函数，可以前面加VBA，也可以加Application，也可以什么都不加，就象函数那样直接用。
以下几种表达方式都是可以的：
[n5] = Application.Round([n3], 2)
[n5] = VBA.Round([n3], 2)
[n5] = Round([n3], 2)

ykcbf1100

VBA的Round函数与工作表的Round函数均为四舍五入函数，两个函数的语法相同，但有着很大的不同，其主要区别如下：
1：VBA的Round函数的第二个参数可省略，当省略时，表示返回整数。工作表的Round函数不可省略。
2：VBA的Round函数的第二参数不可为负数。工作表的Round函数的第二个参数可以为负数，当为负数，表示向小数点左边取保留位数
3：工作表Round函数进行四舍五入时，将查看保留位数的后一位数字，该数字大于或等于5时，则进1，反不进位。而VBA的Round函数规则如下：
当保留位数的后一位数字大于5时，进位
当保留位数的后一位数字小于5时，不进位
当保留位数的后一位数字为5时，若该位之后存在任何大于0的数，进位
当保留位数的后一位数字为5时，若该位之后的数为0且保留位的数字为奇数时，进位
当保留位数的后一位数字为5时，若该位之后的数为0且保留位的数字为偶数时，不进位