输入参数的Excel 2010 VBA用户书面功能修改

Question

我对Excel 2010 VBA有疑问。 做了很多寻找解决方案的尝试，但是答案并没有解决我的问题。 希望stackoverflow社区能够为我提供一些启示。

我有一个用户编写的函数，该函数从工作表的单元格中调用。 使用两个参数调用它–两个单元都在同一张纸上。

该函数的目的是检查两个参数，并根据它们的值返回一个字符串作为函数的结果。

至此，该功能可以按预期工作。

但是，如果第一个参数的值具有某个值，我希望能够更改第二个参数的值。 这就是我卡住的地方。 我找不到任何改变其价值的方法。

我尝试将参数设置为所需的值，但这会导致错误。 我以为可以建立指向活动工作表以及单元格的指针，但是我不知道它的引用是什么（因为工作表上会有很多）。

老实说，我不确定我能做我所需要的。 如有任何想法或意见，我们将不胜感激。

带着敬意

格雷厄姆·琼斯（Graham Jones）

Answer 1

由于用户定义函数（UDF）无法更改工作簿/工作表等的状态，因此可以使用工作表更改事件。

将此代码复制到要输入功能的工作表中

    Private Sub Worksheet_Change(ByVal Target As Range) 
Application.EnableEvents=False
     if Target.Address = "$A$1" and target.count = 1 Then ' change in first parameter - first parameter
       if Target.Value ="something" then    Range("B1").Value ="change"
         '$A$1 is the location of fist paramenter
         'range("b1") is second parameter on assumption
      end if
   Application.EnableEvents=True
    End Sub 

Answer 2

通常，您不希望Excel函数更改其输入。 我以前做过，但是，这被认为是非常不好的做法。

更可接受的方法是制作一个计算第二个参数的函数 -这将需要2个输入：

1. 第一个参数
2. 第二个参数的默认值

然后，您可以使用该函数来计算工作表中的第二个参数（换句话说，不是让包含第二个参数的单元格只是一个设置值，而是现在通过此函数进行计算），然后您的原始函数可以像总是第二个参数始终是期望值。

我希望这是有道理的-如果没有，请让我知道，我将举一个例子。