Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row = 11 And .Column = 2 Then
Range("A11:I11").Select
Selection.Copy
Range("A13:I13").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J12").Select
Application.CutCopyMode = False
End If
End With
End Sub
是還要按什麼鍵,excel 才會自動變嗎,反正,他就是不理我就對了 ><
HELP !!
|