按期间查询数据

zpy2

少如 发表于 2021-5-12 10:53
谢谢您的关注！
请您将公式改为VBA方式达到查询结果。
谢谢！

SELECT 公司名称,'2019-01-01' as 起,'2019-02-09' 止,sum(金额),group_concat(日期||摘要||金额) 子表 FROM (select 单据日期 日期,公司名称,核算项目代码||部门代码||业务员代码||币别||回款账户||摘要 摘要,单据金额*(-1) 金额 from
回款明细 union select 日期,公司名称,产品代码||产品名称||规格型号||单位||实发数量||出库单号||备注1||单价 摘要,销售金额 金额 FROM 销售明细) WHERE 公司名称 LIKE '南京科瑞尔科技开发有限公司门市部' AND 日期 BETWEEN '2019-01-01' AND '2019-02-09'

vba和公式不错的，sql来一个

ericxzhou

少如 发表于 2021-5-12 13:57
谢谢 ericxzhou 老师 ! 己经改好了!

可能看错行了，理解意思就好了。

shiruiqiang

Sub cs()
Application.ScreenUpdating = False
Dim arr, brr, arr1(1 To 100000, 1 To 8), arr2(1 To 10000, 1 To 4)
arr = Sheets("销售明细").UsedRange
brr = Sheets("回款明细").UsedRange
Sheets("查询表").Range("a9:n10000").Clear
Dim i, x, y, k
i = 8
k = 8
For x = 1 To UBound(arr)
arr1(x, 1) = Array(arr(x, 1), arr(x, 4), arr(x, 5), arr(x, 6), arr(x, 10), arr(x, 7), arr(x, 11), arr(x, 9))
If arr(x, 2) Like Sheets("查询表").Range("c4") And arr(x, 1) >= Sheets("查询表").Range("k4") And arr(x, 1) <= Sheets("查询表").Range("n4") Then
i = i + 1
Sheets("查询表").Range("a" & i) = i - 8
Sheets("查询表").Range("b" & i).Resize(1, 8) = arr1(x, 1)
End If
Next
For y = 1 To UBound(brr)
arr2(y, 1) = Array(brr(y, 1), brr(y, 7), brr(y, 8), brr(y, 9))
If brr(y, 3) Like Sheets("查询表").Range("c4") And brr(y, 1) >= Sheets("查询表").Range("k4") And brr(y, 1) <= Sheets("查询表").Range("n4") Then
k = k + 1
Sheets("查询表").Range("j" & k).Resize(1, 4) = arr2(y, 1)
End If
Next
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

2datou

少如 发表于 2021-5-12 12:41
学生不 懂VBA, 您受累把他写完吧.  谢谢!

看你级别也不低啊，怎么感觉你自己一点都不学习不百度就是想要白嫖呢？

少如

zpy2 发表于 2021-5-12 14:33
SELECT 公司名称,'2019-01-01' as 起,'2019-02-09' 止,sum(金额),group_concat(日期||摘要||金额) 子表 F ...

谢谢 zpy2 老师一直在关注此贴! 之前也看到过您用此种方式回答学友们的问题,我也试图学了几次, 怎耐自己年世己高(今年74周岁)头脑和眼手都不灵光了,所以没熊学会,唉!没办法了,只能向各位老师求教. 我注册较早,在网时间较长(潜水学习)所以级别高于新人,不是不学习,是学了就忘,用的时候脑代瓜一片空白......总之谢谢各位老师的帮助,向各位的辛勤劳作致敬!!!

少如

2datou 发表于 2021-5-12 15:21
看你级别也不低啊，怎么感觉你自己一点都不学习不百度就是想要白嫖呢？

实在不懂何为[白嫖]?  你是不是到处[白嫖]呀!!!!!!!!!!!!!

2datou

少如 发表于 2021-5-12 19:38
实在不懂何为[白嫖]?  你是不是到处[白嫖]呀!!!!!!!!!!!!!

老叔您真的70多了吗？？？真的吗？？？

少如

2datou 发表于 2021-5-12 21:03
老叔您真的70多了吗？？？真的吗？？？

是真的, 1947年出生, .......希望以后不要出口伤人, 谁都有初学不会的经过,
不了解情况少发言.学友们求助,能帮就帮,帮不帮是自愿的,没必要去打击别人.....多一些仁爱之心总是好的!