关于VBA窗体代码

xinqingox

我这边表格是改了又改，之前用函数公式，运算速度很慢，老师书用VBA好用，就慢慢改成VBA代码，现在又遇到新问题了

请各位老师帮忙写个窗体代码
第一，客户选择，客户选择框支持模糊输入，下拉框可以选择客户名称，输入到表格对应的客户名称里，同时地址栏也自动填写
第二，商品选择，这个要求有点多了，跟表格里的单据查询差不多，商品名称要根据客户名称的条件选择商品名称，同时支持模糊输入，下拉框选择商品名称，输入到表格对应的商品名称里，规格型号要求同上，数量为手动填写
客户名称、商品名称，规格型号来源于数据工作表
辛苦各位老师帮帮，万分感谢！

3190496160

客户名称和商品名称放到两个窗体中肯定是不合理的，放到一个窗体中就行

xinqingox

窗体根据老师的建议做了更改，放到一个窗体里了，要求是一样的，增加了数量，数量手动录入即可

xinqingox

3190496160 发表于 2023-2-20 14:13
客户名称和商品名称放到两个窗体中肯定是不合理的，放到一个窗体中就行

老师您看一下，您说是是这个意思吗，我做了更改

3190496160

Private Sub UserForm_Initialize()
Dim ar As Variant, cr As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("数据")
    rs = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b1:b" & rs)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(Trim(ar(i, 1))) = ""
    End If
Next i
Me.ComboBox3.List = d.keys
End Sub
Private Sub ComboBox3_Change()
If Me.ComboBox3 = "" Then Me.ComboBox3.List = Array(""): Exit Sub
Dim arr, i&, d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("数据")
    rs = .Cells(Rows.Count, 2).End(xlUp).Row
    arr = .Range("b1:c" & rs)
End With
For i = 2 To UBound(arr)
  If InStr(arr(i, 1), Me.ComboBox3) Then d(arr(i, 1)) = ""
Next i
Me.ComboBox3.List = d.keys
Me.ComboBox3.DropDown
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1 = "" Then Me.ComboBox1.List = Array(""): Exit Sub
Dim arr, i&, d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("数据")
    rs = .Cells(Rows.Count, 2).End(xlUp).Row
    arr = .Range("b1:c" & rs)
End With
For i = 2 To UBound(arr)
    If Trim(arr(i, 1)) = ComboBox3.Text Then
        If InStr(arr(i, 2), Me.ComboBox1) Then d(arr(i, 2)) = ""
    End If
Next i
Me.ComboBox1.List = d.keys
Me.ComboBox1.DropDown
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox2 = "" Then Me.ComboBox2.List = Array(""): Exit Sub
Dim arr, i&, d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("数据")
    rs = .Cells(Rows.Count, 2).End(xlUp).Row
    arr = .Range("b1:d" & rs)
End With
For i = 2 To UBound(arr)
    If Trim(arr(i, 1)) = ComboBox3.Text And Trim(arr(i, 2)) = ComboBox1.Text Then
        If InStr(arr(i, 3), Me.ComboBox2) Then d(arr(i, 3)) = ""
    End If
Next i
Me.ComboBox2.List = d.keys
Me.ComboBox2.DropDown
End Sub

3190496160

进销存.rar (76.65 KB, 下载次数: 10)

2023-2-21 08:40 上传

点击文件名下载附件

3190496160

代码仅供参考，只是为你提供一个解决问题的思路

xinqingox

3190496160 发表于 2023-2-21 08:40

谢谢老师的帮助，您之前就帮过我，谢谢您，老师，还有一个小问题，我不在到怎么解决，就是规格这下拉框能让前面输入完客户名称和商品名称后，规格下拉框里自动查找并显示内容，直接选择，因为对于的规格不是很多，也就3-4种左右，这样的话会更方便一些，麻烦老师在帮忙改一下可以吗，谢谢

3190496160

xinqingox 发表于 2023-2-21 10:00
谢谢老师的帮助，您之前就帮过我，谢谢您，老师，还有一个小问题，我不在到怎么解决，就是规格这下拉框能 ...

论坛是做义务的，所以，一开始就要把自己的真实意图表述清楚，没有人愿意在一个问题上反复折腾的，特别是没有任何技术提升的问题，除非是有偿

xinqingox

3190496160 发表于 2023-2-21 10:19
论坛是做义务的，所以，一开始就要把自己的真实意图表述清楚，没有人愿意在一个问题上反复折腾的，特别是 ...

我明白了老师，谢谢