自动调节考勤表按钮，不同版本Excel的操作方法一样吗？

Private Sub Worksheet_Change(ByVal Target As Range)
‘假设按钮名为 CommandButton1，需要调整的单元格是 A1
If Not Intersect(Target, Range(“A1”)) Is Nothing Then
With Me.CommandButton1
.Top = Range(“A1”).Top
.Left = Range(“A1”).Left
.Width = Range(“A1”).Width
.Height = Range(“A1”).Height
End With
End If
End Sub