请教，VBA如何判断单元格值是否符合其数据有效性

浅醉微眠

如题，假设A1单元格设置了数据有效性-序列，={1,2,3}
但我从其他地方复制了一个"aa"并粘贴值到A1单元格，这时A1的值已经不符合数据有效性了，

用VBA如何判断出A1值是无效的？

huang1314wei

楼主，设置数据有效性时候，出错警告里面按照图片输入，当输入非有效性字符时候自动会提示非法字符的

浅醉微眠

huang1314wei 发表于 2015-11-30 13:53
楼主，设置数据有效性时候，出错警告里面按照图片输入，当输入非有效性字符时候自动会提示非法字符的

谢谢大侠，不过我把出错警告勾选去掉了，我的目的不是限制用户输入，而是用VBA判断单元格值是否合法后，再进行相应的后续操作，还望就问题本身进行解答~

gbgbxgb

浅醉微眠 发表于 2015-11-30 14:03
谢谢大侠，不过我把出错警告勾选去掉了，我的目的不是限制用户输入，而是用VBA判断单元格值是否合法后， ...

2楼答非所问，你幸运，所以给你段代码供参考（看热闹也是种享受）。就数据有效性方案来说，达不到你的目的，参考下列Change事件方案的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, theArea As Range, theCell As Range, theValue As Variant
    Dim arr As Variant, i&, theValid As Boolean
    '
    With Me
        Set rng = Intersect(Target, .Columns(1))
        If Not rng Is Nothing Then
            arr = VBA.Array(1, 2, 3)
            For Each theArea In rng.Areas
                For Each theCell In theArea
                    theValid = False
                    theValue = theCell
                    For i = 0 To UBound(arr)
                        If theValue = arr(i) Then
                            theValid = True
                            Exit For
                        End If
                    Next i
                    If Not theValid Then
                        MsgBox "非法！"
                        With Application
                            .EnableEvents = False
                            .Undo
                            .EnableEvents = True
                            GoTo The_Exit
                        End With
                    End If
                Next theCell
            Next theArea
        End If
    End With
The_Exit:
    Set rng = Nothing
End Sub

huang1314wei

浅醉微眠 发表于 2015-11-30 14:03
谢谢大侠，不过我把出错警告勾选去掉了，我的目的不是限制用户输入，而是用VBA判断单元格值是否合法后， ...

要代码的话也很简单，判断一下就行了，如下

1. Sub text()
   
2.     Dim arr, falg As Boolean, i%
   
3.     arr = Array(1, 2, 3)
   
4.     falg = False
   
5.     For i = 0 To UBound(arr)
   
6.         If arr(i) = [A1].Value Then falg = True: Exit For
   
7.     Next
   
8.     If falg = False Then
   
9.         MsgBox "数据合法！"
   
10.     Else
    
11.         MsgBox "数据非法!"
    
12.     End If
    
13. End Sub

复制代码

浅醉微眠

huang1314wei 发表于 2015-11-30 14:27
要代码的话也很简单，判断一下就行了，如下

大侠，你这个思路是可以搞定我一楼的问题，不过扩展性太差了，那个序列={1,2,3}我只是举个例子，实际比这复杂的多，而且是动态的，你这个方法就不行啦，不过还是谢谢提供思路！~~

浅醉微眠

gbgbxgb 发表于 2015-11-30 14:17
2楼答非所问，你幸运，所以给你段代码供参考（看热闹也是种享受）。就数据有效性方案来说，达不到你的目 ...

感谢解答，不过for循环判断数组方法似乎有点low，实际我的下拉列表是动态的，如果每次去循环一遍的话性能就太差了，看来是没有能直接判断的方法了，我再研究研究吧，谢谢兄弟~

huang1314wei

浅醉微眠 发表于 2015-11-30 14:43
大侠，你这个思路是可以搞定我一楼的问题，不过扩展性太差了，那个序列={1,2,3}我只是举个例子，实际比这 ...

此代码扩展性差，这要怪你自己啊，因为你提供的就是这数据量，一没附件，二没有详细说明，你还要怎么扩展？如果想要扩展，请上传附件或者自行修改代码
二楼不是文不对题，只是给你一个简单的方法达到目的而以

浅醉微眠

huang1314wei 发表于 2015-11-30 14:51
此代码扩展性差，这要怪你自己啊，因为你提供的就是这数据量，一没附件，二没有详细说明，你还要怎么扩展 ...

抱歉啦，原本还以为是个简单的问题的。附件在此

要求在统计表.xlsm中可以看到
统计.rar (320.08 KB, 下载次数: 59)

2015-11-30 15:07 上传

点击文件名下载附件

gbgbxgb

huang1314wei 发表于 2015-11-30 14:51
此代码扩展性差，这要怪你自己啊，因为你提供的就是这数据量，一没附件，二没有详细说明，你还要怎么扩展 ...

楼主说的是复制后粘贴，意图让数据有效性亦能识别，你给的方案可以做到“简单的方法达到目的”？