原创、修改、并装的系统终于完成

zhuquanmao · 发表于 2013-3-12 00:44

感谢楼主分享非常好学习中感激！

科晟精密 · 发表于 2013-3-25 19:25

Private Sub 入库_Click()
  If 项目.Value = "" Then Exit Sub
   Dim a As Range
   Set a = Sheets("产品库存").Cells.Find(项目)
      If Not a Is Nothing Then
      MsgBox "已存在该项目记录"
      Exit Sub
      End If
   If 数量.Value = "" Then
      MsgBox "请输入数量"
      Exit Sub
End If
      If 日期.Value = "" Then
      MsgBox "请输入登记日期"
      Exit Sub
End If
On Error Resume Next
   Dim x As Integer, y As Integer
   Dim mrng As Range
      With Sheets("产品库存")
         y = .Range("a65536").End(xlUp).Row + 1
         For x = 1 To Me.Controls.Count
         Set mrng = .Cells.Find(Me.Controls(x).Name)
         .Cells(y, mrng.Column) = Me.Controls(x).Text
      Next x
   End With
MsgBox "添加成功", 64
Set mrng = Nothing
清空所有内容
End Sub

这段代码有问题需要求助：
比例：原先有一个项目名称：M27 有一个新项目：M2 需要入库时就是会提示已有该项目是怎么事。求高手解答一下，谢谢！

科晟精密 · 发表于 2013-3-25 20:10

问题解决了，
Set a = Sheets("产品库存").Cells.Find(项目，lookin:=xlwhole)
增加一个精确查找就可以了

excel333 · 发表于 2013-3-25 20:27

科晟精密发表于 2013-3-1 00:18
下的人有那么多了，没有建议吗

打开时总是提示遇到错误，无法打开！

科晟精密 · 发表于 2013-4-9 22:44

能不能把错误的提示发上来看一下

科晟精密 · 发表于 2013-5-8 21:27

本帖最后由科晟精密于 2013-5-8 21:32 编辑

本系统更新版2013-5-8

科晟系统1.01.part04.rar (338.27 KB, 下载次数: 344)

科晟系统1.01.part03.rar (340 KB, 下载次数: 204)

科晟系统1.01.part02.rar (340 KB, 下载次数: 192)

科晟系统1.01.part01.rar (340 KB, 下载次数: 220)
新增：
1.01。在生产计划表输入项目名称自动增加“实际生产数量”“剩余”等需要用到的公式
1.02。新增在生产计划表输入项目增加出货地址、联系人、电话，
1.03。新增在生产计划表输入项目提示该项目是否有品质异常。
1.04. 新增出货时间到了提前一天该项目行会自动变色
1.05。新增“剩余”栏数量为0时该项目行会自动变成灰色

科晟精密 · 发表于 2013-5-8 21:34

excel333 发表于 2013-3-25 20:27
打开时总是提示遇到错误，无法打开！

能否将错误的提示发上来看一下

科晟精密 · 发表于 2013-5-8 21:45

望高手能帮忙优化生产计表内的代码

日前

科晟系统1.01.part04.rar (338.27 KB, 下载次数: 120)

科晟系统1.01.part03.rar (340 KB, 下载次数: 99)

科晟系统1.01.part02.rar (340 KB, 下载次数: 86)

科晟系统1.01.part01.rar (340 KB, 下载次数: 95)

新增：
1.01。在生产计划表输入项目名称自动增加“实际生产数量”“剩余”等需要用到的公式
1.02。新增在生产计划表输入项目增加出货地址、联系人、电话，
1.03。新增在生产计划表输入项目提示该项目是否有品质异常。
1.04. 新增出货时间到了提前一天该项目行会自动变色
1.05。新增“剩余”栏数量为0时该项目行会自动变成灰色

科晟精密 · 发表于 2013-5-9 13:20

自己顶起来。。。望高手們都帮忙看看优化一下

lxmgdsdxt · 发表于 2013-5-11 10:37

科晟精密发表于 2013-3-25 20:10
问题解决了，
Set a = Sheets("产品库存").Cells.Find(项目，lookin:=xlwhole)
增加一个精确查找就可以了 ...

你好，你那些连接按钮是怎么弄的，按一下就能跳到那一页，，是怎么弄的，可以教我吗？

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

[分享] 原创、修改、并装的系统终于完成