文章预览
学习Excel技术,关注微信公众号: excelperfect 标签: 数据验证 , 工作表事件 , VBA 数据验证,即“数据有效性”是 Excel 中一项经常使用的功能,简单易用,然而,通常设置数据验证后,在下拉列表中只能选择单个项目,如果想要在数据验证下拉列表中选择多个项目,需要使用一些技巧。这里,利用工作表事件使用 VBA 来实现。 效果如下图 1 所示。可以从下拉列表中选择多个项目,各个项目之间使用逗号隔开。 图1 在相应的工作表代码模块中,输入下面的代码: Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else
………………………………