[已解决]自定义函数使用出现状况

benson.xie

自己尝试做了个简单的自定义函数，出现了点状况。请论坛各位高手帮忙看下，谢谢。

这个自定义函数是要实现求得前面第2，4，6，8个单元格的平均值。 直接用，和复制粘贴的情况下都OK. 单元格往下拖拽复制公式就出现状况。

请问是什么原因呢?

最佳答案

月排行榜 / 总排行榜

extyg

2015-5-25 11:12

Function newavg()
Dim rng As Range
Set rng = Union(Application.ThisCell.Offset(0, -2), Application.ThisCell.Offset(0, -4), Application.ThisCell.Offset(0, -6), Application.ThisCell.Offset(0, -8))
newavg = Application.WorksheetFunction.Average(rng)
End Function

跳转到最佳答案楼层

extyg

Function newavg()
Dim rng As Range
Set rng = Union(Application.ThisCell.Offset(0, -2), Application.ThisCell.Offset(0, -4), Application.ThisCell.Offset(0, -6), Application.ThisCell.Offset(0, -8))
newavg = Application.WorksheetFunction.Average(rng)
End Function

benson.xie

extyg 发表于 2015-5-25 11:12
Function newavg()
Dim rng As Range
Set rng = Union(Application.ThisCell.Offset(0, -2), Applicati ...

运行出现错误，请见图。

benson.xie

不懂为什么出现错误信息，我又试了下，可以正确使用了，谢谢extyg。

爱疯

直接用工作表函数不是方便些？

爱疯

Excel 开发人员参考
Application.ThisCell 属性
返回一个单元格，用户定义的函数将作为 Range 对象从这里调用。
语法

表达式.ThisCell

表达式   一个代表 Application 对象的变量。

说明


在用户定义的函数中，用户不能访问 Range 对象上的属性或方法。当完成了重新计算后，用户可以为今后的使用和执行附加操作而存储 Range 对象。


示例


在本示例中，名为“UseThisCell”的函数包括 ThisCell 属性，以便将单元格地址通知给用户。

Visual Basic for Applications
Function UseThisCell()
    MsgBox "The cell address is: " & _
        Application.ThisCell.Address
End Function



~~~~~~~~~~~~~~~~~~~~~~~~ 我是分割线 ~~~~~~~~~~~~~~~~~~~~~~~~


谢谢钉耙版主，学习了

如果自定义函数不下拉，两者没区别。
如果自定义函数要下拉：
ActiveCell，仍是拉动前的唯一的那个单元格；
Application.ThisCell，是自定义函数所在的单元格。

benson.xie

学习了，谢谢。