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

spiderman · 发表于 2004-9-1 13:11

楼主，能把库存程序发一个给我吗，学习一下，公司不能下载，晕呀

wzy0302@amoi.com.cn

sgwxt · 发表于 2004-9-1 21:54

为什么在使用单据录入工作表时总是出错：提示是：编译错误变量未定义？

Rowen · 发表于 2004-9-1 22:18

调试＞＞看哪一句的问题。

xy.yin · 发表于 2004-9-18 09:43

Rowen:你好

看了73楼的回答,我不会做,怎么运行一个过程,太专业了.

麻烦再详细一点好吗?我怎么删掉那些不用的品牌名称.谢谢.

Rowen · 发表于 2004-9-19 12:00

把下列代码复制到任一模块中,运行(F5键)一下.

Sub 删掉那些不用的品牌名称

On Error Resume Next With 当前库存一览表.PivotTables(1).PivotFields("品牌") For I = 1 To .PivotItems.Count .PivotItems(I).Delete Next End With

end sub

xy.yin · 发表于 2004-9-20 13:56

Rowen:你好

我只会用, 代码?模块?我一窍不通.

我无从下手,伤脑筋.

[em06]

Rowen · 发表于 2004-9-23 13:32

在编辑宏之前，必须先熟悉“Visual Basic 编辑器” （Visual Basic 编辑器：一种环境，用于编写新的 Visual Basic for Applications 代码和过程，并编辑已有的代码和过程。Visual Basic 编辑器包括完整的调试工具集，用于查找代码中的语法、运行时和逻辑问题。）。“Visual Basic 编辑器”能够用于编写和编辑附属于 Microsoft Excel 工作簿的宏。

在“工具”菜单上，指向“宏”，再单击“Visual Basic 编辑器”。或按下 Alt+F11, 或右击工作表标签>>查看代码...

在“视图”菜单上，单击“工程资源管理器”。

在“插入”菜单上，再单击“模块”

将需要复制的模块或代码复制到目标中。

识从无中有 · 发表于 2004-9-23 22:20

Rwoen版主，侬真是厉害1

令尔等汗颜！

真是想向你请教请教，但却不知从何提起！

佩服！··········

Rowen · 发表于 2004-9-24 13:26

Tzzzz_11253 哪一帖?

另:看上去就像体育老师. 我给别人看, 一猜就是体育老师.

Rowen · 发表于 2004-9-25 00:40

ActiveWorkbook.Names.Add Name:="ActiveRx", RefersT=Target.Row 是自动添加或修改了一个名称, 让当前行号保存在这个名称里, 比如选择了D4, 即令 ActiveRx=4(行号)

而这一行如果要高亮显示, 表中该单元格中有设条件格式, 当ActiveRx=ROW() 时, 改背景色为高亮.

本案原理就是利用条件格式达成目的.

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