最近在恢复小伙伴问题的时分，发现大师还是不自豪于简便的单选下拉菜单了，有小伙伴提议奈何制作多选下拉菜单，这是个极好的问题啊，今天就来赞理答疑解惑。

图片色妹妹成人网色妹妹成人网

如上图所示，兴味疼爱一列不错汲取多个选项，而况汲取后自动填入单位格，每个选项之间用分号自动分隔，汲取单位格时右侧自动掸出下拉菜单。要收尾这个后果，当然不是简便的Excel界面操作就能完成的，需要使用到控件和VBA代码。不外别纪念，代码准备好了，只须大师按照措施操作，准保不错收尾。一、插入列表框汲取【开发器具】选项卡，点击【插入】，汲取列表框，具体操作参见动图演示：

图片

二、复制粘贴代码责任表标签右击鼠标，汲取检讨代码，粘贴底下的代码。具体操作参见动图演示：

图片

代码如下：

Private Sub ListBox1_Change()

    If Reload Then Exit Sub

    For i = 0 To ListBox1.ListCount - 1

        If ListBox1.Selected(i) = True Then t = t & "；" & Trim(ListBox1.List(i))

    Next

麻豆 苏畅

    ActiveCell = Mid(t， 2)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With ListBox1

        If ActiveCell.EntireRow.Range("a1") <> "" And ActiveCell.Column = 5 And ActiveCell.Row > 1 Then

            t = ActiveCell.Value色妹妹成人网

            Reload = True

            For i = 0 To .ListCount - 1

                If InStr(t， .List(i)) Then

                    .Selected(i) = True

                Else

                    .Selected(i) = False

                End If

            Next

            Reload = False

            .MultiSelect = fmMultiSelectMulti

            .ListStyle = fmListStyleOption

            .ListFillRange = "sheet2!a2:a" & Sheet2.Cells(1， 1).End(xlDown).Row

            .Top = ActiveCell.Offset(0， 1).Top

            .Left = ActiveCell.Offset(0， 1).Left

            .Width = ActiveCell.Width

            .Height = ActiveCell.Height * 6

            .Visible = True

        Else

            .Visible = False

        End If

    End With

End Sub

三、测试运转点击【开发器具】选项卡，取消盘算款式，尝试一下菜单是否不错频频暴露。

图片

四、代码调度这里的菜单运用在Sheet1责任表中的E列，其它列点击鼠标是莫得这个后果的。而况菜单列表抛弃在另外一个责任表Sheet2的A列。

图片

如若大师的责任表称号和诸君置与案例不一致，就需要对代码作念微调，调度措施如下：

图片

① IF 语句需要自豪三个条目。第一个是行径单位格场地行的第一个单位格不为空，第二个是行径单位格场地列为第五列，第三个条目是行径单位格场地的行大于1，惟有这三个条目同期自豪智商运用下拉菜单。如若大师下拉菜单运用的位置和案例不同，需要进行相应的调度。② 这里用来开发下拉菜单的数据源。责任表2的a2单位格到终末一个非空单位格，如若你的责任表不是sheet2，数据源的范畴也不同，亦然要作念相应调度的。 本站仅提供存储行状，通盘实质均由用户发布，如发现存害或侵权实质，请点击举报。