首页 文章

Excel VBA：宏的单元格值

提问于
浏览 次
0

我有一个宏，从其他单元格值设置单元格的值 .
因此，宏像往常一样运行代码时设置单元格的值 .

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

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

Edit: (After Comments)

好 . 这就是我想要的宏 .

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

=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计算它们 .

excel excel-vba excel-formula vba

2 回答

  • 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

    Macros must be enabled for this to work!

    NOTE:

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

    回复于
  • 0

    Shortcut Notation 从范围获取值的方法

    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

    Reference

    回复于

相关问题