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

zjdh

那你就加呀

上善若水888882

zjdh 发表于 2014-7-24 09:30
那你就加呀

我不会VBA，昨天晚上弄了半天，百度了许多案例，都没有弄好，麻烦您帮忙添一句执行撤销“库存表”工作表保护的代码，谢谢啦！

1. Sub 期末转期初()
   
2.     If MsgBox("你确定要将期末数据转为期初数吗?", 4 + 32 + 256, "系统提示!") = vbNo Then End
   
3.     ARR = Sheets("库存表").Range("A4:M" & Sheets("库存表").Range("A65536").End(3).Row)
   
4.     ReDim BRR(1 To UBound(ARR), 1 To 6)
   
5.     For I = 1 To UBound(ARR)
   
6.         For J = 1 To 4
   
7.             BRR(I, J) = ARR(I, J)
   
8.         Next
   
9.         BRR(I, 5) = ARR(I, 11)
   
10.         BRR(I, 6) = ARR(I, 13)
    
11.     Next
    
12.     Sheets("基础信息表").Range("A2").Resize(UBound(ARR), 6) = BRR
    
13.     If MsgBox("已经将期末数据转为期初数！" & Chr(10) & "你必须将所有出入库记录导出,并清除！否则库存数将严重错误！" _
    
14.             & Chr(10) & "需要导出并清除数据吗？", 4 + 32 + 256, "系统提示!") = vbNo Then End
    
15.     备份
    
16. End Sub

复制代码

棋士

好东西，我下载试试

zjdh

1. Sub 期末转期初()
   
2.     If MsgBox("你确定要将期末数据转为期初数吗?", 4 + 32 + 256, "系统提示!") = vbNo Then End
   
3.     With Sheets("库存表")
   
4.         .Unprotect
   
5.         ARR = .Range("A4:M" & .Range("A65536").End(3).Row)
   
6.         .Protect
   
7.     End With
   
8.     ReDim BRR(1 To UBound(ARR), 1 To 6)
   
9.     For I = 1 To UBound(ARR)
   
10.         For J = 1 To 4
    
11.             BRR(I, J) = ARR(I, J)
    
12.         Next
    
13.         BRR(I, 5) = ARR(I, 11)
    
14.         BRR(I, 6) = ARR(I, 13)
    
15.     Next
    
16.     Sheets("基础信息表").Range("A2").Resize(UBound(ARR), 6) = BRR
    
17.     If MsgBox("已经将期末数据转为期初数！" & Chr(10) & "你必须将所有出入库记录导出,并清除！否则库存数将严重错误！" _
    
18.             & Chr(10) & "需要导出并清除数据吗？", 4 + 32 + 256, "系统提示!") = vbNo Then End
    
19.     备份
    
20. End Sub
    

复制代码

上善若水888882

zjdh 发表于 2014-7-24 14:07

谢谢咯！老师

海的女儿sunny

zjdh 发表于 2014-7-2 14:17
1. 基础信息保护了，没加密码，自己解锁吧。
2. 凡基础信息里未登记的物品，无法模糊输入！

先谢谢老师。解锁好了，基础信息也登记了。但是单据录入时不仅无法模糊输入，而且精确输入enter后，单元格还是空白，录不进任何信息呢（部门部分甚至没有基础信息已录入的部门选项），见附件。小白菜摸索阶段，求老师解惑。谢谢。
出入库系统6-4.3_五金有限公司.rar (405.22 KB, 下载次数: 26)

2014-7-28 14:10 上传

点击文件名下载附件

5512345

楼主您好，非常感谢您的系统，目前暂时有一个需求希望您能帮助解决。在（6.4.3）数据库中，通过筛选，是可以在库存表中显示当月的库存余额的。但是有一点，入库数据默认是添加上月的库存，出库数据也是显示总的数据。能否通过数据库中的筛选操作，只在库存表中显示当月的出入库数据，并在库存数据中显示目前总的库存金额。每个月都需要和财务进行核对，需要当月的数据，麻烦楼主了。

zjdh

海的女儿sunny 发表于 2014-7-28 10:39
先谢谢老师。解锁好了，基础信息也登记了。但是单据录入时不仅无法模糊输入，而且精确输入enter后，单元格 ...

都很正常啊

列表中双击录入！看看使用说明！

zjdh

5512345 发表于 2014-7-28 16:05
楼主您好，非常感谢您的系统，目前暂时有一个需求希望您能帮助解决。在（6.4.3）数据库中，通过筛选，是可以 ...

目前没有按月统计出入库总数，不过库存总金额在库存表右上角有啊。

leoyangs

特意来感谢楼主
谢谢您 发帖三年竟然还一直在耐心回答问题  真是晚辈的楷模

您的管理系统 小巧 简明 实用！
只是对我来说 少了盘盈盘亏 的功能  看到您说 增加项目很复杂 不好实现  是有点惋惜  不过顺着您的思路 我想也许能自己学着 改改

再次感恩