excel軟件是專門用來編輯表格文件的軟件，其中強(qiáng)大且實用的功能為用戶減少了許多重復(fù)的操作過程，讓用戶能夠加速完成表格數(shù)據(jù)的錄入，為自己帶來了許多的便利，因此excel軟件成為了大部分用戶編輯表格文件的必備軟件，用戶在編輯表格文件時，有時需要制作出下拉選項來給受眾選擇填寫，針對下拉選項，有時受眾需要選擇多個選項，應(yīng)該怎么來操作實現(xiàn)呢，其實這個問題是很好解決，用戶簡單的在編輯器上輸入相關(guān)代碼即可解決問題，那么接下來就讓小編來向大家分享一下excel設(shè)置下拉選項可以多選的的方法教程吧，希望用戶在看了教程后，能夠從中獲取到有用的經(jīng)驗。

方法步驟

　　1.首先在電腦桌面上打開excel軟件，并進(jìn)入到表格的編輯頁面上來進(jìn)行設(shè)置

　　2.在頁面上方的菜單欄中點擊數(shù)據(jù)選項，將會顯示出相關(guān)的選項卡，用戶選擇其中的數(shù)據(jù)有效性圖標(biāo)

　　3.進(jìn)入到數(shù)據(jù)有效性窗口中，用戶在允許的下拉選項卡中點擊序列選項

　　4.可以看到下方顯示出來的來源方框，用戶直接在方框中輸入多個選項并按下確定按鈕

　　5.設(shè)置完成后，用戶回到編輯頁面上，就可以看到選中的單元格上帶有下拉箭頭，即為下拉選項

　　6.這時用戶鼠標(biāo)右鍵點擊頁面底部的含有下拉選項的工作表，在彈出來的右鍵菜單中點擊查看代碼選項

　　7.進(jìn)入到編輯器窗口中，用戶在窗口中直接復(fù)制粘貼下方的代碼數(shù)據(jù)，如圖所示

　　Private Sub Worksheet_Change(ByVal Target As Range)

　　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 = 1 Then

　　If oldVal = "" Then

　　Else

　　If newVal = "" Then

　　Else

　　Target.Value = oldVal & ", " & newVal

　　End If

　　End If

　　End If

　　End If

　　exitHandler:

　　Application.EnableEvents = True

　　End Sub

　　8.在代碼中的1then表示下拉選項所在的單元格列數(shù)，用戶根據(jù)實際情況來進(jìn)行更改即可

　　9.隨后在編輯器窗口的工具欄中，用戶點擊保存圖標(biāo)來將其保存到本地

　　10.在打開的另存為窗口中，用戶設(shè)置好保存位置和文件名稱后按下保存按鈕

　　11.此時可以看到彈出來的提示窗口，用戶直接按下否按鈕即可

　　12.最后回到編輯頁面上，用戶點擊單元格中的下拉箭頭，就可以在下拉選項中多選幾個選項了

　　以上就是小編對用戶提出問題整理出來的方法步驟，用戶從中知道了點擊數(shù)據(jù)——數(shù)據(jù)有效性——序列——設(shè)置好來源選項——確定——查看代碼——輸入代碼——保存——否這幾步，完成這些步驟操作后，用戶就可以在單元格中實現(xiàn)下拉選項的多選了，大家趕快來試試看吧。

microsoft office 2016安裝包

大小：60.68 MB版本：1.1.2.0環(huán)境：WinAll, WinXP, Win7

進(jìn)入下載