Question

用VBA对单元格值进行多条件判断？

例如：对单元格A1的值，进行判断，如果不包含这些字符A、B、C、D、E、F、G、H、J、K、L、M、N、O、P、Q等时，则弹出提示对话框，此值不符合条件。

Answer 1

有很多算法的啦，我写个一种简单的，应该是A1中有许多字符，比如"lihanru8321"这样的，然后看里面有没有h、a、n，最后提示有没有的意思吧
Sub temp()

Dim cell As Range
Dim i As Integer, FA As Boolean, Fb As Boolean
Set cell = Range("A1")
FA = False
Fb = False
i = 1
Do Until Mid(cell, i, 1) = ""
Select Case Mid(cell, i, 1)
Case "A"
FA = True
Case "b"
Fb = True
End Select
i = i + 1
Loop
If FA = True Then MsgBox "有A哎"
If Fb = True Then MsgBox "有b哎"

End Sub

用mid函数对单元格的值一个个字符从左向右判断有没有h、a、n并记录，最后根据记录报出有没有的结果
另外用find函数可能会更简单点，适合复杂的字符判断

Answer 2

If 条件1 Then
处理
ElseIf 条件2 Then
处理
Else
处理
End If

条件与条件之间可以用 "And, Or, Not" 等。
判断符可以用 "=,<,>,<=,>=,<>" 等。