[已解决]自动增加下一行

mtxzch · 发表于 2014-5-4 15:18

本帖最后由 mtxzch 于 2014-5-4 15:56 编辑

2007版本下------这张表想每录入完一笔数据后自动向下增加下一行，保证每个小计上面都有一个空行

最佳答案

qh8600

2014-5-4 15:56

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Cells(2, 1) = "小计" And Target.Cells(1, 1) <> "" Then
Target.Cells(2, 1).EntireRow.Insert
End If
End Sub

复制代码

销售日统计表.rar (11.28 KB, 下载次数: 10)

曾贤志 · 发表于 2014-5-4 15:26

mtxzch · 发表于 2014-5-4 15:43

我想要是这种结果

mtxzch · 发表于 2014-5-4 15:47

曾贤志发表于 2014-5-4 15:26

谢谢你可是这个不是在上一行输入数据下面自动增加一行设置成行首或是行尾有数据自动增加下一行都行

qh8600 · 发表于 2014-5-4 15:56

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Cells(2, 1) = "小计" And Target.Cells(1, 1) <> "" Then
Target.Cells(2, 1).EntireRow.Insert
End If
End Sub

复制代码

销售日统计表.rar (11.28 KB, 下载次数: 10)

mtxzch · 发表于 2014-5-4 16:16

本帖最后由 mtxzch 于 2014-5-4 16:18 编辑

下载后第一次打开好用但是提示小心宏病毒

mtxzch · 发表于 2014-5-4 16:17

还有就是我一台电脑装的2007版本不好用在2003上好使可是就出现上边我说的问题

qh8600 · 发表于 2014-5-4 16:18

本帖最后由 qh8600 于 2014-5-4 16:20 编辑

mtxzch 发表于 2014-5-4 16:17
还有就是我一台电脑装的2007版本不好用在2003上好使可是就出现上边我说的问题

你把宏安全性改为低就可以了
工具-宏-安全性-选择低

mtxzch · 发表于 2014-5-4 16:19

qh8600 发表于 2014-5-4 15:56
楼主看看能满足要求吗

谢谢在2003版本上好使但提示小心宏病毒在我另外一台电脑上2007版本的EXCEL上就不好使

qh8600 · 发表于 2014-5-4 16:21

本帖最后由 qh8600 于 2014-5-4 16:23 编辑

mtxzch 发表于 2014-5-4 16:19
谢谢在2003版本上好使但提示小心宏病毒在我另外一台电脑上2007版本的EXCEL上就不好使

把宏安全性设置为低就可以啦，07版要保存为启用宏的工作簿

		自动登录	找回密码
密码			注册