仓库出入库进销存系统——简单易懂

52pp · 发表于 2020-1-10 15:34

工程密码是小写的，多谢大神。

5460545 · 发表于 2020-2-3 15:27

wangzuxiang2001 发表于 2019-12-4 13:42
老师门，如附件所示，“出库单”是的K列-领料人，在生成出库单后，无法跑到“出库明细”的L列中，仅显示首 ...

你好，你修改的进销存程序我看了，但是有一点不是很明白，双击弹出的下拉表格的样式只有单行显示，怎么设置，谢谢

5460545 · 发表于 2020-2-3 15:29

你好，你修改的进销存程序我看了，但是有一点不是很明白，双击弹出的下拉表格的样式只有单行显示，怎么设置，谢谢

断魂一殇 · 发表于 2020-2-16 18:51

不错，学习了，感谢分享

zhangyx749 · 发表于 2020-3-4 14:43

本帖最后由 zhangyx749 于 2020-3-4 14:45 编辑

！@#￥%……&*（）！@#￥%……&*()
唉，密码就没对过

dhtxiang · 发表于 2020-3-23 16:30

本帖最后由 dhtxiang 于 2020-3-23 16:34 编辑

Win10系统，excel2010，单击系统初始化时提示：以下隐藏模块存在编译错误：NewMacros。这是什么问题呀

dhtxiang · 发表于 2020-3-24 08:47

Win10系统，excel2010，单击系统初始化时提示：以下隐藏模块存在编译错误：NewMacros。这是什么问题呀

yiye6900345 · 发表于 2020-3-24 10:39

进销存软件！！！！！！！！

武松打鼓 · 发表于 2020-4-6 12:35

双击出库单的空白行提示编译错误找不到工程或库呢？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)------这个地方变黄体
  On Error Resume Next '忽略错误值
If Target.Column = 3 Then
      If Target.Row < 18 And Target.Row > 5 Then
         If Me.ListBox1.Visible = True Then
            Me.ListBox1.Visible = False
         Else
            '清空原来数据，重新赋值
            Me.ListBox1.Clear
            With Sheet1
                  For x = 2 To .Range("A65300").End(3).Row
                     Me.ListBox1.AddItem
                     Me.ListBox1.List(x - 2, 0) = .Cells(x, "A") '
                     Me.ListBox1.List(x - 2, 1) = .Cells(x, "B") '
                     Me.ListBox1.List(x - 2, 2) = .Cells(x, "C")
                     Me.ListBox1.List(x - 2, 3) = .Cells(x, "E")
                     Me.ListBox1.List(x - 2, 4) = .Cells(x, "F")
                     ListBox1.ColumnWidths = 50 & ";" & 100 & ";" & 200
                     yscmhs = .Range("A65300").End(3).Row - 2
                  Next
            End With
            Me.ListBox1.Visible = True
         End If
         If Me.TextBox1.Visible = True Then
            Me.TextBox1.Visible = False
         Else
            Me.TextBox1.Visible = True
            Me.TextBox1 = Cells(Selection.Row, 3)
            Me.TextBox1.Activate

         End If
      End If
End If

End Sub

amus · 发表于 2020-4-13 22:56

工程密码没对过，

有试出来的发布一下

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

[原创] 仓库出入库进销存系统——简单易懂