[已解决]这个要怎么自动插入行

chinagdzhao

         A       B      C       D
1   12月1   5      30     593
2   12月2   26    15     156
3
4     合计   31     45    749


求助：
在A3输入日期后自动在A3下方插入空白行，网上找了很多例，但不会运用if..大家问的问题都不一样，感觉是挺简单的，就是不会VB

补充：
插入的新行'A4'也要有同样的功能，只要单元格非空就自动向下插入空行


再补充：
vba的代码已经有了，在新建的表格里面基本可以实现，但原来的表格中使用出现错误（是不是列表的问题？），附上附件，里面有表1和表2，大家帮我想想办法

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-16 15:39

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target.Count = 1 And Target.Column = 1 Then
   
4.         If Target <> "" And Target.Row = Cells.Find("*", , , , 1, 2).Row - 1 Then
   
5.             Rows(Target.Row).Insert
   
6.             Target.EntireRow.Copy Target.Offset(-1, 0)
   
7.             Target.EntireRow.ClearContents
   
8.         End If
   
9.     End If
   
10.     Application.EnableEvents = True
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

lzclzch

你可以用列表来需求

hwc2ycy

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     Application.ScreenUpdating = False
   
4.     If Target.Count = 1 Then
   
5.         If Target.Column = 2 Then
   
6.             If Len(Target) > 0 And Target.Row < Rows.Count Then
   
7.                 Rows(Target.Row + 1).Insert
   
8.             End If
   
9.         End If
   
10.     End If
    
11.     Application.EnableEvents = True
    
12.     Application.ScreenUpdating = True
    
13. End Sub

复制代码

hwc2ycy

回车新增行.rar (13.23 KB, 下载次数: 51)

2012-12-15 10:22 上传

点击文件名下载附件

孤单无所谓

纯属初级入门水平。。。 练习练习{:912:}

hwc2ycy

接了个电话，想起来，只前的条件设置有误了。
应该是target.row<rows.count才行。
另外设置的属性忘了收回来了，

chenxuqingqing

lzclzch 发表于 2012-12-15 09:19
你可以用列表来需求

{:4212:}  很好用的方法  学习了

chinagdzhao

lzclzch 发表于 2012-12-15 09:19
你可以用列表来需求

这个很有用处，不过先学习下有没有vba能解决

chinagdzhao

hwc2ycy 发表于 2012-12-15 09:20

差不多这个效果，不过B5位置输入才会插入行。。我看看能不能自己修改下

chinagdzhao

hwc2ycy 发表于 2012-12-15 10:19
接了个电话，想起来，只前的条件设置有误了。
应该是target.row

有没有修改好的代码？多学个方法，可以方便以后应用在不同的情况