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

WYS67

如《组三》L列的说明：点击《组三》里的【数据更新】按钮时，自动提取《总表》E5:I10000里符合指定条件的所有数据到《组三》的E5:I5000里.怎么编写VBA代码?


河南快三.zip (405.08 KB, 下载次数: 36)

2018-8-22 13:42 上传

点击文件名下载附件

WYS67

恳请老师们帮忙写个代码

WYS67

跪求高手大神们帮忙写个代码

WYS67

跪求高手大神们帮忙写个代码：提取符合指定条件的《总表》多列数据到《组三》的对应区域

lsc900707

帖子内容似曾相识！

小花鹿

没看附件，帮你顶一下                                                                                          

WYS67

恳请老师们帮忙写个代码

WYS67

lsc900707 发表于 2018-8-22 18:29
帖子内容似曾相识！

老师：这个是在分表《组三》里设置按钮，点击后自动更新《总表》符合条件的所有数据。怎么写代码？

WYS67

唉......希望大神们帮帮忙！

lsc900707

WYS67 发表于 2018-8-22 22:33
唉......希望大神们帮帮忙！

那里面都有我之前写的代码，只要稍加修改就是：
Sub gj23w98()
    Dim brr(1 To 10000, 1 To 5)
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\总表.xlsm")
    With wb.Sheets("总表")
         r1 = .[c2]: r2 = .[h2].Value
         If r2 <= r1 Then arr = .Range("e5:j" & r1)
    End With
    wb.Close False
    xm = [i1]: m = 0
    For i = 1 To UBound(arr)
        If Val(arr(i, 6)) = xm Then
            m = m + 1
            For j = 1 To 5
                brr(m, j) = arr(i, j)
            Next
        End If
    Next
    If m Then
        Range("e5:i" & Rows.Count).ClearContents
        [e5].Resize(m, 5) = brr
    End If
    Set wb = Nothing
End Sub