Excel 从VBA中的多个按钮调用同一个子节点_Excel_Vba

Excel 从VBA中的多个按钮调用同一个子节点

excel vba

Excel 从VBA中的多个按钮调用同一个子节点,excel,vba,Excel,Vba,我在同一列但不同行的spreadhseet上有多个按钮（活动x）。这些按钮捕获活动的开始时间。如果按下按钮1，则其旁边的单元格应按当前时间填充。如果按下按钮2，则其旁边的单元格应按当前时间填充。等等我用VBA编写了一个SUB，如下所示： Private Sub StartTimer_Click() Range("I4").Value = Now End Sub 我不想为每个按钮操作重复此代码。请告诉我如何使其成为动态的。创建一个标准模块，并将过程放在其中。虽然可以在私有模块中共

我在同一列但不同行的spreadhseet上有多个按钮（活动x）。这些按钮捕获活动的开始时间。如果按下按钮1，则其旁边的单元格应按当前时间填充。如果按下按钮2，则其旁边的单元格应按当前时间填充。等等

我用VBA编写了一个SUB，如下所示：

Private Sub StartTimer_Click()
    Range("I4").Value = Now
End Sub

我不想为每个按钮操作重复此代码。请告诉我如何使其成为动态的。

创建一个标准模块，并将过程放在其中。

虽然可以在私有模块中共享过程，但最好将任何共享过程放在共享模块中

在VBA编辑器中，单击插入模块

粘贴到其中，并给它一个唯一的名称。使用您的示例，您可以执行以下操作：

Public Sub SetTimeValue()
    Range("I4").Value = Now 
End Sub

…然后从另一个公用存根调用此公用存根，如：

Private Sub StartTimer_Click()
    SetTimeValue
End Sub

…以及您需要调用代码的任何其他位置

我假设您关心的实际过程有不止一行代码，否则重复复制它并不是一个真正的问题

更多信息：

MSDN：
办公室支助：
奇普·皮尔森：
电源预售表：
MVP：

创建一个标准模块，并将程序放在其中。