一个库存管理的示例,目标是方便录入,分仓查询.

TMOY

楼主万岁!!!!(找不到更好的赞美语言了)

我进EXHOME就是找这个贴的! 终于不负"有心人"呐.哈哈. 当然"有心人"有楼主担当才合适, 三年前的贴子,直到现在还一丝不苟的在回复. 学习ROWEN!!!!

一贴贴学下来,收获很大,还在慢慢啃.有些疑问请有空时解答一下:

1,产品型录/产品编号/批注:=COUNTIF($B:$B,$B1)>1, 我复制下来成了循环引用, 此处应该是手动编的吧? 楼主的初始想法用公式编产品号嘛? 请解答一下.

2,我替换其他产品资料进去时无法正常显示,请见附件图.

Rowen

A1:这个公式原来是自己检查有无出现重复编号用的, 可放在其它列使用. 此处已不再使用, 权当化石.

A2:请将项次列填充完整, 且唯一. 因该列作为 ID 列使用, 不可有重复, 检索一类的动作均需要它来进行标识.

TMOY

以下是引用Rowen在2005-12-2 18:40:00的发言：

A1:这个公式原来是自己检查有无出现重复编号用的, 可放在其它列使用. 此处已不再使用, 权当化石.

A2:请将项次列填充完整, 且唯一. 因该列作为 ID 列使用, 不可有重复, 检索一类的动作均需要它来进行标识.

解决了! 非常感谢! 您的作品融合多项技术, 是我今年最大的收获!

我一定要啃烂它!!! 呵呵

如何做到不用VLOOKUP而让发货单在满足编号之后自动显示对应的行数据呢? 昨晚研究了一晚,找到了这段:

For Each rng In rng变更的编号
intTmp = rng.Row - .Row + 1
rng.Offset(0, 1).Select
rng.Offset(0, 1).FormulaR1C1 = "=IN_EQ_类别"
.Cells(intTmp, 3).FormulaR1C1 = "=IN_EQ_品名"
.Cells(intTmp, 4).FormulaR1C1 = "=IN_EQ_单位"
'.Cells(intTmp, 5).FormulaR1C1 = "=IN_EQ_数量"
.Cells(intTmp, 6).FormulaR1C1 = "=IN_EQ_单价"
.Cells(intTmp, 7).FormulaR1C1 = "=IN_金额"
'.Cells(intTmp, 8).FormulaR1C1 = ""'备注

有空再解释一下这段的工作原理吧, VBA正开始学,看不懂. 我相信是这一段设置让其他单元格实现自动显示相关数据. 但我查了所有定义的名称,没有"IN_EQ_类别"这种名称. 估计是在VBA里. 这一段最"可疑"了.....[em02]

rg555555

真行。

Rowen

在插入>>名称>>定义 里有设置:

IN_EQ_类别=IF(单据录入!$D10="","",INDEX(型录_TBL,MATCH(单据录入!$D10,型录_编号列,0),COLUMN(型录_品牌)))

lazybone63

很漂亮的程序，有点复杂。研究中！

Rowen

关于"当前库存一览表"更新问题的答复:

这里面分两部分，

一是通过自定义名称VAR_TBL=OFFSET(库存变动清单!$A$1,0,0,COUNTA(库存变动清单!$A:$A),14)来动态获得"库存变动清单"的数据列表(14列的宽度),然后将其作为数据透视表的数据源使用. 这样, 当表中数据动态变更时, 透视表均能获得正确的区域地址.

二是在"当前库存一览表"的代码面添加自动更新透视表的代码,如下:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
Cells.EntireColumn.AutoFit
Cells.EntireColumn.AutoFit
'Columns("C:C").Font.ColorIndex = 10
'Columns("D:D").Font.ColorIndex = 5
'Columns("E:E").Font.ColorIndex = 55
'Columns("F:F").Font.ColorIndex = 7
'Columns("H:H").Font.ColorIndex = 3
Columns("I:I").Font.Bold = True

Range("b1").Select

Application.ScreenUpdating = True
End Sub

chenyu

原创，支持了，期待下一个。

risis

谢谢共享！

忠字

Rowen大师：

数据录入后是如何在点击“保存”按钮后将数据写入“库存变动清单”的，并且将录入表中数据清除

在哪段VB，请指点一二，万分感谢！！