Excel 的下拉菜单问题

逆转瀏曐

b列排下序然后用offset+match+countif

哚儿

有效性里的公式怎么写啊

财经小白

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

2021-11-3 08:49 上传

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

淡漠安然平淡一生

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

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, 下载次数: 14)

2021-11-3 08:49 上传

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

体育爱好者

不是公式是数据有效性这个菜单里面

生出来就没打算活着回去

b列排下序然后用offset+match+countif