VBA按钮位置地址不更新：插入行后无法获取实际位置

问题根源 #

你当前的代码在设置按钮的.OnAction属性时，直接将按钮创建时的TopLeftCell.Address拼接成固定字符串作为参数传入test函数。这个参数值是静态的，不会随按钮位置变化而更新，所以插入行后按钮位置移动，但test拿到的还是初始地址。

修改方案 #

不需要给test函数传固定参数，而是让函数直接通过Application.Caller获取触发宏的按钮对象，实时读取它的当前位置。

修改后的创建按钮代码

Private Sub createButton_line(ByVal name As String, ByVal position, ByVal line As Integer)
    Dim btn As Button
    Dim R As Range
    Set R = ActiveSheet.Range(position)
    Set btn = ActiveSheet.Buttons.Add(R.Left, R.Top, R.Width, R.Height)
        With btn
            .Caption = name
            .Placement = xlMove
            .name = name
            .OnAction = "test" ' 移除固定参数，直接调用宏
        End With
End Sub

修改后的test函数

Public Sub test()
    Dim btn As Button
    ' 获取触发宏的按钮对象
    Set btn = ActiveSheet.Buttons(Application.Caller)
    ' 写入按钮当前的左上角单元格地址到A22
    Range("A22").Value = btn.TopLeftCell.Address
End Sub

进阶优化（跨工作表兼容） #

如果按钮可能在不同工作表中，建议通过按钮的Parent属性获取所在工作表，避免切换工作表后出错：

Public Sub test()
    Dim btn As Button
    Dim ws As Worksheet
    Set btn = ActiveSheet.Buttons(Application.Caller)
    Set ws = btn.Parent
    ' 将当前按钮所在工作表的A22单元格写入地址
    ws.Range("A22").Value = btn.TopLeftCell.Address
End Sub

内容的提问来源于stack exchange，提问作者Zenmoa