查询出来的数据能否直接修改后同步到第二个表格中

20200613

各位大神

.能不能帮忙加一个命令,?查询出来的数据直接修改再替换到资料总表里面需要怎么更改代码啊?
或者有没有其他办法解决,直接查询出来的数据发现有错误修改后再替换到资料总表里面?

醉眼看尘世

弄个更新程序，要实现的功能如下：
1、删除掉数据库中所有符合查询条件的数据行
2、将当前页的数据全部写入数据库

ykcbf1100

修改保存。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.8   修改保存
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("查询录入页")
   
4.         r = .Cells(Rows.Count, 2).End(3).Row
   
5.         c = .Cells(7, "XFD").End(1).Column
   
6.         zrr = .[b8].Resize(r - 7, c - 1)
   
7.         For i = 1 To UBound(zrr)
   
8.             s = zrr(i, 1) & "|" & zrr(i, 2)
   
9.             d(s) = i
   
10.         Next
    
11.     End With
    
12.     With Sheets("资料总表")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         c = .Cells(4, "XFD").End(1).Column
    
15.         arr = .[a5].Resize(r - 4, c)
    
16.         For i = 1 To UBound(arr)
    
17.             s = arr(i, 1) & "|" & arr(i, 2)
    
18.             If d.exists(s) Then
    
19.                 For j = 1 To UBound(arr, 2)
    
20.                     arr(i, j) = arr(d(s), j)
    
21.                 Next
    
22.             End If
    
23.         Next
    
24.         .[a5].Resize(r - 4, c) = arr
    
25.     End With
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

20200613

ykcbf1100 发表于 2024-8-8 15:48
修改保存。。。

谢谢啊,我这边查询了之后修改了某一个数据之后,发现没有录入到新的表中,数据从原来表中删除了,但是新的数据没有录入进去...

ykcbf1100

20200613 发表于 2024-8-8 16:45
谢谢啊,我这边查询了之后修改了某一个数据之后,发现没有录入到新的表中,数据从原来表中删除了,但是新的数 ...

你如果能看懂代码就不会这样说了。这里，A列和B列是关键列，数据是不能修改的。你能修改的是C列以后的数据。