Question

使用vba达到excel中下拉选项可多选的效果，查看网上的代码，成功做出来了，可是却会无限循环

求助怎么禁止无限循环比如原单元格式写着“520”，我删除“520”，打上“521”然后显示出来了“520,521”，它会不停自动复制。代码如下Sub Worksheet_Change(ByVal Target As Range)'让数据有效性选择 可以多选,重复选Application.EnableEvents = FalseDim rngDV As RangeDim oldVal As StringDim newVal As StringIf Target.Count > 1 Then GoTo exitHandlerOn Error Resume NextSet rngDV = Cells.SpecialCells(xlCellTypeAllValidation)On Error GoTo exitHandlerIf rngDV Is Nothing Then GoTo exitHandlerIf Intersect(Target, rngDV) Is Nothing Then'do nothingElseApplication.EnableEvents = FalsenewVal = Target.ValueApplication.UndooldVal = Target.ValueTarget.Value = newValIf oldVal = "" ThenElseIf newVal = "" ThenElseTarget.Value = oldVal _& ", " & newValEnd IfEnd IfEnd IfexitHandler:Application.EnableEvents = TrueEnd Sub

Answer 1

运行效果挺好的，想要作什么改动？

Answer 2

文档共享出来，帮你诊断一下。或者看头像取数字戳q