能不能自动记录并换行，越简单越好 哈！ 谢谢

331046383

能不能自动记录并换行，越简单越好 哈！ 谢谢

331046383

始终都在 E16:I16  填入的都在 E5:I14 区域里显示，我是为了好理解才弄了 K5:O14   Q5:U14    W5:AA14     

taller

331046383

taller 发表于 2024-11-11 03:18

您好，谢谢帮助。能把文件发上来么？还是用这个事件，方便很多。 直接粘贴不行，不知道怎么用。

taller

目测楼主把Offset输入为0ffset，第一个字符是大写字母O

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim r As Range, t As Range, d As Range
   
3.     Set t = Me.Range("E16:I16")
   
4.     Set r = Intersect(Target, t)
   
5.     If r Is Nothing Then Exit Sub
   
6.     If Application.CountA(t) < t.Cells.Count Then Exit Sub
   
7.     Set d = Me.Range("E6:I14")
   
8.     Application.EnableEvents = False
   
9.     d.Offset(-1).Value = d.Value
   
10.     t.Offset(-2).Value = t.Value
    
11.     Application.EnableEvents = True
    
12. End Sub
    

复制代码

331046383

taller 发表于 2024-11-11 09:23
目测楼主把Offset输入为0ffset，第一个字符是大写字母O

第二次输入后 结果不对呢？     更新了附件

taller

第一次写入完成后，你可以使用如下两种方式之一
1. 删除输入区域，再逐个输入
2.一次性粘贴整行数据

如果只是修改单个数据，那么输入区域全满，代码认为下一次输入已经完成，将更新上面的数据表

taller

可以增加一行代码，清空输入单元格区域

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim r As Range, t As Range, d As Range
   
3.     Set t = Me.Range("E16:I16")
   
4.     Set r = Intersect(Target, t)
   
5.     If r Is Nothing Then Exit Sub
   
6.     If Application.CountA(t) < t.Cells.Count Then Exit Sub
   
7.     Set d = Me.Range("E6:I14")
   
8.     Application.EnableEvents = False
   
9.     d.Offset(-1).Value = d.Value
   
10.     t.Offset(-2).Value = t.Value
    
11.     t.ClearContents
    
12.     Application.EnableEvents = True
    
13. End Sub
    

复制代码

331046383

taller 发表于 2024-11-11 11:00
第一次写入完成后，你可以使用如下两种方式之一
1. 删除输入区域，再逐个输入
2.一次性粘贴整行数据

这个懂你的意思了，原来是这么回事。再麻烦您帮我看看是否可以再加上更新完成后自动的删除 E16:I16 的数值那？

taller

331046383 发表于 2024-11-11 11:13
这个懂你的意思了，原来是这么回事。再麻烦您帮我看看是否可以再加上更新完成后自动的删除 E16:I16 的数 ...

参见8楼代码