大神求助！！销售明细查询，以及按业务员分类汇总怎么做啊

sun476564309

如题，本来不想麻烦各位大大，我是小白一个，自己捯饬了快一个星期了，也参考了许多类似实例，查询了许多资料，然后弄出了不完善的销售单录入明细和订单号刷新，但销售明细查询是真的搞不好了，有没有好心人帮帮忙，感激不尽啊啊啊啊啊！！！！！！ 下面是需要解决的问题：
1，销售明细按“单号”查询到“销售明细查询“中 ，按“日期查询”到”销售明细查询“中，按”业务员和日期“查询到业务员业务查询中，按”客户和日期“查询到”客户订单查询“中，或者可以做个在数据很多时能保证运行速度的多条件查询
2，销售单重置，因为销售单有时会有很多行，之前参考的都是基于固定多少行的销售单，所以无法达到需求，自己琢磨过一个办法，复制一个固定编辑行数的销售单模板在表中看不见的地方 ，然后删除原先销售单再复制模板粘贴在该区域，但这个方法不是很理想也容易出问题，所以大佬们有解决方法吗？怎样做到不管销售单行数变为多少，都能清除数据，重置到编辑行数为8行的空白销售单？

3，我自己做的销售单号刷新，这个有个问题 ，无法做到当月份改变时，后缀自动重置为001，希望大佬顺带解决并放在销售单重置一起

其实问题还有很多，但说的太多有点不好意思，有大佬帮我解决掉一个两个旧无比感激了，有什么表格分类和编码上的建议都可以跟我说，我后面自己再参考琢磨琢磨，当然，上述问题若能全部解决更是再好不过了。求大佬掀牌子，多谢多谢多谢，。。。。。。
附件如下，有我自己弄得代码在里面，请审阅。







补充内容 (2018-7-21 13:19):
有的代码我移过来改动之后不能正常运行，希望拉闷闷帮我看看修改下，谢谢。新附件在21楼

sun476564309

新手小白，在线发帖，求掀牌~

evouren

sun476564309楼主，你实际上使用进销存软件就行，你这办法，很容易出错，又比较麻烦的。请采纳

sun476564309

evouren 发表于 2018-7-17 14:19
sun476564309楼主，你实际上使用进销存软件就行，你这办法，很容易出错，又比较麻烦的。请采纳

非常感谢你的意见，但我这个可以不这么复杂，就尽量能有这些作用就好了，进销存软件无法自定义，有些条件无法满足，而且我也希望能够学习些这方面知识，后面可以自己做一些东西出来。

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=958920&extra=&mobile=2
VBA编程技巧 之 浅谈数据结构 ,可以看看这个

zhangzhang

增加了产品信息，做了 销售单 、单号查询。 写一写 销售单 、试一试 单号查询， 体会一下。

sun476564309

zhangzhang 发表于 2018-7-17 16:34
增加了产品信息，做了 销售单 、单号查询。 写一写 销售单 、试一试 单号查询， 体会一下。

非常感谢！！！看过之后首先就是觉得比我之前写的简洁规整太多了，虽然产品信息那个作用我用不上，因为我这边产品标准都是不统一的，不过还是能作为参考实例来学习，总之谢谢大佬。还有单号查询销售单也很实用，不过能帮我做个可以查询“客户和日期”然后结果放在查询表里的那种吗？

sun476564309

zpy2 发表于 2018-7-17 15:46
http://club.excelhome.net/forum.php?mod=viewthread&tid=958920&extra=&mobile=2
VBA编程技巧 之 浅谈数 ...

感谢 ！ 我会去看看的

opiona

使用的是：SQL 不知道你是否喜欢

查询代码如下，用什么查，就填什么，可不填，可多填

1.     Set SH1 = Worksheets("销售明细")
   
2.     Set SH0 = Worksheets("销售明细查询")
   
3.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
4.    
   
5.     StrSQL = "SELECT [日期],[销售单号],[产品型号],[产品规格],[颜色],[玻璃工艺],[数量],[总平方],[单价],[金额],[备注],[库管],[业务员],[审核],[客户名称]"
   
6.     StrSQL = StrSQL & " FROM [" & SH1.Name & "$E4:S]"
   
7.     StrSQL = StrSQL & " WHERE 1=1"
   
8.     If Len(SH0.Range("V7").Value) > 0 Then StrSQL = StrSQL & " AND [销售单号]='" & SH0.Range("V7").Value & "'" '//文本类型
   
9.     If Len(SH0.Range("V9").Value) > 0 Then StrSQL = StrSQL & " AND [客户名称]='" & SH0.Range("V9").Value & "'" '//文本类型
   
10.     If Len(SH0.Range("V11").Value) > 0 Then StrSQL = StrSQL & " AND [日期]>=#" & Format(SH0.Range("V11").Value, "yyyy-MM-dd") & "#" '//日期类型
    
11.     If Len(SH0.Range("V13").Value) > 0 Then StrSQL = StrSQL & " AND [日期]<=#" & Format(SH0.Range("V13").Value, "yyyy-MM-dd") & "#" '//日期类型
    
12.    
    
13.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    
14.     SH0.Range("E5:S1048576").ClearContents
    
15.     SH0.Range("E5").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR

复制代码

opiona

刷新：销售订单编号

1.     Set SH1 = Worksheets("销售明细")
   
2.     Set SH0 = Worksheets("销售单")
   
3. 
   
4.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
5.     StrSQL = "SELECT MAX([销售单号]) AS 最大单号"
   
6.     StrSQL = StrSQL & " FROM [" & SH1.Name & "$E4:S]"
   
7.     StrSQL = StrSQL & " WHERE YEAR([日期])=" & Year(Now)
   
8.     StrSQL = StrSQL & " AND  MONTH([日期])=" & Month(Now)
   
9.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
   
10.     If IsNull(SQLARR(0, 0)) = True Then
    
11.         Rem 此月份无单号
    
12.         SH0.Range("O1").Value = "AS" & Format(Now, "yyMM") & "-001"
    
13.     Else
    
14.         Rem 此月已经有单号
    
15.         INTX = Val(Right(SQLARR(0, 0), 3)) + 1
    
16.         SH0.Range("O1").Value = "AS" & Format(Now, "yyMM") & "-" & Format(INTX, "000")
    
17.     End If

复制代码