点击【数据更新】按钮，提取符合条件的所有数据

WYS67 · 发表于 2018-8-23 01:13

本帖最后由 WYS67 于 2018-8-23 05:50 编辑

lsc900707 发表于 2018-8-22 22:36
那里面都有我之前写的代码，只要稍加修改就是：
Sub gj23w98()
Dim brr(1 To 10000, 1 To 5)

老师：代码运行速度很快！还有两个问题：
1.《总表》的最大行号必须是总表!C2指定的行号，而不是固定的10000行；
2.能不能在《组三》更新数据后，不自动关闭《总表》，使《总表》始终处于打开状态？

解决了上面两个问题，就完全实现了我心中所想。

lsc900707 · 发表于 2018-8-23 05:21

WYS67 发表于 2018-8-23 01:13
老师：代码运行速度很快！还有两个问题：
1.《总表》的最大行号必须是总表!C2指定的行号，而不是固 ...

Sub gj23w98()
Set wb = Workbooks.Open(ThisWorkbook.Path & "\总表.xlsm")
Set wk = ThisWorkbook
With wb.Sheets("总表")
r1 = .[c2]: r2 = .[h2].Value
If r2 <= r1 Then arr = .Range("e5:j" & r1)
End With
ReDim brr(1 To UBound(arr), 1 To 5)
With wk.Sheets("组三")
xm = .[i1]
For i = 1 To UBound(arr)
If arr(i, 6) = xm Then
k = k + 1
For j = 1 To 5
brr(k, j) = arr(i, j)
Next
End If
Next
If k Then
.[e4].CurrentRegion.Offset(1).ClearContents
.[e5].Resize(k, 5) = brr
End If
End With
End Sub

复制代码

WYS67 · 发表于 2018-8-23 07:48

本帖最后由 WYS67 于 2018-8-23 07:55 编辑

lsc900707 发表于 2018-8-23 05:21

版主老师：12楼的代码圆满解决了我在11楼里提到的问题。但文件夹【河南快三】里增加了《三同》和《组六》两个工作簿【对应于《总表》J列里的0和2】后，出现如上面截图里的错误，并且《组三》里的代码也无法运行，怎样解决？

我希望的是：《总表》始终处于打开状态。而《三同》、《组三》、《组六》三个分表则是需要哪个，就打开哪个，点击里面的【数据更新】按钮，就能像12楼里的《组三》一样。

lsc900707 · 发表于 2018-8-23 08:08

WYS67 发表于 2018-8-23 07:48
版主老师：12楼的代码圆满解决了我在11楼里提到的问题。但文件夹【河南快三】里增加了《三同》和《组 ...

那更新按钮应该放到“总表”工作簿去，代码全部修改一下才对！

lsc900707 · 发表于 2018-8-23 08:11

WYS67 发表于 2018-8-23 07:48
版主老师：12楼的代码圆满解决了我在11楼里提到的问题。但文件夹【河南快三】里增加了《三同》和《组 ...

就这个帖子是不是？
自动更新总表数据到打开的分表
http://club.excelhome.net/thread-1430267-1-1.html
(出处: ExcelHome技术论坛)

WYS67 · 发表于 2018-8-23 08:26

本帖最后由 WYS67 于 2018-8-23 08:37 编辑

lsc900707 发表于 2018-8-23 08:11
就这个帖子是不是？
自动更新总表数据到打开的分表
http://club.excelhome.net/thread-1430267-1-1.htm ...

老师：就是这个附件，当时没完成。更早时候，您曾给我写过这个附件

总表拆【chai】分lsc900707 20180710.zip (1.3 MB, 下载次数: 3) ，是在同一工作簿里进行数据分类更新的。但由于数据过多，后续公式也多，运行缓慢，我希望在《河南快三》文件夹里，拆分为《总表》，《三同》、《组三》、《组六》四个独立的工作簿：让《总表》始终处于打开状态，而《三同》、《组三》、《组六》则是需要哪个，就打开哪个。这样在《总表》I列添加新数据后，点击【更新分表】按钮，就可以刷新数据。

http://club.excelhome.net/thread-1430267-1-1.html帖子里的问题更详细全面，麻烦老师帮忙解决

13782671637 · 发表于 2018-8-23 08:46

本帖最后由 13782671637 于 2018-8-23 08:53 编辑

lsc900707 发表于 2018-8-23 08:11
就这个帖子是不是？
自动更新总表数据到打开的分表
http://club.excelhome.net/thread-1430267-1-1.htm ...

老师：用http://club.excelhome.net/thread-1430267-1-1.html里的《总表拆分原始表格》里的代码修改，更容易些？
只需修改点击《总表》中点击【更新分表】按钮，刷新《三同》、《组三》、《组六》三个工作表为【河南快三】里的三个工作簿？

lsc900707 · 发表于 2018-8-23 08:51

13782671637 发表于 2018-8-23 08:46
老师：用http://club.excelhome.net/thread-1430267-1-1.html里的《总表拆分原始表格》里的代码修改，更 ...

我回复了你另外的帖子。你先看看。

WYS67 · 发表于 2018-8-27 08:46

lsc900707 发表于 2018-8-23 05:21

老师：12楼的代码是提取符合指定条件I1的《总表》E:I列数据到《组三》的E:I列。
只是点击《组三》里的按钮更新数据后，《组三》J列里输入的公式计算结果全部变成了空白【但K列以后就可以正确运算和显示】。怎样才能使代码只在《组三的》E5:E&C2的范围内运行，而不运行范围外【J列】的公式运算？

		自动登录	找回密码
密码			免费注册

[求助] 点击【数据更新】按钮，提取符合条件的所有数据

评分

评分