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

sizhen5101 · 发表于 2011-10-28 22:17

zjdh 发表于 2011-10-28 15:58
If Mid(Cells(1, 12), 6, 6) Year(Now()) & Format(Month(Now()), "00") Then

If Mid(Cells(2, 12), ...

谢谢老师，弄好了，都改成我想要的了

sizhen5101 · 发表于 2011-10-28 22:22

哦，还有两个。出库时库存小于等于0的提醒

sizhen5101 · 发表于 2011-10-28 23:58

本帖最后由 sizhen5101 于 2011-10-29 01:18 编辑

问题又来了
由于物品名称、规格内容都比较多，在模糊输入时不能显示全，我调整过那个选择框，但是调整不了里面显示的间距，请问怎么修改？
编号我想将第一个数字改成一个文字如：百00000001，我倒是尝试在基础信息中这样输了，库存表的编号也会跟着变，但再其它地方会有什么影响吗？

zjdh · 发表于 2011-10-29 08:01

看动画：

zjdh · 发表于 2011-10-29 09:10

本帖最后由 zjdh 于 2011-10-29 10:16 编辑

sizhen5101 发表于 2011-10-28 22:22
哦，还有两个。出库时库存小于等于0的提醒

你在修改宏时一点都不注意：标点符号的全角还是半角！
物资出库单（送货单）
写成：物资出库单(送货单）
以致输入出库单时失去自动提供加权平均价的功能！
我现已修改，增加了出库时库存结果小于0时的提示。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ARR, I&, RS&, RJ&, CS&, CJ&
If Not Intersect(Range("G1:G35"), Target) Is Nothing And Range("B2") = "物资出库单（送货单）" Then
On Error GoTo 1
With Sheets("数据库")
ARR = .Range("h2:q" & .Range("h65500").End(3).Row)
End With
For I = 1 To UBound(ARR) '计算出入库数量和金额
If ARR(I, 1) = Target.Offset(0, -4) Then
RS = RS + ARR(I, 5)
RJ = RJ + ARR(I, 7)
CS = CS + ARR(I, 8)
CJ = CJ + ARR(I, 10)
End If
Next
With Sheets("基础信息表")
ARR = .Range("A2:F" & .Range("A65500").End(3).Row)
End With
For I = 1 To UBound(ARR) '加入期初数与金额
If ARR(I, 1) = Target.Offset(0, -4) Then
RS = RS + ARR(I, 5)
RJ = RJ + ARR(I, 6) * ARR(I, 5)
End If
Next
If RS - CS > 0 Then '若入库数(含期初数)大于出库数时,提供平均价
Target.Offset(, 1) = (RJ - CJ) / (RS - CS)
Else
Target.Offset(, 5) = ""
End If
If RS - CS - Target < 0 Then MsgBox "本物资原库存数量为: " & RS - CS
End If
1
End Sub

复制代码

sizhen5101 · 发表于 2011-10-29 10:12

本帖最后由 sizhen5101 于 2011-10-29 10:48 编辑

zjdh 发表于 2011-10-29 09:10
你在修改宏时一点都不注意：标点符号的全角还是半角！
物资出库单（送货单）
写成：物资出库 ...

谢谢老师了，但是那个库存提醒没用呢？同样有负库存

............为什么又突然有提示了呢？

sizhen5101 · 发表于 2011-10-29 10:51

再次感谢老师，有问题还是来咨询你哈

sizhen5101 · 发表于 2011-10-29 12:23

本帖最后由 sizhen5101 于 2011-10-29 13:04 编辑

账务.rar (236.73 KB, 下载次数: 19)

郁闷了，出库单查询能查到单价什么的，就是查不出数量来。入库单的查询都可以。不知道问题出在哪里了？

zjdh · 发表于 2011-10-29 12:55

你文件中有数量吗？？！！

sizhen5101 · 发表于 2011-10-29 13:04

本帖最后由 sizhen5101 于 2011-10-29 16:35 编辑

有数量的，我把原件发上来了。其它我使用都没有问题，我复制的该文件也可以查询，但将数据转移到复制的文件中后又不能查询出，又在复制的文件中从新录入后还是查询不出。

我要疯了，老板说那个编号能不能在前面写一个字，他好区分。我倒是弄了，但是分项查询里面格式是错误的。请问老师这个能实现吗？不行我就给老板两个字。{:soso_e106:}

		自动登录	找回密码
密码			免费注册

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