excel - 在Excel VBA中获取当前单元格周围的相邻单元格值

Question

我想获取相邻单元格的值以便在 VBA 中计算。

很容易得到当前单元格的左单元格(例如H19)，通常是这样的:

=H18

如果我将此单元格复制到其他单元格，每个单元格都会更改为适当的单元格编号。

但是在VBA代码中，我不确定我获取左边单元格的值是否正确。

Public Function LeftCell()
    LeftCell = ActiveCell.Offset(0, -1).Value
End Function

我不确定这是否正确，我测试了将此单元格复制到其他单元格，但每个结果都不会自动更改。

我点击了菜单上的各种计算按钮，将计算更改为自动，但没有计算发生。

我唯一能做的就是手动选择每个单元格并按回车键。

有什么方法可以计算所有单元格的值吗？否则，“事件单元格”是指“光标选定的单元格”？

提前感谢您的帮助。

Answer 1

按照@Chris Harper 的建议添加公式是可行的，但您也可以只在单元格中编写公式。

您需要调用公式的单元格，而不是 ActiveCell。

Public Function LeftCell()
    LeftCell = Application.Caller.Offset(, -1).Value
End Function

编辑:如果您希望单元格在您更改值时更新，请添加 Application.Volatile True 作为函数中的第一行。

https://msdn.microsoft.com/en-us/library/office/ff193687.aspx