Excel 的下拉菜单问题

锦晖

有效性里的公式怎么写啊

朱家晖

数据有效性.zip (8.18 KB, 下载次数: 122)

2021-11-3 08:49 上传

点击文件名下载附件
数据有效性.zip

循序渐进

1.zip (8.16 KB, 下载次数: 31)

2021-11-3 08:49 上传

点击文件名下载附件
1.zip

微风飘过

哥，E列我需要的下拉菜单是a3,a4,a6,a8,a9,都是B类的名称

老家尼山

哥，我连的是SQL server，数据都是变化的，所以公式不可以写死啊

文化浪人

哥，我连的是SQL server，数据是及时更新的，所以公式不能写死了

山西乐觉医疗器械有限公司

给你一个VBA版本的，点击这两个单元格，会自动下拉！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr
r = Target.Row: j = Target.Column
If j = 5 Then
  If r = 1 Then
  Set d1 = CreateObject("Scripting.Dictionary")
  arr = Sheets("Sheet1").UsedRange
    For i = 2 To UBound(arr)
      If arr(i, 2) = "A类" Then d1(arr(i, 1) & "") = ""
    Next
    With Range("e1").Validation
      .Delete
      .Add 3, 1, 1, Join(d1.keys, ",")
    End With
    CreateObject("Wscript.Shell").SendKeys "%{down}"
  ElseIf r = 2 Then
  Set d2 = CreateObject("Scripting.Dictionary")
  arr = Sheets("Sheet1").UsedRange
    For i = 2 To UBound(arr)
      If arr(i, 2) = "B类" Then d2(arr(i, 1) & "") = ""
    Next
    With Range("e2").Validation
      .Delete
      .Add 3, 1, 1, Join(d2.keys, ",")
    End With
    CreateObject("Wscript.Shell").SendKeys "%{down}"
  Else
  End If
End If
End Sub

数据有效性.zip (13.92 KB, 下载次数: 180)

2021-11-3 08:49 上传

点击文件名下载附件
数据有效性.zip