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

pzguanli

您好：
再一次打挠，真不好意思，不过这也体现大家对您作品的一种酷爱.替在家谢谢您.
1. 看了说明里面有这一局：库存明细账中带格式总行数超过600时删除最后50行,防止文件无谓增大。像打个比方如果单种物料超出600次的进出帐时，是不是多出的就会删除，不知如何理解可否进一步说明.2、基础信息设置表单内可否帮增加重复功能报警提示（如编码）以防重复输入.
3、所以表单内《规格型号》可否再次将列宽调到48
附件在3068楼

zjdh

pzguanli 发表于 2015-3-15 12:24
您好：
再一次打挠，真不好意思，不过这也体现大家对您作品的一种酷爱.替在家谢谢您.
1. 看了说明里面有这 ...

1. 是如你理解，若不想这么设置可以修改宏：
Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("数据库")
        .Unprotect 123
        .Range("A2:S" & .Range("A65536").End(3).Row).Sort Key1:=.Range("C2"), Order1:=xlAscending
        .Protect 123
    End With
    If Range("M65500").End(3).Row > 600 Then   '删除多余格式行
        ActiveSheet.Unprotect
        Rows("550:600").Delete
        ActiveSheet.Protect 123
    End If
    MX
    Application.ScreenUpdating = True
End Sub
或将其删除

2. 3. 不难可以解决。
不过是否搞错，现在录入页的宽度是28，你要改到48？？这将使得打印票据字体很小啦！！

zjdh

Albert128 发表于 2015-3-15 09:39
谢谢楼主分享!
本人发现在做入库单时,编码一旦入啦,就能删除!

不理解你的回复，详细说明。

pzguanli

zjdh 发表于 2015-3-15 14:23
1. 是如你理解，若不想这么设置可以修改宏：
Private Sub Worksheet_Activate()
    Application.Scr ...

楼主以上几点可否帮修改一下，宽度是就指表格内所有“规格型号”这一格加宽一点。谢谢！

caihuijing

zjdh 发表于 2015-3-6 17:52

2010版 启用宏了就打不开了 提示 对象无效或引用无效 这个怎么解决呢

zjdh

pzguanli 发表于 2015-3-15 17:51
楼主以上几点可否帮修改一下，宽度是就指表格内所有“规格型号”这一格加宽一点。谢谢！

出入库系统6-4.6 for pzguanli2.rar (452.39 KB, 下载次数: 29)

2015-3-16 10:06 上传

点击文件名下载附件

zjdh

caihuijing 发表于 2015-3-15 18:49
2010版 启用宏了就打不开了 提示 对象无效或引用无效 这个怎么解决呢

是控件丢失所致，到一楼找答案。
或先按
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=704886&pid=8118536
处理。

flyharry

向楼主，学习

228643050

zjdh 发表于 2015-3-10 21:39

给你32个赞！！！你这个贴从2012年发表到现在，历经3年还这么受欢迎！太利害了，谢谢你的无私奉献！！！！

zjdh

228643050 发表于 2015-3-16 13:57
给你32个赞！！！你这个贴从2012年发表到现在，历经3年还这么受欢迎！太利害了，谢谢你的无私奉献！！！！ ...

谢谢你的赞誉，到这来就是来互相交流，互相学习的！！
我这贴是2011年4月6日发布的。