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

ccjm

１、设好产品类型，单据录入后，为何不能生成库存表？在单据录入时，经常出现编译错误：找不到工程或库 End If Set rng变更的编号 = Nothing End With End Sub Private Sub Worksheet_Deactivate() Application.CommandBars("Cell").Reset End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, r As Integer, C As Integer On Error Resume Next Calendar1.Visible = False ': ComboBox1.Visible = False GetSeletionRowAndColumn ' 将行号列标输入 A1,B1 Set rng = Target.Cells(1, 1) r = rng.Row: C = rng.Column If rng.Address = Range("IN_日期").Address Then Calendar1.Visible = True If r >= 9 And r <= 15 And C = 5 Then 'AdjCombo_Brand End If If CStr(ActiveCell) = "" And r >= 9 And r <= 15 And (C = 6 Or C = 5) Then Application.SendKeys "%{DOWN}" End If End Sub Sub AdjCombo_Brand() With ComboBox1 .Height = ActiveCell.Height + 2 .Width = ActiveCell.Width + 2 .Left = ActiveCell.Left .Top = ActiveCell.Top .ListRows = 30 .ListFillRange = "DT_品牌列表" .LinkedCell = ActiveCell.Address .Visible = True End With End Sub 2、库存一览表中的品牌名称等文字如何删除添加新的内容？

ccjm

楼上说的那种情况出现编译错误，怎样改正？

ccjm

我一点单据录入的编码，就出现下面这种情况：（我没改动库存分布） 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 = ""'备注 Next End If Set rng变更的编号 = Nothing End With End Sub Private Sub Worksheet_Deactivate() Application.CommandBars("Cell").Reset End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, r As Integer, C As Integer On Error Resume Next Calendar1.Visible = False ': ComboBox1.Visible = False GetSeletionRowAndColumn ' 将行号列标输入 A1,B1 Set rng = Target.Cells(1, 1) r = rng.Row: C = rng.Column If rng.Address = Range("IN_日期").Address Then Calendar1.Visible = True If r >= 9 And r <= 15 And C = 5 Then 'AdjCombo_Brand End If If CStr(ActiveCell) = "" And r >= 9 And r <= 15 And (C = 6 Or C = 5) Then Application.SendKeys "%{DOWN}" End If End Sub Sub AdjCombo_Brand() With ComboBox1 .Height = ActiveCell.Height + 2 .Width = ActiveCell.Width + 2 .Left = ActiveCell.Left .Top = ActiveCell.Top .ListRows = 30 .ListFillRange = "DT_品牌列表" .LinkedCell = ActiveCell.Address .Visible = True End With End Sub

ccjm

录入单据后，怎不自动生成库存一览表和库存清单？

Rowen

看一下工具>>引用, 有无 Microsoft Calendar Control 11.0

要么就取消 单据录入 中的日历控件.

ccjm

1、工具下的“引用”是泛白的，怎样删除日历控件？ 2、怎样生成库存一览表和变动表？ 3、产品型录中能删除本期入这列吗？ 4、期初数怎样录入？

Rowen

这是ＯＦＦＩＣＣＥ11的日历控件： JEzeeZob.rar (49.05 KB, 下载次数: 74)

2006-5-12 18:40 上传

点击文件名下载附件
一个库存管理的示例,目标是方便录入,分仓查询.

解压缩后复制到适当位置，比如复制到...:\Program Files\Microsoft Office 2003\OFFICE11 中 然后再工具>>引用>>浏览>>加载之

Rowen

产品型录中的现有数据你可以消除, 但不要增加或删除列, 不要的你可以更名或隐藏之.

期初数录在产品型录的期初库存里

库存一览表和变动表是录入时自动自动生成的, 可参考Private Sub cmdSave_Click()过程以观查之. (按F8键可一步步地跟踪其运行过程)

ccjm

H列期初库存是金额的，那期初库存数量输到那里呢？怎样设置？

Rowen

产品型录表的 J 列.