如何在Excel中創建具有多個選擇或值的下拉列表？

Private Sub Worksheet_Change(ByVal Target As Range) Updated by Extendoffice 2019/11/13 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If Target.Count > 1 Then Exit Sub On Error Resume Next Set xRng = Cells.SpecialCells(xlCellTypeAllValidation) If xRng Is Nothing Then Exit Sub Application.EnableEvents = False If Not Application.Intersect(Target, xRng) Is Nothing Then xValue2 = Target.Value Application.Undo xValue1 = Target.Value Target.Value = xValue2 If xValue1 <> "" Then If xValue2 <> "" Then If xValue1 = xValue2 Or _ InStr(1, xValue1, ", " & xValue2) Or _ InStr(1, xValue1, xValue2 & ",") Then Target.Value = xValue1 Else Target.Value = xValue1 & ", " & xValue2 End If End If End If End If Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Updated by Extendoffice 2023/01/11 Updated by Ken Gardner 2022/07/11 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String Dim semiColonCnt As Integer Dim xType As Integer If Target.Count > 1 Then Exit Sub On Error Resume Next xType = 0 xType = Target.Validation.Type If xType = 3 Then Application.ScreenUpdating = False Application.EnableEvents = False xValue2 = Target.Value Application.Undo xValue1 = Target.Value Target.Value = xValue2 If xValue1 <> "" Then If xValue2 <> "" Then If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then leave the value if only one in list xValue1 = Replace(xValue1, "; ", "") xValue1 = Replace(xValue1, ";", "") Target.Value = xValue1 ElseIf InStr(1, xValue1, "; " & xValue2) Then xValue1 = Replace(xValue1, xValue2, "") removes existing value from the list on repeat selection Target.Value = xValue1 ElseIf InStr(1, xValue1, xValue2 & ";") Then xValue1 = Replace(xValue1, xValue2, "") Target.Value = xValue1 Else Target.Value = xValue1 & "; " & xValue2 End If Target.Value = Replace(Target.Value, ";;", ";") Target.Value = Replace(Target.Value, "; ;", ";") If Target.Value <> "" Then If Right(Target.Value, 2) = "; " Then Target.Value = Left(Target.Value, Len(Target.Value) - 2) End If End If If InStr(1, Target.Value, "; ") = 1 Then check for ; as first character and remove it Target.Value = Replace(Target.Value, "; ", "", 1, 1) End If If InStr(1, Target.Value, ";") = 1 Then Target.Value = Replace(Target.Value, ";", "", 1, 1) End If semiColonCnt = 0 For i = 1 To Len(Target.Value) If InStr(i, Target.Value, ";") Then semiColonCnt = semiColonCnt + 1 End If Next i If semiColonCnt = 1 Then remove ; if last character Target.Value = Replace(Target.Value, "; ", "") Target.Value = Replace(Target.Value, ";", "") End If End If End If Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub

2.1) 指定你想應用這個特性的地方 設定范圍 部分;

2.2) 指定單元格中選中項的分隔符；

2.3) 決定文字方向；

2.4）點擊 OK.

在Excel下拉列表中鍵入時自動完成 如果您有一個包含大值的數據驗證下拉列表，則需要在列表中向下滾動以查找合適的列表，或直接在列表框中鍵入整個單詞。 如果在下拉列表中鍵入第一個字母時有允許自動完成的方法，一切將變得更加容易。 本教程提供了解決問題的方法。

在Excel中從另一個工作簿創建下拉列表 在工作簿中的工作表之間創建數據驗證下拉列表非常容易。 但是，如果數據驗證所需的列表數據位于另一個工作簿中，您將怎么辦？ 在本教程中，您將詳細了解如何從Excel中的另一個工作簿創建拖放列表。

在Excel中創建可搜索的下拉列表 對于具有眾多價值的下拉列表，找到合適的價值并非易事。 以前，我們已經介紹了一種在下拉框中輸入第一個字母時自動完成下拉列表的方法。 除了自動完成功能之外，您還可以使下拉列表可搜索，以提高在下拉列表中查找適當值時的工作效率。 為了使下拉列表可搜索，請嘗試本教程中的方法。

在Excel下拉列表中選擇值時自動填充其他單元格 假設您已經基于單元格區域B8：B14中的值創建了一個下拉列表。 在下拉列表中選擇任何值時，都希望在選定單元格中自動填充單元格范圍C8：C14中的相應值。 為了解決該問題，本教程中的方法將對您有所幫助。

下拉列表的更多教程...

最佳辦公生產力工具

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。 在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。 每天將您的工作效率提高50％，并減少數百次鼠標單擊！