二级联动下拉菜单

Jessie_mao · 发表于 2021-5-31 15:01

各位大师，我知道论坛有很多此类案例了，但是我大部分点开看了，发现不是我想要的，而且我不太懂VBA，所以想问是否用公式能实现
如附件所示，“商品信息”列表是随时更新的，而且品名会有重复，型号是唯一的，对应“进项录入”表，我想做到，下拉选择品名后，可以再下拉选择对应的规格型号，而且随着“商品信息”里产品增加，“进项录入”里的产品+型号也会相应更新

3190496160 · 发表于 2021-5-31 15:23

vba文本框控件+列表框控件来做，最合适

Jessie_mao · 发表于 2021-5-31 15:48

3190496160 发表于 2021-5-31 15:23
vba文本框控件+列表框控件来做，最合适

可惜VBA我连门还没找到

lingshimizi · 发表于 2021-5-31 16:49

看看这个如何

lingshimizi · 发表于 2021-5-31 16:56

lingshimizi 发表于 2021-5-31 16:49
看看这个如何

=OFFSET(Sheet1!$A$1,,,MATCH(" ",Sheet1!$A:$A,-1),1)
E列数据验证里面也可以填这个公式，就不用每次都设置了
其他和那个公式同理

lingshimizi · 发表于 2021-5-31 16:57

lingshimizi 发表于 2021-5-31 16:56
=OFFSET(Sheet1!$A$1,,,MATCH(" ",Sheet1!$A:$A,-1),1)
E列数据验证里面也可以填这个公式，就不用每次都 ...

用这个记得把下面的说明删了或者挪到其他地方

Jessie_mao · 发表于 2021-5-31 17:46

lingshimizi 发表于 2021-5-31 16:57
用这个记得把下面的说明删了或者挪到其他地方

非常非常感谢，公式我看明白了，只是对于其他操作同事来说，这个有些负责，需要维护一个新的表格，才能实现，不过还是非常感谢

3190496160 · 发表于 2021-5-31 18:51

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 5 Then
If T.Count > 1 Then Exit Sub
If T.Value = "" Then Exit Sub
Dim d As Object
Dim ar As Variant
Set d = CreateObject("scripting.dictionary")
ar = Sheets("商品信息").[a1].CurrentRegion
For i = 2 To UBound(ar)
      If Trim(ar(i, 1)) = Trim(T.Value) Then
         d(Trim(ar(i, 2))) = ""
      End If
Next i
T.Offset(, 1).Select
With Selection.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(d.keys, ",") '"=$P$2:$P$10"
End With
Set d = Nothing
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 1 And T.Column = 5 Then
If T.Count > 1 Then Exit Sub
Dim d As Object
Dim ar As Variant
Set d = CreateObject("scripting.dictionary")
ar = Sheets("商品信息").[a1].CurrentRegion
For i = 2 To UBound(ar)
      If Trim(ar(i, 1)) <> "" Then
         d(Trim(ar(i, 1))) = ""
      End If
Next i
T.Select
With Selection.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(d.keys, ",") '"=$P$2:$P$10"
End With
Set d = Nothing
End If
End Sub

3190496160 · 发表于 2021-5-31 18:52

二级联动下拉菜单.rar (43.07 KB, 下载次数: 20)

3190496160 · 发表于 2021-5-31 18:53

很奇怪，vba你说不动，别人给你公式了，你说其他同事用不了，那到底需要啥呢？？？？

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

[求助] 二级联动下拉菜单