求助论坛: 查询历史记录并自动输入

wang-way

心的启点 发表于 2024-7-2 17:10
第一个>3没有问题就是当前的激活单元格行数大于3，把那句循环里的3改成4。For i = Target.Row - 1 To 4 S ...

不是回答我，要回答楼主

心的启点

7993708 发表于 2024-7-2 16:41
心的启点 发表于 2024-7-2 16:28
将这句For i = 3 To Target.Row - 1改成For i = Target.Row - 1 To 3  St ...

不对啊看你的截是第三行开始是需要计算的数据
判断改成：If Target.Row > 2 And Target.Column = 5 Then
循环改成：For i = Target.Row - 1 To 3  Step -1

7993708

wang-way 发表于 2024-7-2 13:36

老师,,如果输入发现错误后,删除了行就会出错....

心的启点

7993708 发表于 2024-7-2 17:31
老师,,如果输入发现错误后,删除了行就会出错....

加一句判断就行了
自动带出数据.rar (16.25 KB, 下载次数: 10)

2024-7-2 17:49 上传

点击文件名下载附件

7993708

心的启点 发表于 2024-7-2 17:49
加一句判断就行了

老师,,上错了附件吧,,里面空的

7993708

wang-way 发表于 2024-7-2 13:36

老师,删除有数据的行会出现错误提示,,,要关闭工作表,重新打开才能用...不知怎么修改

7993708

继续求助大佬...                          

wang-way

我来了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Debug.Print "Change", Target.Row, Target.Column
   
3.     ''禁用事件
   
4.     Application.EnableEvents = False
   
5.     On Error GoTo here
   
6.     If Target.Row > 3 And Target.Column = 5 Then
   
7.         For i = Target.Row - 1 To 3 Step -1
   
8.             If Cells(i, 5).Value = Target.Value Then
   
9.                 Cells(Target.Row, 6).Value = Cells(i, 6).Value
   
10.                 Cells(Target.Row, 7).Value = Cells(i, 7).Value
    
11.                 Cells(Target.Row, 8).Value = Cells(i, 8).Value
    
12.                 Exit For
    
13.             End If
    
14.         Next i
    
15.     End If
    
16. here:
    
17.     ''启用事件
    
18.     Application.EnableEvents = True
    
19. End Sub

复制代码

7993708

wang-way 发表于 2024-7-3 19:35
我来了

老师出手问题解决了。多谢