vba按钮-找到被点击的按钮-vbabutton-findwhichwasclicked

13  

I always write wrappers for each button that then call the macro in question.

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

Like so:

像这样：

Public Sub StoreButton_Click()

  Call StoreTransValues(ActiveSheet)

End Sub

If you have only one button for any one page, you can just get the ActiveSheet property, and it will be the button on that page.

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

Edit:

编辑：

Here's the code to get and use the name of the calling button:

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

Dim ButtonText As String

ButtOnText= Application.Caller

ActiveSheet.Shapes(ButtonText).Delete

You would use the .Move method to move the button.

您可以使用.Move方法移动按钮。

6  

I finally found the solution for determining which button in a Worksheet was pushed. Credit is due to Derk at http://www.ozgrid.com/forum/showthread.php?t=33351.

我终于找到了确定工作表中哪个按钮被推送的解决方案。积分归功于Derk，网址为http://www.ozgrid.com/forum/showthread.php?t=33351。

My final example code:

我的最终示例代码：

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

If you don't need the cells label, Cells(rs,cs).Value works as well.

如果您不需要单元格标签，则单元格（rs，cs）.Value也可以。

1  

Since you have a macro wired to your button(s), I assume you know which button it is that was clicked. To get the location of the button, use this:

由于您的按钮连接了一个宏，我假设您知道单击了哪个按钮。要获取按钮的位置，请使用以下命令：

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

To move a button to a new location, use this:

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

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

-2  

Dim button as a string:

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