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

yqg · 发表于 2007-12-15 07:04

QUOTE:

以下是引用Rowen在2006-1-4 22:00:00的发言：

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

这里面分两部分，

一是通过自定义名称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

总版主你好，这段代码（红色显示）不知道是什么意思，能给批注一下吗？另"G:G"为什么没有？

[em06][em06]

zhou68 · 发表于 2007-12-15 16:46

做的很好哦,谢谢！

sunx · 发表于 2007-12-19 21:30

点击出库单时，他提示错误啊，接着打开了VB说找不到工作簿，怎么回事啊？

Rowen · 发表于 2007-12-20 00:30

在安装OFFICE时, 选择自义安装>>在本机运行全部程序

丁壬易龙 · 发表于 2007-12-20 09:22

谢谢,你辛苦了!

chenyuanwen · 发表于 2007-12-20 15:41

真是好帖永不落，我是两年前在这里淘的金，现在仍在用。深深感谢！！！

xsxsxslch · 发表于 2007-12-23 20:45

版主出招就不一样,励害!!!

Lixh159 · 发表于 2007-12-27 13:39

版主果然厉害，5年以来一直不厌其烦的为大家讲解，谢谢了！下了好好研究学习，希望能改更一下我目前全函数式的“制程数据表”（运算太慢了），300多贴一路看下来受溢非浅。

zhou68 · 发表于 2007-12-31 23:17

先收藏了,谢谢

丁壬易龙 · 发表于 2008-1-25 14:28

真是好东西!谢了![em02]

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