Excel VBA分组命令button在工作表上

我已经看到了很多关于获得几个命令button来做类似事情的信息，但是我所看到的一切都是关于用户表单的。

我想有一组命令button将数据从一个单元格移动到另一个单元格。 我只是不想复制和粘贴到每个命令button相同的代码。

这是我想为每个命令button做的一部分：

Range(CommandButton1.TopLeftCell.Address).Select Selection.Copy If Application.WorksheetFunction.IsText(Range("R5")) And Range(CommandButton1.TopLeftCell.Address).Value <> Range("R5") Then Range("R6").Select ActiveSheet.Paste Range(CommandButton1.TopLeftCell.Address).Select Else Range("R5").Select ActiveSheet.Paste Range(CommandButton1.TopLeftCell.Address).Select End If Application.CutCopyMode = False 

我试过使用类模块，但似乎无法得到它的function。 我想能够将该代码放入某个类或某个组中的所有命令button上运行。 然后，我想要在同一张纸上的不同组命令button执行不同的代码。

我应该采取什么路线？

Answer 1

当你创build你的第一个button并将它放到一个Excel工作表中时，你将看到一个macros窗口，当点击新窗口时，它将打开macros窗口并创buildSub Button1_Click()事件或任何你命名的macros。 所有其他创build的button也将在模块中创build它们的事件。

在这个模块中，你可以创build一个包含你的共享代码的新子：

 Sub SharedCode() End Sub 

然后，您可以在为您的button创build的每个事件中调用您的共享代码：

 Sub Button1_Click() SharedCode End Sub