vba 按钮 - 查找被点击的按钮

Question

我已将宏分配给几个按钮。

如何在宏内部找出点击了哪个按钮？

我正在以用户表单的形式进行操作，他可以​​在其中输入家庭成员：

姓名1：
姓1：

姓名2：
surname2: |添加下一个成员|

我希望按钮总是出现在最后添加的人的最后一行。 为简单起见，我认为最好有 100 个空表格 工作表，但一开始都是不可见的。
然后，当用户单击添加下一个成员时，我只需使下一行可见， 并将按钮移动到下一个人。但要做到这一点，我需要知道我目前的位置。

与删除类似，当单击删除按钮时，我会使行不可见。

姓名1：
姓1： [删除]

姓名2：
姓2： [删除]

name3:
surname3: |添加下一个成员|

我需要知道点击了哪个删除按钮。

编辑： 在网络上找到 - 你认为什么，似乎是最好的/方式

Dim r As Range
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Select

Answer 1

我总是为每个按钮编写包装器，然后调用相关的宏。

像这样：

Public Sub StoreButton_Click()

  Call StoreTransValues(ActiveSheet)

End Sub

如果任何一个页面只有一个按钮，则只需获取 ActiveSheet 属性，它将是该页面上的按钮。

---

编辑：

下面是获取和使用调用按钮名称的代码：

Dim ButtonText As String

ButtonText = Application.Caller

ActiveSheet.Shapes(ButtonText).Delete

您将使用 .Move 方法来移动按钮。

Answer 2

我终于找到了确定按下 Worksheet 中哪个按钮的解决方案。归功于 Derk，http://www.ozgrid.com/forum/showthread.php?t=33351。

我的最后一个示例代码：

Sub HereIAm()
    Dim b As Object
    Dim cs, rs As Integer
    Dim ss, ssv As String
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        rs = .Row
        cs = .Column
    End With
    ss = Left(Cells(1, cs).Address(False, False), 1 - (ColNumber > 26)) & rs
    ssv = Range(ss).Value
    MsgBox "Row Number " & rs & "    Column Number " & cs & vbNewLine & _
        "Cell " & ss & "   Content " & ssv
End Sub

如果您不需要单元格标签，Cells(rs,cs).Value 也可以。

Answer 3

Dim button as a string:

    button = ActiveSheet.Shapes(Application.Caller).Name

Answer 4

由于您有一个宏连接到您的按钮，我假设您知道单击的是哪个按钮。要获取按钮的位置，请使用：

ActiveSheet.Shapes("ButtonName").TopLeftCell.Address

要将按钮移动到新位置，请使用以下命令：

Dim NewAddress as Range
NewAddress = ActiveSheet.Cells(5, 5) 'Or where ever you need it to go
ActiveSheet.Shapes("ButtonName").Left = NewAddress.Left
ActiveSheet.Shapes("ButtonName").Top = NewAddress.Top