Excel 2010 VBA。输入框正在删除它更改的单元格中的公式

Excel 2010 VBA。输入框正在删除它更改的单元格中的公式

好吧,我对 VBA 还很陌生。事实上,我是一个数据专家,并不怎么使用它,所以请原谅我知识的匮乏。

我在工作表中有一个单元格,该单元格的值来自另一个单元格。换句话说,单元格 b1 = a1。我使用输入框来更改 b1 的值,因为有时需要这样做。我不想更改单元格 a1,而是希望保留 b1 中的公式,以便单元格 b1 正常地从 a1 中获取值。

这是我的代码:

Private Sub CommandButton_click ()
Dim myValue As Variant
myValue = InputBox ("change cell b1")
Range ("b1"). Value = myValue
End Sub

这可以更改值但会删除公式。我正在使用 activeX 按钮来启动输入框。此按钮是否可以覆盖公式以供用户使用,但仍保留公式以供将来计算?95% 的时间我需要 b1 从 a1 中得出值,但当我覆盖它时,我需要公式不被删除,以便下一个用户可以使用它。

谢谢

答案1

实现这一点的通常方法是使用第三细胞

假设我们使用C1作为覆盖:

如果C1为空,则使用A1
如果C1不为空,则使用它。

因此B1进入:

=IF(C1="",A1,C1)

并更新宏C1

相关内容