EXCEL VBA if如何進(jìn)行雙判斷

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 "數(shù)據(jù)已存在" 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(條件,真值,假值))

題主的正確語句應(yīng)該是：

=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、當(dāng)寫真假值時，直接寫答案就行，例如第一個真值直接寫b7就行，不能寫成f7=b7。

2、最后一個條件，少寫了一個真值或者假值，應(yīng)該是：if(D7-B7)<=-10,0,0 或者直接寫成0不寫條件。

擴(kuò)展資料

excel中if函數(shù)常用用法介紹：

1、基本用法

if函數(shù)有三個參數(shù)，即=if（條件，滿足條件返回的值，不滿足條件返回的值）。

2、if函數(shù)嵌套

嵌套函數(shù)公式舉例 ：=IF(E2>7000,E2+500,IF(E2>5000,E2+300,E2+100))。

3、if函數(shù)與and函數(shù)結(jié)合

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

if多重判斷條件格式是什么？

語法：＝IF（判斷條件，條件正確返回的值，條件不正確返回的值）。

一個具體的例子來看下，如下如，我們需要根據(jù)考核成績來判定獎金，80分以上的有獎金，80分以下的沒獎金，在這里我們只需要將函數(shù)設(shè)置為：＝IF(B2>=80,200,0)即可。

在函數(shù)中B2>=80，是條件，200是條件正確時候返回的值，0是條件錯誤時間返回的值，以上就是這個函數(shù)的基本用法。

else if (條件n)。

｛條件n成立時執(zhí)行的代碼｝。

else。

｛條件1,2至n不成立時執(zhí)行的代碼｝。

例子：

var myscore = 86。

if (myscore<60){document.write("成績不及格，加油了?。ⅲ?。

}else if (myscore<75){document.write("成績良好，不錯?。ⅲ?。

}else if ("myscore<85"){document.write("成績很好，很棒＂）}else{document.write("成績優(yōu)秀，超級棒＂）｝。

EXCEL vba 多重if和循環(huán)

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