用VBA对单元格值进行多条件判断？
例如：对单元格A1的值，进行判断，如果不包含这些字符A、B、C、D、E、F、G、H、J、K、L、M、N、O、P、Q等时，则弹出提示对话框，此值不符合条件。
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函数可能会更简单点，适合复杂的字符判断本回答被提问者采纳
处理
ElseIf 条件2 Then
处理
Else
处理
End If
条件与条件之间可以用 "And, Or, Not" 等。
判断符可以用 "=,<,>,<=,>=,<>" 等。本回答被网友采纳
用VBA对单元格值进行多条件判断?
用mid函数对单元格的值一个个字符从左向右判断有没有h、a、n并记录，最后根据记录报出有没有的结果 另外用find函数可能会更简单点，适合复杂的字符判断
VBA里满足IF多条件
1. 当你需要检查A1等于1且A2等于2时，可以使用如下VBA代码：Sub IfTest()' 定义一个函数 ' 如果A1等于1且A2也等于2 If Range("A1") = 1 And Range("A2") = 2 Then Selection = Range("A3") ' 将满足条件的结果赋值给选中的单元格 Else Selection = Range("A4") ' 否则，使用默认值...
Excel VBA中ElseIf多层逻辑判断
首先，打开Excel，点击“开发工具”选项卡，选择“Visual Basic”，进入编程环境，创建一个新的过程，命名为“等级判定”。从单个成绩单元格开始实践，利用类似Excel函数中的AND操作，编写代码进行初步测试。确保我们的逻辑判断能够准确执行。运行后，你将在工作表上看到预期的等级划分。接下来，我们将升级到...
Excel 关于VBA中IF多条件语句的用法,虚
这里的条件可以是简单的数值比较，如"="（等于）、">"（不等于）、"=="（等于）、"<"（小于）、">"（大于）等，也可以通过逻辑运算符"AND"、"OR"和"NOT"来组合多个条件，实现更复杂的判断。"AND"用于满足所有条件时执行操作，"OR"则只要满足其中一个条件就执行，"NOT"则是对条件进行否定，...
【Excel vba基础002】--条件判断大全
if语句支持多个条件的判断，可以设置多个“如果...则”语句块，依次判断，直到满足任一条件执行对应操作。示例代码：根据单元格A1的值显示不同的等级评价。Sub test()If [a1].Value >= 90 Then MsgBox "优"ElseIf [a1].Value >= 80 Then MsgBox "良"ElseIf [a1].Value >= 60 Then MsgBox ...
Excel 关于VBA中IF多条件语句的用法,虚心求教
程序：Sub 判断语句()If Cells(1, 1) <> "" Then MsgBox "单元格不为空"End Sub 3、if……then……end if结构 该结构用于单选择判断语句执行，具体用法看下面实例。实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。程...
vba多条件查找?
取一个没用的单元格，用VBA设置成Excel的公式，取该单元格的值 示例：你这个公式简单一些，公式中没有双引号，直接将公式原样放到双引号里面就行：Range("G2").Formula="=LOOKUP(1,0\/((A2=Sheet2!D:D)*(I2=Sheet2!H:H)),Sheet2!E:E)"...
EXCELVBA如何实现多条件判断,自动备注判断的结果,结果正确就pass结果...
Sub 判断()Dim int2 As Integer For int1 = 2 To Range("A65536").End(xlUp).Row If Cells(int1, 1).Value = Cells(int1, 3).Value And Cells(int1, 2).Value = Cells(int1, 4).Value Then With Cells(int1, 5).Value = "pass".Interior.ColorIndex = 3 .Font.Color = 1...
在excel中if函数如何实现多重判断?
Excel中IF函数如何同时设置两个满足的条件，即满足任意一个即为Ture？ 用法：把下面代码放进vba模块中，然后在某个单元格里面输入公式=test(A,B,N) 【A，B，N可以是指定的值或者某个单元格】 function test(A,B,N as long) dim i,j for i = 1 to 65536 if range("M" & i)....
EXCEL VBA 数据表多条件查询 如条件为空白,继续判读其它条件而不是去...
If Sheet1.Cells(h, "A") >= C1 And Sheet1.Cells(h, "A") <= C2 and ( Sheet1.Cells(h, "B") = C3 or Sheet1.Cells(h, "C") = C4 or Sheet1.Cells(h, "D") = C5 )
