[已解决]mxg825老师请再帮1个忙~！！！

mxg825

再改进一下！ 刚才忘记改 筛选部分了！

iphone5

回复 mxg825 的帖子

mxg825 老师，

我想这两个筛选方式都保留。方便查询。


再问个问题，

在明细表里如果我把数据位置改成这样：标题在第5行，数据在第6行。在第5行上面4.3.2.1行都会有其它字符。

那么这段筛选代码修改什么地方？

mxg825

回复 iphone5 的帖子

你意思是 进货库和销售库 标题行在5行 是不是？建议 不要这样改！
如果要改的话，把 [进货$]   改为 [进货$A5:U65536]  或 用一个变量取得当前最大行号！[进货$A5:U" & MROW]
[销售$] 也一样 ！

iphone5

回复 mxg825 的帖子

如果这样改了的话会存在什么样的问题？



改成这样可以筛选出数据  [进货$A5:U65536]
改成这样在VBA里提示编辑错误无效字符[进货$A5:U" & MROW]

mxg825

我是打个比方，还需要加代码的！
Dim MROW&, XROW&
    MROW = Sheets("进货").Range("E65536").End(xlUp).Row
    XROW = Sheets("销售").Range("E65536").End(xlUp).Row
‘中间
[进货$A5:U" & MROW & "]"

iphone5

回复 mxg825 的帖子

mxg825老师！



下面这段代码我想把筛选关键字的位置改成这样:

B3=供应商：        C3=输入查询
D3=货品名称：     E3=输入查询
B4=货品产地：     C4=输入查询
D4=货品编码:       E4=输入查询

请 mxg825 老师指点~！
————————————————————————————————————————————————————————————————————

SQ4 = "SELECT 货品编码,供应商,货品名称,货品规格,货品产地,sum(数量) AS 总进量,SUM(销量) as 总销量,(sum(金额)/sum(数量)) AS 加权均价 FROM(" & SQ1 & " Union ALL " & SQ2 & _
          ") WHERE 开单日期 <=  #" & [E3] & "#  AND " & [F3] & " like '%" & [G3] & "%' GROUP BY 货品编码,供应商,货品名称,货品规格,货品产地"

mxg825

AND " & [F3] & " like '%" & [G3] & "%'
这一句重复 插入就可以了 ，改动 [F3] 查询字段名,[G3] 该字段查询关键字！
数据类型是：
文本 》两边加单引号‘
数字》两边不用加
日期》两边加 井号 #


SQ4 = "SELECT 货品编码,供应商,货品名称,货品规格,货品产地,sum(数量) AS 总进量,SUM(销量) as 总销量,(sum(金额)/sum(数量)) AS 加权均价 FROM(" & SQ1 & " Union ALL " & SQ2 & _
          ") WHERE 开单日期 <=  #" & [E3] & "#  AND " & [B3] & " like '%" & [C3] & "%' AND " & [D3] & " like '%" & [E3] & "%' AND " & [B4] & " like '%" & [C4] & "%' AND " & [D4] & " like '%" & [E4] & "%' GROUP BY 货品编码,供应商,货品名称,货品规格,货品产地"

iphone5

回复 mxg825 的帖子

mxg825 老师请抽空帮忙再加一个

销售利润=（销售净额-销售成本）

谢谢！！！



http://www.excelpx.com/thread-203272-1-1.html

Dj_soo

学习Excel的网站被用来当做免费劳力的网站,有意思没啊!
为了解决问题自己动手动脑多好!