求助，如何用vba给单元格设置数据有效性下拉列表

elaine1994

数据有效性

老骥705664849

就是一个二级菜单的问题，但是，求助务必上传附件才肯能得到别人的帮助

elaine1994

顶顶顶顶顶

fanyoulin

我说下思路：
1、根据第一个单元格，循环筛选出参数列表，中间用","分隔，格式如下：
     s="张三,李四,王五...."
2、给第二个单元格添加有效性，比如给a2添加：
     With Range("a2").Validation
       .Delete
       .Add 3, 1, 1, Formula1:=s
     End With

elaine1994

请大家帮忙看一下，怎么实现学院和专业的联动

elaine1994

fanyoulin 发表于 2020-6-22 16:38
我说下思路：
1、根据第一个单元格，循环筛选出参数列表，中间用","分隔，格式如下：
     s="张三,李四, ...

已上传附件

elaine1994

老骥705664849 发表于 2020-6-22 16:32
就是一个二级菜单的问题，但是，求助务必上传附件才肯能得到别人的帮助

已上传附件

elaine1994

顶顶顶顶顶

老骥705664849

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row = 9 And T.Column = 2 Then
    Set Rng = Sheets("数据").Columns(1).Find(T.Value, , , 1)
    If Not Rng Is Nothing Then
        r = Rng.Row
        ar = Sheets("数据").Range("b" & r & ":g" & r)
        For j = 1 To UBound(ar, 2)
            If Trim(ar(1, j)) <> "" Then
                If s = "" Then
                    s = ar(1, j)
                Else
                    s = s & "," & ar(1, j)
                End If
            End If
        Next j
         With Range("e9").Validation
       .Delete
       .Add 3, 1, 1, Formula1:=s
     End With
     T.Offset(, 2).Select
  End If
End If
End Sub

老骥705664849

1.rar (11.21 KB, 下载次数: 9)

2020-6-22 18:18 上传

点击文件名下载附件