小小出入库管理系统(2012年12月又作了更新)

zjdh

110007101 发表于 2017-3-21 16:07
你好，老师。目前是vb开始学习的vb小白。那个查询页里面的修改日期，然后店查询，其他数据库的自动筛选过来 ...

模块1
Sub 高级筛选()
    ActiveSheet.Unprotect 123
    Sheets("数据库").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
         CriteriaRange:=Range("A1:T2"), CopyToRange:=Range("A4:S4"), Unique:=False
    ActiveSheet.Protect 123
End Sub

110007101

zjdh 发表于 2017-3-21 17:31
模块1
Sub 高级筛选()
    ActiveSheet.Unprotect 123

十分感谢。大神。

莣忧草11024

可以帮忙改下吗？

zjdh

莣忧草11024 发表于 2017-3-23 22:13
可以帮忙改下吗？

改啥东西？？   

znsong

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

莣忧草11024

zjdh 发表于 2017-3-24 07:58
改啥东西？？

单据录入那里我增加了几列，基础信息增加了1列，麻烦您可以给我改一下吗？

zjdh

莣忧草11024 发表于 2017-3-24 12:49
单据录入那里我增加了几列，基础信息增加了1列，麻烦您可以给我改一下吗？

修改工作量较大，暂时没空帮你。

guoxing2016

sdhc 发表于 2017-3-19 21:42
老师您好，谢谢您百忙中给我耐心解答 ，可是我按照您的方法反复操作了 好多次 ，还是不行 ，只要点击打印 ...

我也是同样的问题，WIN7系统，你的问题解决了没有？

guoxing2016

老师，12行的有没有WIN7版本的。

guoxing2016

guoxing2016 发表于 2017-3-27 15:21
我也是同样的问题，WIN7系统，你的问题解决了没有？

我打开以前的表就能够打印，现在的就不能打印，就和你的问题一样的。而且以前的表打开几次后业不能打印了。