[已解决]高难度多条件分组排列

金点子双色球

分组排列.rar (18.07 KB, 下载次数: 30)

2014-11-20 22:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-21 16:34

Sub Macro1()
On Error Resume Next
Dim arr, brr(1 To 20000, 1 To 7), i%, j&, s&, k%
nd = [f4]: gjc = [h4]
For i = 1 To 3
    arr = Sheets(i).UsedRange
    If InStr(arr(1, 1), nd) Then
        For j = 4 To UBound(arr)
            If arr(j, 4) Like "*" & gjc & "*" Then
                s = s + 1
                For k = 2 To UBound(arr, 2)
                    brr(s, k - 1) = arr(j, k)
                Next
            End If
        Next
    End If
Next
[c7:i500].ClearContents
If s > 0 Then Range("c7").Resize(s, 7) = brr
End Sub

跳转到最佳答案楼层

dsmch

………………

金点子双色球

dsmch 发表于 2014-11-21 04:54
………………

老师：您好！思路正确，可以实现部分查询，但还请老师改进一下，才能符合。例如：年度：2013，科目代码：512050001，列出了第一组，但还有代码为512050001的一组没有列出，请老师改进一下，

金点子双色球

金点子双色球 发表于 2014-11-21 08:33
老师：您好！思路正确，可以实现部分查询，但还请老师改进一下，才能符合。例如：年度：2013，科目代码： ...

老师您好！可能我没有表达清楚。我把我的领导交办的原话说一下：填写一个科目代码后，列出这个科目的资金调出到或调入到哪些科目去了。如果有的话，要列出这个科目多次调出或调入到哪些科目中都列出来。通过查看，我觉得应该把与查询科目相同的日期、相同凭证号的列为一组。所以，我把那三张表都手工分组标注了不同颜色。
    不知这样说的是否明白。麻烦老师了，谢谢！！！！

dsmch

按科目涉及到的凭证号分组列出

金点子双色球

dsmch 发表于 2014-11-21 14:55
按科目涉及到的凭证号分组列出

老师您好！您太有才了啊，做的太好了，非常感谢！！查询功能真好。
就是发现查询这张表只能放在工作簿的最前面，移动到后面就查不出来了，因为这是模拟表，而我实际运用的表有好几十个。所以，还是要麻烦老师修改一下这个“分组排列”表和“关键词查询”表。麻烦您了老师！再次感谢！！期待着！！
关键词的网址http://www.excelpx.com/thread-334975-1-1.html

金点子双色球

请老师看看

金点子双色球

金点子双色球 发表于 2014-11-21 15:48
老师您好！您太有才了啊，做的太好了，非常感谢！！查询功能真好。
就是发现查询这张表只能放在工作簿 ...

已经添加了问题附件

dsmch

………………

金点子双色球

dsmch 发表于 2014-11-21 16:05
………………