-
讓品牌有溫度、有情感
專注品牌策劃15年
-
當前位置：首頁 > 創(chuàng)意學院 > 技術 > 專題列表 > 正文
下拉菜單怎么設置多選（下拉菜單怎么設置多選選項）
發(fā)布時間：2023-04-19 02:08:12
稿源：
創(chuàng)意嶺 閱讀：
83
大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關于下拉菜單怎么設置多選的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。
開始之前先推薦一個非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計劃、工作報告、論文、代碼、作文、做題和對話答疑等等
只需要輸入關鍵詞，就能返回你想要的內容，越精準，寫出的就越詳細，有微信小程序端、在線網頁版、PC客戶端
創(chuàng)意嶺作為行業(yè)內優(yōu)秀的企業(yè)，服務客戶遍布全球各地，如需了解SEO相關業(yè)務請撥打電話175-8598-2043，或添加微信：1454722008
本文目錄:
一、excel下拉框多選設置
第一步：新建一個excel且設置數據有效性【選中X列--數據--有效性】
第二步：開發(fā)工具--查看代碼--把代碼復制進去保存就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ī)定好哪一列的數據有效性是多選的，A列是第1列，依次類推，如3就是C列，7就是G列
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
If InStr(1, oldVal, newVal) <> 0 Then '重復選擇視同刪除
If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一個選項重復
Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)
Else
Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一個選項重復的時候處理逗號
End If
Else '不是重復選項就視同增加選項
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表格中的一個單元格中設置多選下拉框，可以勾選多個選項的那種？
單元格中設置多選下拉框是可以做到的
樓主沒有舉例說明具體需求，下面以選擇多個姓名為例，步驟如下：
先在【清單】表中列舉一個姓名列表
在【多選下拉菜單】表中設置多選下拉框，按Alt+F11鍵進入VBE編輯器，將如下兩段代碼粘貼到【多選下拉菜單】這個表的右側代碼區(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制作下拉菜單多選
制作一級菜單：
以選擇性別為例，制作有男、女選項的下拉菜單：
選中“性別”數據區(qū)域；
執(zhí)行“數據/有效性”命令，打開“數據有效性”對話框；
單擊“設置”選項卡，在“允許”欄選擇“序列”，“來源”中輸入“男，女”（不含引號，用英文單引號分隔）；
單擊“確定”按鈕。
“在下拉菜單中選擇一個值之后能同時在另一個單元格里對應出一個數值或是文字”，這要根據實際情況再加工的哦！
制作二級下拉菜單：
設置“數據”表
A列
B列
部門員工
A
張三
李四
B
王二
鄭大
C
劉一
王五
D
初一
趙錢
……
命名：
選中A列，在“名稱框”中輸入“部門”，回車確認。
選中B列，在“名稱框”中輸入“員工”，回車確認。
（名稱框位置：“名稱框”在標題欄、工具欄下方的空白域，就是當你的鼠標放在任一單元格時，在表格的上方一欄都會顯示“A-Z多少列”空白區(qū)，當你的鼠標放在指向上面時，就會顯示“名稱框”。
）
在“菜單”表制作下拉菜單：
制作一級下拉菜單
選中A1：B1單元格區(qū)域；
執(zhí)行“數據/有效性”命令，打開“數據有效性”對話框；
在“設置”選項卡下，“允許”選擇“序列”、“來源”中輸入“部門，員工”（不含引號，用英文逗號分隔）；
選中“忽略空值”、“提供下拉箭頭”，單擊“確定”按鈕，完成一級下拉菜單制作。
此時在A1、B1中，單擊右側的下拉按鈕進行選擇輸入。
制作二級下拉菜單
從A2單元格起向下選中單元格區(qū)域；
執(zhí)行“數據/有效性”命令，打開“數據有效性”對話框；
在“設置”中，“允許”選擇“序列”、“來源”中輸入公式“=INDIRECT(A$1)”；
(注：OFFICE2007與以前的版本不一樣)
選中“忽略空值”、“提供下拉箭頭”，單擊“確定”按鈕，完成“部門”的二級菜單制作。
同法制作“員工”的二級菜單。此時“來源”中輸入公式“=INDIRECT(B$1)”。
此時在部門、員工下面的單元格中，單擊右側的下拉按鈕進行“部門”、“員工”的選擇輸入。
我剛試了只能實現一級下拉菜單，不能實現二級菜單
四、如何在excel表格中設置多選下拉菜單
設置單元格“數據有效性”
1、選中要設置下拉列表的單元格。
2、選中數據菜單
3、2003版選擇“有效性”，2010版選擇“數據有效性。
4、出現”數據有效性“選項卡
以上就是關于下拉菜單怎么設置多選相關問題的回答。希望能幫到你，如有更多相關問題，您也可以聯系我們的客服進行咨詢，客服也會為您講解更多精彩的知識和內容。
推薦閱讀：
華為手機下拉菜單怎么設置不了了（華為手機下拉菜單怎么設置不了了呀）
贛公網安備 50019002502384號
