Excel VBA：获取单击按钮的行[重复]

excel

在excel VBA中，我们经常需要根据用户的操作来执行特定的任务。其中一个常见的需求是获取单击按钮所在的行号。这样我们就可以根据行号来处理相关的数据或进行其他操作。

为了实现这个功能，我们可以使用Worksheet的按钮单击事件。当用户单击按钮时，该事件将被触发，我们可以在事件中编写代码来获取按钮所在的行号。

让我们来看一个具体的案例。假设我们有一个包含数据的excel表格，其中每一行都有一个按钮。当用户单击按钮时，我们想要获取该按钮所在的行号。

首先，我们需要在excel中插入按钮。选择“开发工具”选项卡，然后在“控件”组中选择“插入”下拉菜单中的按钮。将按钮放置在所需行的任意位置。

接下来，我们需要打开Visual Basic编辑器。按下“ALT + F11”打开编辑器窗口。在左侧的“项目资源管理器”中，双击要添加代码的工作表。

在工作表的代码窗口中，找到并选择“按钮”的点击事件。在事件过程中，我们可以编写代码来获取按钮所在的行号。

下面是一个例子，演示了如何获取按钮所在的行号并显示在消息框中：

VBA
Private Sub CommandButton1_Click()
    Dim button As Object
    Dim rowNumber As Integer
    
    Set button = ActiveSheet.Buttons(Application.Caller)
    rowNumber = button.TopLeftCell.Row
    
    MsgBox "按钮所在的行号是：" & rowNumber
End Sub

在上面的代码中，我们首先声明了一个button对象和一个rowNumber变量。然后，我们使用ActiveSheet.Buttons(Application.Caller)语句来获取被点击的按钮对象。接着，我们使用button.TopLeftCell.Row语句来获取按钮所在的行号，并将其赋值给rowNumber变量。最后，我们使用MsgBox函数将行号显示在消息框中。

在运行代码之前，确保将按钮与该过程关联起来。在Visual Basic编辑器中，选中按钮，然后在属性窗口中的“单击”属性中选择“按钮所在的行号”的过程。

以上就是获取excel VBA中按钮所在行号的示例代码和说明。通过使用按钮的单击事件，我们可以轻松地获取按钮所在的行号，并根据需要进行后续操作。希望这个案例对你有所帮助！