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

zjdh

叶叶秋深 发表于 2017-9-6 08:45
您看一下截图，下面自动汇总的地方被我不小心输入了信息，就改不了啦。

这种情况一定是你将工作表保护取消了，正常操作是不会出现的。

gumption83

楼主，碰到以下情况：1.开好入库单，再开出库单，再点击入库按钮开入库单时，单据号回到初始号码
2.每次开好单据后，点击返回按钮 返回主页面 再回到单据录入面 单据编号就会自动复位。


不知是怎么回事，楼主帮忙解决下

zjdh

gumption83 发表于 2017-9-9 15:05
楼主，碰到以下情况：1.开好入库单，再开出库单，再点击入库按钮开入库单时，单据号回到初始号码
2.每次开 ...

"录入单据“页的宏改为
Private Sub Worksheet_Activate()
    If Mid(Cells(2, 22), 3, 4) * 1 <> Year(Now()) Or Mid(Cells(2, 22), 7, 2) <> Format(Month(Now()), "00") Then
        Cells(2, 22) = "WZ" & Year(Now()) & Format(Month(Now()), "00") & "0001"
    End If
    If Mid(Cells(3, 22), 3, 4) * 1 <> Year(Now()) Or Mid(Cells(2, 22), 7, 2) <> Format(Month(Now()), "00") Then
        Cells(3, 22) = "LT" & Year(Now()) & Format(Month(Now()), "00") & "0001"
    End If
    ScrollArea = "$A$1:$T$23"
End Sub

gumption83

zjdh 发表于 2017-9-10 08:55
"录入单据“页的宏改为
Private Sub Worksheet_Activate()
    If Mid(Cells(2, 22), 3, 4) * 1  Year( ...

测试结果：入库保存后，V2即（2，22）对应入库单据号没变动，V3（3，22）单据号变成了入库保存后的单据号。

注：好像是保存里的判断条件失败
楼主加我qq540380966

zjdh

gumption83 发表于 2017-9-10 12:42
测试结果：入库保存后，V2即（2，22）对应入库单据号没变动，V3（3，22）单据号变成了入库保存后的单据 ...

原帖你只说有复位问题，没说其他情况啊。
不知你为何要在栏头“入库单”前加个空格？
求助.rar (233.9 KB, 下载次数: 12)

2017-9-10 16:23 上传

点击文件名下载附件

gumption83

zjdh 发表于 2017-9-10 16:24
原帖你只说有复位问题，没说其他情况啊。
不知你为何要在栏头“入库单”前加个空格？

谢谢帮忙  大神就是厉害

楼主能帮我把'单据录入'中的查单 代码完善下不。谢谢楼主

restiger

新手
发现这是论坛最好的出入库管理模板，堪称典范中的典范
打开提示不适合我的电脑
期待楼主早日出win10 64版的
毕竟现在win10装机量越来越多了

wen8725

zjdh 发表于 2011-4-10 07:44
先前附件中忘说了：
打印功能,可以任选多个记录,多联重复多份打印，点击用户窗体中打印选择列表的各栏头， ...

老师你好，请问下，规格型号列，当内容过多时，显示不完整，显示完整在哪儿修改代码。能告诉我吗，谢谢

zjdh

wen8725 发表于 2017-9-14 10:19
老师你好，请问下，规格型号列，当内容过多时，显示不完整，显示完整在哪儿修改代码。能告诉我吗，谢谢

不是修改代码，而是调整列宽。
撤销工作表保护，保护密码 123
调整列宽或显示字体大小。

qjy321

请问库存转期初怎么用