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

7993708

忽略空行从下往上查找查询历史记录并自动输入(工作表行数会超过1万行) 软件是WPS 谢谢各位大佬.

wang-way

WPS 支不支持VBA你的

7993708

wang-way 发表于 2024-7-2 13:27
WPS 支不支持VBA你的

老师,,支持的

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.     If Target.Row > 3 And Target.Column = 5 Then
   
6.         For i = 3 To Target.Row - 1
   
7.             If Cells(i, 5).Value = Target.Value Then
   
8.                 Cells(Target.Row, 6).Value = Cells(i, 6).Value
   
9.                 Cells(Target.Row, 7).Value = Cells(i, 7).Value
   
10.                 Cells(Target.Row, 8).Value = Cells(i, 8).Value
    
11.                 Exit For
    
12.             End If
    
13.         Next i
    
14.     End If
    
15.     ''启用事件
    
16.     Application.EnableEvents = True
    
17. End Sub

复制代码

wang-way

代码已发 正在审核中  WPS也测试过 可以用  直接把代码丢在sheet1模块里面

7993708

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

老师你好,,是从下往上查找....现在您的代码是从上往下,,因为后面的信息是最新的信息,,,,需要怎么修改呢,,,,请教

心的启点

将这句For i = 3 To Target.Row - 1改成For i = Target.Row - 1 To 3  Step -1

7993708

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

  
老师,,我还想请教一下:   这里的 3代表什么意思,,,?  

wang-way

第三刚开始才有数据，第4行开始才能引数据阿

心的启点

wang-way 发表于 2024-7-2 17:00
第三刚开始才有数据，第4行开始才能引数据阿

第一个>3没有问题就是当前的激活单元格行数大于3，把那句循环里的3改成4。For i = Target.Row - 1 To 4 Step -1，这句中的4是你开始要计算的数据行。