ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2793|回复: 19

[求助] 仓库库存自动录入不重复!!1

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-8-29 15:56 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
求帮助啊,如题,仓库根据入库自动填写,并且不重复

库存.rar

7.35 KB, 下载次数: 64

TA的精华主题

TA的得分主题

发表于 2014-8-29 16:26 | 显示全部楼层
库存必须手工输入。
一次性输入全部不重复的酒名。
入库、出库引用库存明细。
话说最好给每个品名设置编码。

TA的精华主题

TA的得分主题

发表于 2014-8-29 16:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
建议如附件设置。
1,每个酒都给一个编码。
2,所有的商品明细都在库存设置好,即使库存为0(将来会进货吧?)--或者进货的时候再添加明细。

库存.zip

12.06 KB, 下载次数: 47

TA的精华主题

TA的得分主题

发表于 2014-8-29 17:03 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
sw=andy 发表于 2014-8-29 16:51
建议如附件设置。
1,每个酒都给一个编码。
2,所有的商品明细都在库存设置好,即使库存为0(将来会进货吧 ...

很好!,最后是根据编码去查找所对应的库存量呀,例如郎酒,就会出现T3、T6、T9三种品牌呀,虽然都是郎酒品牌下的产品呀。强烈建议按照就的编码来统计。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-29 17:08 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
sw=andy 发表于 2014-8-29 16:51
建议如附件设置。
1,每个酒都给一个编码。
2,所有的商品明细都在库存设置好,即使库存为0(将来会进货吧 ...

这样也行,给上个编号,来了不同的商品,在库存上别填重复就行了,但是还是不太好,只能先用,不过也先谢谢你了!!又学了一点知识!!!!!!!

TA的精华主题

TA的得分主题

发表于 2014-8-29 17:44 | 显示全部楼层
=INDEX(入库!$B$5:$B$500,SMALL(IF(NOT(ISERR(MATCH(入库!B$5:$B$800,入库!B$5:$B$800,)=ROW(B$5:$B$800)-4)),ROW(B$5:$B$800)-4,494),ROW(A1)))&""      下拉  数组公式同时按下三键

TA的精华主题

TA的得分主题

发表于 2014-8-29 18:02 | 显示全部楼层
AAAA405060 发表于 2014-8-29 17:08
这样也行,给上个编号,来了不同的商品,在库存上别填重复就行了,但是还是不太好,只能先用,不过也先谢 ...

条件格式,重复值

这样重复就会高亮显示

TA的精华主题

TA的得分主题

发表于 2014-8-29 23:01 | 显示全部楼层
库存表里的公式

C5=SUMPRODUCT((入库!$B$5:$B$22=B5)*入库!$C$5:$C$22)

D5=SUMPRODUCT((出库!$B$5:$B$22=B5)*出库!$C$5:$C$22)

E5=C5-D5

TA的精华主题

TA的得分主题

发表于 2014-8-29 23:20 | 显示全部楼层
sw=andy 的思路挺好,但有需要改进的地方。
设货物编号,应该考虑全面一些,比如货物的分类,编号的位数等必须考虑清楚;同时货物最好设组别,便于之后的统计分析。设置之后,在应用过程中再去改动,比较麻烦,很多情况下只能是将就着用。
限制重复值,用条件格式,随着数据量的增大,会影响表格运行郊率,用vba可能更合适。

TA的精华主题

TA的得分主题

发表于 2014-8-30 10:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
做个VBA点击更新库存按纽,看看效果。
  1. Sub test()
  2.     Dim a, b, c, n, d As Object
  3.     Set d = CreateObject("scripting.dictionary")
  4.     a = Sheets("入库").Range("b5:c" & Sheets("入库").[b65536].End(xlUp).Row)
  5.     b = Sheets("出库").Range("b5:c" & Sheets("出库").[b65536].End(xlUp).Row)
  6.     ReDim c(1 To UBound(a) + UBound(b), 1 To 4)
  7.     Sheets("库存").UsedRange.Offset(4, 0).ClearContents
  8.    
  9.     For i = 1 To UBound(a)
  10.         If Not d.exists(a(i, 1)) Then
  11.             n = n + 1
  12.             d(a(i, 1)) = n
  13.             c(n, 1) = a(i, 1)
  14.             c(n, 2) = a(i, 2)
  15.         Else
  16.             c(d(a(i, 1)), 2) = c(d(a(i, 1)), 2) + a(i, 2)
  17.         End If
  18.     Next
  19.     For i = 1 To UBound(b)
  20.         If Not d.exists(b(i, 1)) Then
  21.             n = n + 1
  22.             d(b(i, 1)) = n
  23.             c(n, 1) = b(i, 1)
  24.             c(n, 3) = b(i, 2)
  25.         Else
  26.             c(d(b(i, 1)), 3) = c(d(b(i, 1)), 3) + b(i, 2)
  27.         End If
  28.     Next
  29.     For i = 1 To d.Count
  30.         c(i, 4) = Val(c(i, 2)) - Val(c(i, 3))
  31.     Next
  32.     Sheets("库存").[b5].Resize(d.Count, 4) = c
  33.         
  34. End Sub
复制代码



库存.zip

19.04 KB, 下载次数: 74

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:25 , Processed in 0.044237 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表