锦晖 发表于 2022-1-4 17:36:09

有效性里的公式怎么写啊

朱家晖 发表于 2022-1-8 18:41:29


循序渐进 发表于 2022-1-12 04:27:11

微风飘过 发表于 2022-1-21 20:33:08

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

老家尼山 发表于 2022-1-22 11:20:11

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

文化浪人 发表于 2022-1-26 06:00:33

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

山西乐觉医疗器械有限公司 发表于 2022-1-28 05:43:28

给你一个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 的下拉菜单问题