如何输入关键字筛选二级下拉菜单

默默+1

下拉菜单选择部门后，再用下拉菜单选择相应部门的项目，但是由于项目太多，希望能输入关键字筛选出只含该关键字的项目下拉菜单，应该怎么做呢？

supermouse24

在单据那里添加以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dep As String

    With Target
        Pub_Row = .Row
        Pub_Col = .Column
        If .Count > 1 Then Exit Sub
        If Pub_Row = 2 And Pub_Col = 2 Then
            dep = Cells(Target.Row, Target.Column).Value
            dep = "=" & dep & "项目"
            With Cells(3, 2).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:=dep
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .IMEMode = xlIMEModeNoControl
                .ShowInput = True
                .ShowError = True
            End With
            
        End If
    End With


End Sub

supermouse24

其实 ，真正生效的是这一句：
            With Cells(3, 2).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:=dep
            End With
其他参数都没啥用。不过是录制出来的，就没删。

默默+1

supermouse24 发表于 2023-1-6 14:07
在单据那里添加以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dep As String ...

这个文件在项目名称那里无法输入关键字啊。。。

supermouse24

你意思是还要在选项中更改项目名称吗？
例如选了“项目13”后，要把他改为“项目13-XX”？
那样就在  With Cells(3, 2).Validation  下面加多一行代码：
.ShowError = True

蓝桥玄霜

下拉菜单的例子：

洋务德雷

以前给别人做过一个类似的，你看一下借鉴一下吧。这种类型比较多，大多都一样的。

默默+1

supermouse24 发表于 2023-1-6 15:30
你意思是还要在选项中更改项目名称吗？
例如选了“项目13”后，要把他改为“项目13-XX”？
那样就在  Wit ...

不是的，我选择了部门后，在项目名称那个单元格里输入关键字，再点右下角小三角想选择下拉菜单的时候提示我“输入值非法。。。”

默默+1

蓝桥玄霜 发表于 2023-1-6 18:18
下拉菜单的例子：

这个是不是选择部门以后一定要先选择项目？我选择部门以后出现了文本框，如果不理它先去点选人员，再回到项目名称这里就不能输入下拉了。。。

默默+1

洋务德雷 发表于 2023-1-6 21:08
以前给别人做过一个类似的，你看一下借鉴一下吧。这种类型比较多，大多都一样的。

数据库或者说基础数据怎么做啊。。。我几乎是完全不懂vba的，不知道怎么抄这个。。。