excel中如何设置输入一行数据的时候,自动在下面生成新的一行,原本下面的所有行自动下移?
1个回答
展开全部
用VBA吧:
鼠标右击Sheet1的标签,【查看代码】在代码窗口粘贴下面的代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(, 1) = Date: Target.Offset(, 2) = Target * 0.8
Target.Offset(1).Select
Selection.EntireRow.Insert
End If
End Sub
按Atl + F11,回到Excel里,去输入数据试一试!
填写日期,和计算数据,还有插入新行一并都做了!
鼠标右击Sheet1的标签,【查看代码】在代码窗口粘贴下面的代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(, 1) = Date: Target.Offset(, 2) = Target * 0.8
Target.Offset(1).Select
Selection.EntireRow.Insert
End If
End Sub
按Atl + F11,回到Excel里,去输入数据试一试!
填写日期,和计算数据,还有插入新行一并都做了!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询