Excel VBA如何实现按钮锚定表格首行，插入新行时不发生错位

一、基础设置（无需修改代码） #

• 右键点击需要锚定的按钮，选择「设置控件格式」（ActiveX控件选择「属性」选项）
• 找到属性设置栏：
  • 表单控件：切换到「属性」标签，勾选大小和位置随单元格而变
  • ActiveX控件：找到Placement属性，设置值为1（对应常量xlMoveAndSize）
• 调整按钮位置，确保按钮的左上角完全落在对应表格首行的右侧单元格内，不要跨到其他行的范围。设置完成后插入行时，按钮会跟随锚定的单元格同步下移。

二、代码强制同步（稳定性更高） #

如果经过上述设置后仍存在偏移，可以在原有点击事件中追加按钮位置同步逻辑，每次插入行后自动校准按钮位置。修改后的代码示例如下：

Private Sub CommandButton1_Click()
Dim mySheets
    Dim i As Long
    
    mySheets = Array("Highland")
    
    For i = LBound(mySheets) To UBound(mySheets)
        With Sheets(mySheets(i))
            .Range("OP_DATE").EntireRow.Insert Shift:=xlDown
            .Range("OP_DATE:lineOP").Borders.Weight = xlThin
            ' 追加位置同步代码，将按钮顶部对齐OP_DATE所在行的顶部
            .Shapes("CommandButton1").Top = .Range("OP_DATE").Top
            ' 可选：调整按钮水平位置，此处示例为对齐OP_DATE右侧第3列，可自行修改偏移量
            .Shapes("CommandButton1").Left = .Range("OP_DATE").Offset(0, 3).Left
        End With
    Next i
End Sub

Private Sub CommandButton2_Click()
Dim mySheets
    Dim i As Long
    
    mySheets = Array("Highland")
    
    For i = LBound(mySheets) To UBound(mySheets)
        With Sheets(mySheets(i))
            .Range("P_DATE").EntireRow.Insert Shift:=xlDown
            .Range("P_DATE:lineP").Borders.Weight = xlThin
            .Shapes("CommandButton2").Top = .Range("P_DATE").Top
            .Shapes("CommandButton2").Left = .Range("P_DATE").Offset(0, 3).Left
        End With
    Next i
End Sub

Private Sub CommandButton3_Click()
Dim mySheets
    Dim i As Long
    
    mySheets = Array("Highland")
    
    For i = LBound(mySheets) To UBound(mySheets)
        With Sheets(mySheets(i))
            .Range("S_DATE").EntireRow.Insert Shift:=xlDown
            .Range("S_DATE:lineS").Borders.Weight = xlThin
            .Shapes("CommandButton3").Top = .Range("S_DATE").Top
            .Shapes("CommandButton3").Left = .Range("S_DATE").Offset(0, 3).Left
        End With
    Next i
End Sub

注意事项 #

• 代码中Shapes后的按钮名称需与实际按钮名称一致，若自定义过按钮名称需对应修改
• 水平偏移量Offset(0, 3)可根据你需要的按钮位置调整，第二个参数为向右偏移的列数

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