vba if的多重判断

EXCEL VBA if如何进行双判断

If Sheet2.Cells(i, 2).Text = TextBox1.Text And Sheet2.Cells(i, 5).Text = TextBox4.Text Then 或者 If Sheet2.Cells(i, 2).Text = TextBox1.Text Then If Sheet2.Cells(i, 5).Text = TextBox4.Text then MsgBox "数据已存在" Exit Sub End If End If

vba中用if判断多个条件，符合其中一个就跳出

可以用if elseif else，也可以用select case，示例代码如下：

（1）if elseif；

Subif_sample()
DimiAsInteger
Fori=1To300
Ifi=1Then
Debug.Print"i值等于1"
ElseIfi=20Then
Debug.Print"i值等于20"
ElseIfi=40Then
Debug.Print"i值等于40"
ElseIfi=100Then
Debug.Print"i值等于100"
ElseIfi=300Then
Debug.Print"i值等于300"
EndIf
Nexti
EndSub

（2）select case;

Subselect_sample()
DimiAsInteger
Fori=1To300
SelectCasei
Case1:
Debug.Print"i值等于1"
Case20:
Debug.Print"i值等于20"
Case40:
Debug.Print"i值等于40"
Case100:
Debug.Print"i值等于100"
Case300:
Debug.Print"i值等于300"
EndSelect
Nexti
EndSub

excel中多重判断条件的IF语句的输入

excel中多重判断条件的IF语句的语法是：

=IF(条件,真值,IF(条件,真值,假值))

题主的正确语句应该是：

=IF(0<=(D7-B7)<=5,B7,IF(6<=(D7-B7)<=10,B7*1.25,IF(10<=(D7-B7),B7*1.5,IF(-5<=(D7-B7)<=-1,B7*0.75,

IF(-10<=(D7-B7)<=-5,B7*0.5,0)))))

题主的语句中存在两个错误：

1、当写真假值时，直接写答案就行，例如第一个真值直接写b7就行，不能写成f7=b7。

2、最后一个条件，少写了一个真值或者假值，应该是：if(D7-B7)<=-10,0,0 或者直接写成0不写条件。

扩展资料

excel中if函数常用用法介绍：

1、基本用法

if函数有三个参数，即=if（条件，满足条件返回的值，不满足条件返回的值）。

2、if函数嵌套

嵌套函数公式举例 ：=IF(E2>7000,E2+500,IF(E2>5000,E2+300,E2+100))。

3、if函数与and函数结合

if函数和and合用公式举例：=IF(AND(C2="女",D2="博士"),E2+500,"")

if多重判断条件格式是什么？

语法：＝IF（判断条件，条件正确返回的值，条件不正确返回的值）。

一个具体的例子来看下，如下如，我们需要根据考核成绩来判定奖金，80分以上的有奖金，80分以下的没奖金，在这里我们只需要将函数设置为：＝IF(B2>=80,200,0)即可。

在函数中B2>=80，是条件，200是条件正确时候返回的值，0是条件错误时间返回的值，以上就是这个函数的基本用法。

else if (条件n)。

｛条件n成立时执行的代码｝。

else。

｛条件1,2至n不成立时执行的代码｝。

例子：

var myscore = 86。

if (myscore<60){document.write("成绩不及格，加油了！＂）。

}else if (myscore<75){document.write("成绩良好，不错啊＂）。

}else if ("myscore<85"){document.write("成绩很好，很棒＂）}else{document.write("成绩优秀，超级棒＂）｝。

EXCEL vba 多重if和循环

Sub名称匹配()
DimxAsInteger,yAsInteger
Forx=2To201
Fory=2To201
IfCells(x,2)&Cells(x,3)&Cells(x,4)=Cells(y,7)&Cells(y,8)&Cells(y,9)ThenCells(x,1)=Cells(y,6)
Nexty
Nextx
EndSub