脾气很差 发表于 2021-11-3 08:49:00

Excel 的下拉菜单问题

求助各位大佬，这个下拉的公式怎么写？

小阿锋 发表于 2021-11-13 11:31:28

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

夜落兮 发表于 2021-11-14 17:19:29

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

王的国度 发表于 2021-11-18 02:08:42

有效性里的公式怎么写啊

群星认为你们还有所欠缺 发表于 2021-11-19 02:29:22


红鹤 发表于 2021-11-22 10:08:20

会过去的 发表于 2021-11-26 05:35:38

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

夫妻用性养生 发表于 2021-11-26 19:09:58

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

热血长安 发表于 2021-11-28 20:20:23

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

这只是个昵称 发表于 2021-11-29 00:21:40

给你一个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

页: [1] 2 3
查看完整版本: Excel 的下拉菜单问题