求大神帮忙看下代码，销售出库提取单价不成功

xt100 · 发表于 2024-1-27 19:03

在网上找到一个EXCEL版进销存管理系统，因为同产品所对应的客户价格不同，自己瞎整加入了报价板块。想法是出库录入时可以根据收货单位（客户名称）、商品编号、颜色三个选项内容在报价汇总中提取所对应的单价。

xt100 · 发表于 2024-1-27 19:32

VBA工程密码是123

ykcbf1100 · 发表于 2024-1-27 20:38

用字典就可以了。
我个人感觉，颜色作为条件的话，不是太好，因为颜色对应的值很多，不太好界定。

xt100 · 发表于 2024-1-27 20:53

ykcbf1100 发表于 2024-1-27 20:38
用字典就可以了。
我个人感觉，颜色作为条件的话，不是太好，因为颜色对应的值很多，不太好界定。

ykcbf1100 · 发表于 2024-1-27 20:54

xt100 发表于 2024-1-27 20:53

颜色是文字啊，那应该没啥问题。

3190496160 · 发表于 2024-1-27 20:56

进销存管理表格.rar (473.63 KB, 下载次数: 23)

3190496160 · 发表于 2024-1-27 20:58

录入编号或者颜色自动匹配单价，仅供参考

xt100 · 发表于 2024-1-27 21:09

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

      Dim cs As Long
      Dim x, y, sh

      Set sh = ActiveSheet
      x = ActiveCell.Row
      y = ActiveCell.Column
      cs = ListBox1.ListIndex
      If cs <= 0 Then Exit Sub

         Cells(x, "B") = CStr(ListBox1.List(ListBox1.ListIndex, 0))
         Cells(x, "C") = CStr(ListBox1.List(ListBox1.ListIndex, 1))
         Cells(x, "D") = CStr(ListBox1.List(ListBox1.ListIndex, 2))
         Cells(x, "J") = CStr(ListBox1.List(ListBox1.ListIndex, 3))


If Not Range("C3") Is Nothing Then
      Chu = Replace(Cells(x, "B"), " ", "")
      s = Range("C3") & "," & Chu & "," & Cells(x, "I")
      Cells(x, "G") = 产品售价查询(s)
End If




         ActiveCell.Offset(1, 0).Select


End Sub

xt100 · 发表于 2024-1-27 21:10

3190496160 发表于 2024-1-27 20:56

感谢大神，向你学习

xt100 · 发表于 2024-1-27 21:18

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

[求助] 求大神帮忙看下代码，销售出库提取单价不成功

评分