多表数据实时同时更新

760636412

请教求助：如文件中的代码，想换种更快捷的方式实现



如信息表中更新数据，信息１，信息２，信息３　可以同步实时更新，不用再点宏按键然后再更新，谢谢！
详细如附件： 多表数据同步.zip (25.02 KB, 下载次数: 12)

2024-1-4 10:39 上传

点击文件名下载附件

鲜花献上，谢谢！

洋务德雷

一模一样得为啥要更新呢？

760636412

洋务德雷 发表于 2024-1-4 10:50
一模一样得为啥要更新呢？

Ｆ列往后我有不同的数据汇总，前面Ａ到Ｅ列是一样的数据

titi012

参与一下。。。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    
   
3.     Dim R&, C&, H&, Arr, xRng As Worksheet
   
4.    
   
5.     C = Target.Column
   
6.     If C <= 5 Then
   
7.         H = Cells(Rows.Count, 1).End(xlUp).Row
   
8.         Arr = Range("a1:e" & H).Value
   
9.         For Each xRng In Sheets
   
10.             If Not xRng.Name Like "信息" Then
    
11.                 xRng.Range("a7").Resize(H, 5) = Arr
    
12.             End If
    
13.         Next xRng
    
14.     End If
    
15.    
    
16.    
    
17. End Sub

复制代码

cidanji

多表数据同步.zip (26.67 KB, 下载次数: 8)

2024-1-4 12:45 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.4
   
2.     Dim arr, brr, d
   
3.     Set sh = ThisWorkbook.Sheets("信息")
   
4.     With sh
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .[a1].CurrentRegion
   
7.     End With
   
8.     c = 7
   
9.     For Each sht In Sheets
   
10.         If sht.Name <> sh.Name Then
    
11.             With sht
    
12.                 With .Cells(c, 1).Resize(UBound(arr), UBound(arr, 2))
    
13.                     .Value = arr
    
14.                     .Borders.LineStyle = 1
    
15.                     .HorizontalAlignment = xlCenter
    
16.                     .VerticalAlignment = xlCenter
    
17.                 End With
    
18.             End With
    
19.         End If
    
20.     Next
    
21.     MsgBox "更新完毕！"
    
22. End Sub
    

复制代码

ykcbf1100

附件供参考。。。