今天无聊做了个简易进销存

xutianlin

重要的都有。。。没有用VBA，用了一些SQL，因为不高兴做单据。。。。

如果价格变化的话，使用者第一可以用字典，第二可以用LOOKUP 1/0结构区查找产品最后一个的价格。。。这个东西自己看着办，或者说在单据里面自己控制价格变化，这里只是给出一些思路

如果要做单据的话，代码可以参照
Sub 存放账簿()
On Error Resume Next
j = Range("b100").End(xlUp).Row
If j = 3 Then MsgBox "没有可以保存到账簿的凭证": End
If Application.CountIf(Sheets("会计账簿").Range("b:b"), Sheets("凭证界面").Range("c2")) >= 1 Then
MsgBox "此张凭证已经保存过，请重新填开凭证": End
End If
k = Sheets("会计账簿").Range("a1048576").End(xlUp).Row
Range("b4:e" & j).Copy Sheets("会计账簿").Range("c" & k + 1)
Range("g4:i" & j).Copy Sheets("会计账簿").Range("g" & k + 1)
Range("c2").Copy Sheets("会计账簿").Range("b" & k + 1).Resize(j - 3)
Range("g2").Copy Sheets("会计账簿").Range("j" & k + 1).Resize(j - 3)
Range("e2").Copy Sheets("会计账簿").Range("a" & k + 1).Resize(j - 3)
Range("h2").Copy Sheets("会计账簿").Range("k" & k + 1).Resize(j - 3)
Range("j2").Copy Sheets("会计账簿").Range("l" & k + 1).Resize(j - 3)
Range("d15").Copy Sheets("会计账簿").Range("q" & k + 1).Resize(j - 3)
MsgBox "过账完成"
End Sub

一剑惊心

你确定每一次的售价都是一致的，同样白葡萄酒，3月份售价是104，而到了4月份或5月份时，由于进价的成本变化，售价发生了变化，如何体现出来？

xutianlin

一剑惊心 发表于 2014-4-18 14:51
你确定每一次的售价都是一致的，同样白葡萄酒，3月份售价是104，而到了4月份或5月份时，由于进价的成本变化 ...

对哈。。。。没想这么多。。。不过，如果发生变化的话，可以用VBA字典去搞定它。。。

xutianlin

一剑惊心 发表于 2014-4-18 14:51
你确定每一次的售价都是一致的，同样白葡萄酒，3月份售价是104，而到了4月份或5月份时，由于进价的成本变化 ...

先进先出。。。你有什么办法搞定。。。。给个思路呗

xutianlin

一剑惊心 发表于 2014-4-18 14:51
你确定每一次的售价都是一致的，同样白葡萄酒，3月份售价是104，而到了4月份或5月份时，由于进价的成本变化 ...

我觉得如果价格变化的话，第一可以用字典，第二可以用LOOKUP 1/0结构区查找产品最后一个的价格。。。这样子的话，应该也就可以搞定了，更何况，我这里也没有设置单据啊，只是给出了最后的数据源。。。您说呢

dgzx-jiangxj

有制作动画贴的方法？
推荐
感谢

xutianlin

dgzx-jiangxj 发表于 2014-4-18 15:04
有制作动画贴的方法？
推荐
感谢

论坛搜索GGG软件、、、、、、、、、、、、、、、、

dgzx-jiangxj

xutianlin 发表于 2014-4-18 15:09
论坛搜索GGG软件、、、、、、、、、、、、、、、、

谢谢！
GGG软件

看见星光

我是来赞美和撒花的呀~

jimcomputer

无聊的时候就能做这么强大的东西，举重若轻