从ActiveCell开始循环

Question

有没有办法从调用函数的位置开始填充一组值？

Function score2(TYP)
If TYP = "1" Then
    Dim i As Integer

For i = 1 To 10 Step 1

    ActiveCell.Condition = 1

   Next
End If
End Function

Answer 1

有一种方法可以知道调用函数的单元格。 Application.Caller为您提供了单元格。

但是无法从工作表中调用的函数更改工作表。为此使用单独的宏，并在响应事件时触发它，而不是在工作表计算期间。