标签:选项 End 多选 Excel2013 Value newVal oldVal 下拉框 Target
一、设置下拉框
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”格式即可。
标签:选项,End,多选,Excel2013,Value,newVal,oldVal,下拉框,Target 来源: https://www.cnblogs.com/xiaonanman/p/12330779.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。