Question

我有一个宏，可以根据其他单元格值设置单元格的值因此，当我像往常一样运行代码时，宏设置单元格的值。

但我希望Macro像公式一样工作因此，当这些单元格发生变化时，单元格的值总是会发生变化。

有没有办法做到这一点？
或者也许是从公式调用宏的方法？

编辑:(评论后）

确定。这就是我想要的宏。

我有几小时：分钟，我想要将所有这些都包括在内。
问题是我有负面的时间：我使用下面的公式计算它们的时间：

=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

这是一个非常简单的例子。假设您的宏根据 B1 至 D1 中的值更改 A1 。

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

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

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

如果您有任何疑虑，请先在试用工作表上试用。

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

删除宏：

按上述方式调出VBE窗口
清除代码
关闭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

参考

Excel VBA：宏的单元格值

2 个答案: