Excel VBA：宏中的单元格值

Question

我有一个宏，它可以从其他单元格值中设置一个单元格的值。
因此，当我照常运行代码时，宏会设置单元格的值。

但是我希望Macro像公式一样工作。
因此，当这些单元格更改时，单元格的值始终会更改。

有什么办法吗？
还是从公式调用宏的一种方法？

编辑：（注释后）

好。 这就是我想要的宏。

我有Hours：Minutes，我想将所有这些都加起来。
问题是我的小时数是负数：我使用以下公式计算了它们的分钟数：

=TEXT(ABS(H10-E10),"-h:mm")

所以我有这样的事情：

08:20, 02:10, -03:20, [and so on...]

我想要结果：

 08 + 02 - 03 = 07
 20 + 10 - 20 = 10
 = 07:10 (The Result)

因为我们在Excel中没有负的时间，并且我有Text而不是Time，所以我必须在VBA中使用ForLoop计算它们。

Answer 1

这是一个非常简单的例子。 假设您的宏更改A1基于单元格B1到D1中的值。

Sub MyMac()
    Range("A1").Value = Range("B1").Value + Range("C1").Value + Range("D1").Value
End Sub

我们将使用事件宏来检测对任何输入单元格的手动更改并运行MyMac。 将此事件宏放在工作表代码区域中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Set r = Range("B1:D1")
    If Intersect(Target, r) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Call MyMac
    Application.EnableEvents = True
End Sub

因为它是工作表代码，所以非常易于安装和自动使用：

1. 右键单击Excel窗口底部附近的选项卡名称
2. 选择查看代码-这将打开一个VBE窗口
3. 将内容粘贴并关闭VBE窗口

如果您有任何疑问，请先在试用版工作表上尝试一下。

如果您保存工作簿，则宏将随其一起保存。 如果您在2003年以后使用Excel版本，则必须将文件另存为.xlsm而不是.xlsx

删除宏：

1. 如上调出VBE窗口
2. 清除代码
3. 关闭VBE窗口

要总体上了解有关宏的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其正常工作！

注意：

这仅适用于手动更改输入单元格。 如果B1到D1中的任何一个包含公式，则将使用Calculate事件。

Answer 2

用于从范围中获取值的快捷方式表示法

Sub getting_value()

'Static Cell-pointing
    Debug.Print [a1]                      'for referring Active Sheet's cell
    Debug.Print [Sheet1!a1]               'for referring Sheet1's cell 

'Partial Dynamic Cell-pointing
    Debug.Print [a:b].Cells(1,1)               'for referring Range
    Debug.Print [5:5].Cells(1,1)               'for referring Range
    Debug.Print [a:b 5:5].Cells(1,1)           'for referring Intersect

    Debug.Print [a1,a3].Cells(1,1)              'for referring a1 AND a3

    Debug.Print [a1.a3].Cells(1,1)              'for referring a1 TO a3
    Debug.Print [a1..a3].Cells(1,1)             'for referring a1 TO a3
    Debug.Print [a1:a3].Cells(1,1)              'for referring a1 TO a3

'Dynamic Cell-pointing
    Debug.Print [Table1[Column1]].Cells(1,1)   'for referring Table1's column1 
    Debug.Print [NamedRange]                   'for referring Named Range (making named range dynamic by vba -> ThisWorkbook.Names.Add) 

End Sub

参考

• 使用快捷方式表示法引用Range（）：来自Mr Excel

• Excel VBA快捷方式范围参考：来自Excel Hero Blog