excel中if语句用vba怎么写 EXCEL VBA怎么实现IF语句 .
\u3010\u6c42\u52a9\u3011\u5728Excel VBA\u4e2d\u600e\u4e48\u5199if\u51fd\u6570\u5982\u679c\u8981\u5199\u516c\u5f0f\uff0c\u5c31\u76f4\u63a5\u7528\u53cc\u5f15\u53f7\u62ec\u8d77\u6765\u5373\u53ef\uff0c\u5982\uff1a range("A1")="=IF(P9=0,0,P9/(100+P9)*T9*U9)"
\u5982\u679c\u60f3\u76f4\u63a5\u5f97\u5230\u503c\uff1a
IF RANGE("P9")=0 THEN
range("A1")=0
ELSE
range("A1")=RANGE("P9")/(100+RANGE("P9"))*RANGE("T9")*RANGE("U9")
END IF
if cells\uff086,2\uff09=1 then
cells(7,3)=cells(7,8)
elseif cells\uff086,2\uff09=2 then
cells(7,3)=cells(8,8)
elseif cells\uff086,2\uff09=3 then
cells(7,3)=cells(9,8)
endif
\u6ce8\u610f cells\uff08i\uff0cj\uff09 i\u8868\u793a\u7b2c\u591a\u5c11\u884c\uff0cj\u8868\u793a\u7b2c\u591a\u5c11\u5217
\u6bd4\u5982c7 \u8868\u793a\u7684\u662f\u7b2c7\u884c\uff0c\u7b2c3\u5217\u7684\u5355\u5143
函数中的if语句=if(条件,符合条件结果,不符合条件结果)。
VBA中也有一个同样的函数,为了跟函数的if区分,vba中的名称为iif,使用方法与函数完全一致,iif(条件,符合条件结果,不符合条件结果)。
VBA中另外一种if表达方式更为常用,格式为
if 条件 then 执行结果
或者
if 条件 then
结果一
结果二
else if 条件
结果
end if
4. VBA中的if语句常用来与for..next循环搭配使用,亦可用do while...Loop语句代替。
Dim I As Integer
Private Sub Worksheet_Change(ByVal Target As Range) For I = 1 To 100 If Range("a" & I).Value <> "" Then If Range("a" & I).Value >= 80 Then Range("b" & I).Value = "A" ElseIf Range("a" & I).Value >= 60 Then Range("b" & I).Value = "B" Else Range("b" & I).Value = "C" End If End If NextEnd Sub
Public Function dj(A As Integer)
Dim Rst As String
Rst = ""
Select Case A
Case Is >= 80
Rst = "A"
Case Is >= 60
Rst = "B"
Case Else
Rst = "C"
End Select
dj = Rst
End Function
绛旓細vba if璇彞涓哄垽鏂鍙ャ傛牴鎹潯浠剁殑鍊硷紝鍙浣跨敤 If鈥hen鈥lse 璇彞杩愯鎸囧畾鐨勮鍙ユ垨涓涓鍙ュ潡銆侷f鈥hen鈥lse 璇彞鍙牴鎹渶瑕佸祵濂楀绾с備絾鏄紝涓轰簡浠g爜鐨勫彲璇绘э紝寤鸿浣跨敤鍏朵綑鐨勮鍙ワ紝姣斿 Select Case 璇彞鑰屼笉浣跨敤澶氬眰宓屽鐨vba涓殑 If鈥hen鈥lse 璇彞銆倂ba if璇彞鐢ㄦ硶瑙i噴锛氬綋鏉′欢涓 True 鏃讹紝...
绛旓細end if缁撴瀯 璇ョ粨鏋勭敤浜庡崟閫夋嫨鍒ゆ柇璇彞鎵ц锛屽叿浣撶敤娉曠湅涓嬮潰瀹炰緥 瀹炰緥锛氬浜庣涓鍒楃殑绗竴琛屽埌绗崄琛屽崟鍏冩牸锛屼綔濡備笅鍒ゆ柇锛屽鏋滃崟鍏冩牸涓虹┖鍊间簡閭d箞鍦ㄧ浉搴旂殑绗簩鍒楀崟鍏冩牸杈撳嚭鈥VBA鏁欑爺瀹も 绋嬪簭锛 Sub 鍒ゆ柇璇彞() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" Then Ce...
绛旓細鍑芥暟涓殑if璇彞=if锛堟潯浠讹紝绗﹀悎鏉′欢缁撴灉锛屼笉绗﹀悎鏉′欢缁撴灉锛銆俈BA涓篃鏈変竴涓悓鏍风殑鍑芥暟锛屼负浜嗚窡鍑芥暟鐨刬f鍖哄垎锛寁ba涓殑鍚嶇О涓篿if锛屼娇鐢ㄦ柟娉曚笌鍑芥暟瀹屽叏涓鑷达紝iif锛堟潯浠讹紝绗﹀悎鏉′欢缁撴灉锛屼笉绗﹀悎鏉′欢缁撴灉锛夈俈BA涓彟澶栦竴绉峣f琛ㄨ揪鏂瑰紡鏇翠负甯哥敤锛屾牸寮忎负 if 鏉′欢 then 鎵ц缁撴灉鎴栬 if 鏉′欢 then缁撴灉涓缁撴灉浜宔lse...
绛旓細iif鍑芥暟鍜excel宸ヤ綔琛ㄤ腑鐨処F鍑芥暟鐢ㄦ硶鐩镐技锛屾墽琛岀湡鍋囧煎垽鏂紝鏍规嵁閫昏緫璁$畻鐨勭湡鍋囧硷紝杩斿洖涓嶅悓缁撴灉銆侷F鍑芥暟鐢ㄦ硶鏄紙鏉′欢锛屾槸锛屽惁锛夈VBA涓殑IF璇彞鍜孖IF鍑芥暟锛屽墠鑰匢F璇彞鏄帶鍒惰鍙ュ彲浠ユ牴鎹潯浠舵墽琛屼笉鍚岀殑璇彞锛屽悗鑰匢IF鍑芥暟鏄嚱鏁拌繑鍥炰竴涓叿浣撶殑鍊笺傛牴鎹府鍔╀簡瑙e埌锛宨if鍑芥暟鏄牴鎹〃杈惧紡鐨勫硷紝鏉ヨ繑鍥炰袱閮ㄥ垎涓...
绛旓細濡傛灉瀵VBA涓嶅お浜嗚В锛岀敤鍑芥暟鍙互鐨勫晩锛=if(a1>1,1,if(a1>2,2,if(...,0)+if(a7>7,7,...,0)
绛旓細濡傚浘锛鍦 Excel 宸ョ▼涓紝娣诲姞妯″潡锛屾坊鍔犲嚱鏁 GetPrice 浠g爜锛氫唬鐮佸涓嬶細Function GetPrice(r1 As Range, r2 As Range)aSize = LCase(Trim(r1.Value))aWeight = r2.Value Select Case aSize Case "large standard"If aWeight <= 2 Then Result = 4.76 ElseIf aWeight <= 3 Then Result =...
绛旓細濡傛灉瑕佸啓鍏紡锛屽氨鐩存帴鐢ㄥ弻寮曞彿鎷捣鏉ュ嵆鍙紝濡傦細 range("A1")="=IF(P9=0,0,P9/(100+P9)*T9*U9)"濡傛灉鎯崇洿鎺ュ緱鍒板硷細IF RANGE("P9")=0 THEN range("A1")=0 ELSE range("A1")=RANGE("P9")/(100+RANGE("P9"))*RANGE("T9")*RANGE("U9")END IF ...
绛旓細Function zhekou(zhanyoulv As Double, t As Integer)If zhanyoulv < 0.035 ThenIf t <= 15 Thenzhekou = 0ElseIf t <= 30 And t > 15 Thenzhekou = 0ElseIf t > 30 Thenzhekou = 0End IfEnd IfEnd IfElseIf zhanyoulv >= 0.035 And zhanyoulv <= 0.04 ThenIf t <= 15 ...
绛旓細=if(and(A122>117.6, A122<124.9), "A","B")
绛旓細FOR I=1 TO N ...璇彞...NEXT I 杩欐牱鐨勫姛鑳芥槸锛屼娇閲岄潰鐨 璇彞 杩愯N娆★紝姣忔I鐨勫奸兘涓嶅悓锛屽垎鍒槸1~N锛岀敤鏉ュ畬鎴愬浐瀹氭鏁扮殑閲嶅銆IF鐨鐢ㄦ硶鏄繖鏍风殑锛欼F 鏉′欢 THEN ...璇彞1...ELSE ...璇彞2...END IF 杩欐牱鐨勫姛鑳芥槸鍒ゆ柇鏉′欢鏄惁婊¤冻锛屽鏋滄弧瓒冲氨鎵ц 璇彞1锛屽惁鍒欐墽琛 璇彞2 浠ヤ笂渚嬪瓙涓...