下拉菜單怎么設(shè)置多選（下拉菜單怎么設(shè)置多選選項(xiàng)）

大家好！今天讓創(chuàng)意嶺的小編來(lái)大家介紹下關(guān)于下拉菜單怎么設(shè)置多選的問(wèn)題，以下是小編對(duì)此問(wèn)題的歸納整理，讓我們一起來(lái)看看吧。

開(kāi)始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話(huà)答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，越精準(zhǔn)，寫(xiě)出的就越詳細(xì)，有微信小程序端、在線(xiàn)網(wǎng)頁(yè)版、PC客戶(hù)端

官網(wǎng)：https://ai.de1919.com。

創(chuàng)意嶺作為行業(yè)內(nèi)優(yōu)秀的企業(yè)，服務(wù)客戶(hù)遍布全球各地，如需了解SEO相關(guān)業(yè)務(wù)請(qǐng)撥打電話(huà)175-8598-2043，或添加微信：1454722008

本文目錄:

• 1、excel下拉框多選設(shè)置

• 2、怎么在Excel表格中的一個(gè)單元格中設(shè)置多選下拉框，可以勾選多個(gè)選項(xiàng)的那種？

• 3、excel制作下拉菜單多選

• 4、如何在excel表格中設(shè)置多選下拉菜單

一、excel下拉框多選設(shè)置

第一步：新建一個(gè)excel且設(shè)置數(shù)據(jù)有效性【選中X列--數(shù)據(jù)--有效性】

第二步：開(kāi)發(fā)工具--查看代碼--把代碼復(fù)制進(jìn)去保存就OK了

代碼如下：

Private Sub Worksheet_Change(ByVal Target As Range)

' Developed by Contextures Inc.

' www.contextures.com

Dim rngDV As Range

Dim oldVal As String

Dim newVal As String

If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next

Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)

On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then

'do nothing

Else

Application.EnableEvents = False

newVal = Target.Value

Application.Undo

oldVal = Target.Value

Target.Value = newVal

If Target.Column = 7 Then '這里規(guī)定好哪一列的數(shù)據(jù)有效性是多選的，A列是第1列，依次類(lèi)推，如3就是C列，7就是G列

If oldVal = "" Then

'do nothing

Else

If newVal = "" Then

'do nothing

Else

If InStr(1, oldVal, newVal) <> 0 Then '重復(fù)選擇視同刪除

If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一個(gè)選項(xiàng)重復(fù)

Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)

Else

Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一個(gè)選項(xiàng)重復(fù)的時(shí)候處理逗號(hào)

End If

Else '不是重復(fù)選項(xiàng)就視同增加選項(xiàng)

Target.Value = oldVal & "," & newVal

' NOTE: you can use a line break,

' instead of a comma

' Target.Value = oldVal _

' & Chr(10) & newVal

End If

End If

End If

End If

End If

exitHandler:

Application.EnableEvents = True

End Sub

二、怎么在Excel表格中的一個(gè)單元格中設(shè)置多選下拉框，可以勾選多個(gè)選項(xiàng)的那種？

單元格中設(shè)置多選下拉框是可以做到的

樓主沒(méi)有舉例說(shuō)明具體需求，下面以選擇多個(gè)姓名為例，步驟如下：

先在【清單】表中列舉一個(gè)姓名列表

在【多選下拉菜單】表中設(shè)置多選下拉框，按Alt+F11鍵進(jìn)入VBE編輯器，將如下兩段代碼粘貼到【多選下拉菜單】這個(gè)表的右側(cè)代碼區(qū)

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

  If KeyCode = 13 Then

  If ListBox1.ListIndex = -1 Then Exit Sub

  Dim i&, str$

  With ListBox1

      For i = 0 To .ListCount - 1

          If .Selected(i) Then

              str = str & ";" & .List(i)

          End If

      Next

      .TopLeftCell.Offset(, -1).Value = Mid(str, 2)

      .Visible = False

  End With

  End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Count > 1 Then Exit Sub

  If Target.Row > 2 And Target.Column = 2 Then

      Dim arr

      arr = Sheets("清單").Cells(2, 1).Resize(Sheets("清單").Cells(Rows.Count, 1).End(xlUp).Row - 1)

      With ListBox1

          .MultiSelect = 1

          .ListStyle = 1

          .List = arr

          .Top = Target.Top

          .Left = Target.Left + Target.Width

          .Height = Target.Height * 15

          .Width = 90

          .Visible = True

      End With

  Else

      ListBox1.Clear

      ListBox1.Visible = False

  End If

End Sub

最終效果如圖：

注意：檔案要保存為啟用宏的工作簿

三、excel制作下拉菜單多選

制作一級(jí)菜單：

以選擇性別為例，制作有男、女選項(xiàng)的下拉菜單：

選中“性別”數(shù)據(jù)區(qū)域；

執(zhí)行“數(shù)據(jù)/有效性”命令，打開(kāi)“數(shù)據(jù)有效性”對(duì)話(huà)框；

單擊“設(shè)置”選項(xiàng)卡，在“允許”欄選擇“序列”，“來(lái)源”中輸入“男，女”（不含引號(hào)，用英文單引號(hào)分隔）；

單擊“確定”按鈕。

“在下拉菜單中選擇一個(gè)值之后能同時(shí)在另一個(gè)單元格里對(duì)應(yīng)出一個(gè)數(shù)值或是文字”，這要根據(jù)實(shí)際情況再加工的哦！

制作二級(jí)下拉菜單：

設(shè)置“數(shù)據(jù)”表

A列

B列

部門(mén)員工

A

張三

李四

B

王二

鄭大

C

劉一

王五

D

初一

趙錢(qián)

……

命名：

選中A列，在“名稱(chēng)框”中輸入“部門(mén)”，回車(chē)確認(rèn)。

選中B列，在“名稱(chēng)框”中輸入“員工”，回車(chē)確認(rèn)。

（名稱(chēng)框位置：“名稱(chēng)框”在標(biāo)題欄、工具欄下方的空白域，就是當(dāng)你的鼠標(biāo)放在任一單元格時(shí)，在表格的上方一欄都會(huì)顯示“A-Z多少列”空白區(qū)，當(dāng)你的鼠標(biāo)放在指向上面時(shí)，就會(huì)顯示“名稱(chēng)框”。

）

在“菜單”表制作下拉菜單：

制作一級(jí)下拉菜單

選中A1：B1單元格區(qū)域；

執(zhí)行“數(shù)據(jù)/有效性”命令，打開(kāi)“數(shù)據(jù)有效性”對(duì)話(huà)框；

在“設(shè)置”選項(xiàng)卡下，“允許”選擇“序列”、“來(lái)源”中輸入“部門(mén)，員工”（不含引號(hào)，用英文逗號(hào)分隔）；

選中“忽略空值”、“提供下拉箭頭”，單擊“確定”按鈕，完成一級(jí)下拉菜單制作。

此時(shí)在A1、B1中，單擊右側(cè)的下拉按鈕進(jìn)行選擇輸入。

制作二級(jí)下拉菜單

從A2單元格起向下選中單元格區(qū)域；

執(zhí)行“數(shù)據(jù)/有效性”命令，打開(kāi)“數(shù)據(jù)有效性”對(duì)話(huà)框；

在“設(shè)置”中，“允許”選擇“序列”、“來(lái)源”中輸入公式“=INDIRECT(A$1)”；

(注：OFFICE2007與以前的版本不一樣)

選中“忽略空值”、“提供下拉箭頭”，單擊“確定”按鈕，完成“部門(mén)”的二級(jí)菜單制作。

同法制作“員工”的二級(jí)菜單。此時(shí)“來(lái)源”中輸入公式“=INDIRECT(B$1)”。

此時(shí)在部門(mén)、員工下面的單元格中，單擊右側(cè)的下拉按鈕進(jìn)行“部門(mén)”、“員工”的選擇輸入。

我剛試了只能實(shí)現(xiàn)一級(jí)下拉菜單，不能實(shí)現(xiàn)二級(jí)菜單

四、如何在excel表格中設(shè)置多選下拉菜單

設(shè)置單元格“數(shù)據(jù)有效性”

1、選中要設(shè)置下拉列表的單元格。

2、選中數(shù)據(jù)菜單

3、2003版選擇“有效性”，2010版選擇“數(shù)據(jù)有效性。

4、出現(xiàn)”數(shù)據(jù)有效性“選項(xiàng)卡

以上就是關(guān)于下拉菜單怎么設(shè)置多選相關(guān)問(wèn)題的回答。希望能幫到你，如有更多相關(guān)問(wèn)題，您也可以聯(lián)系我們的客服進(jìn)行咨詢(xún)，客服也會(huì)為您講解更多精彩的知識(shí)和內(nèi)容。

推薦閱讀：

華為手機(jī)下拉菜單怎么設(shè)置不了了（華為手機(jī)下拉菜單怎么設(shè)置不了了呀）

如何制作下拉列表選項(xiàng)（制作下拉列表使用什么操作）

西安餐飲品牌設(shè)計(jì)10金平x果下拉

太原植物園景觀設(shè)計(jì)招聘

無(wú)貨源下單軟件（無(wú)貨源下單軟件有哪些）