Excel2013 设置下拉选项且能多选

您所在的位置：网站首页 › 单元格设置固定选项 › Excel2013 设置下拉选项且能多选

Excel2013 设置下拉选项且能多选

2024-07-13 05:32| 来源: 网络整理| 查看: 265

一、设置下拉框

1、打开excel2013，空白处选择一个格子，点击“数据”--->选择点击“数据验证”；

2、选择点击“数据验证”；

3、在弹出框中，选择“序列”；

4、在“来源”里面写上下拉选项，用英文逗号隔开，点击“确定”；

5、下拉框设置完成

二、下拉框设置多选

1、在excel表下方右击“sheet1”，点击“查看代码”

2、在弹出的页面中编写代码

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

3、记住下拉框所在的列数，在代码中修改，将下图中的数字修改为列数，如果有多个下拉框，可以使用“And”、“Or‘’；

4、在弹出框中点击保存，然后将excel保存为“.xltm”格式即可。

【本文地址】

Excel2013 设置下拉选项且能多选

Excel2013 设置下拉选项且能多选

今日新闻

推荐新闻