excel 设计模式

打开Excel的设计模式

eg.

点击按钮，在选中行之前插入一条空记录，并复制插入记录的上一条记录

Private Sub CommandButton5_Click()
    i = Selection.Row
    Selection.EntireRow.Insert Shift:=xlDown
    If i = 1 Then
        MsgBox "您选择的是第一行，无法拷贝前面一行的值"
    Else
        Rows(i - 1).Copy Cells(i, 1)
        Range(Cells(i + 1, 5), Cells(i + 1, 7)).Copy Range(Cells(i, 5), Cells(i, 7))
        'Cells(i, 3).Value = Format(Date, "yyyy/m/d")
        'Cells(i, 2).Value = ""
    End If
End Sub