msww.net
当前位置:首页 >> 怎样用VBA代码编写IF嵌套公式 >>

怎样用VBA代码编写IF嵌套公式

VBScript中的嵌套 if 语句的语法是:If(boolean_expression) Then Statement 1 .. .. Statement n If(boolean_expression) Then Statement 1 .. .. Statement n ElseIf (boolean_expression) Then Statement 1 .. . Statement n Else Statement 1 .

在选项对话框中勾选“显示开发工具”,看图就是了. 然后在开发工具面板中就可以 打开vba. 在vba中添加一个普通模块,在模块里编写函数. 比如: function maxvalue(a as integer,b as integer) as integer maxvalue=iif(a>b,a,b) end function 这个函数在表格界面上的插入函数命令中也会列出来的,在用户定义分类中.

如果有单元格区域:加个循环:for i =2 to 10If Sheet1.Range("L"&i).Value = "FOB" ThenSheet3.Range("J2") = "工厂FOB报关"ElseIf Sheet1.Range("L"&i).Value = "N" ThenSheet3.Range("J2") = "不退税报关"ElseSheet3.Range("J2") = "正式报关出口"End Ifnext其它的都一样.Q3,直接设置单元格的背景颜色就可.Sheet3.Range("J2").Interior.ColorIndex = 3 '3是红色

权当A1为占有率、B1为重量、折扣输出到C1单元格 Sub test() Dim L, T, X L = Range("A1") T = Range("B1") If L If T X = 0 ElseIf L X = 0 Else X = 0 End If ElseIf L If T X = 0.8 ElseIf L X = 1.2 Else X = 1.5 End If ElseIf L If T X = 1 ElseIf L X

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 = RstEnd Function 这是自定义函数,带一个参数,返回等级.使用方法请参考Excel函数.

1. 函数中的if语句=if(条件,符合条件结果,不符合条件结果).2. VBA中也有一个同样的函数,为了跟函数的if区分,vba中的名称为iif,使用方法与函数完全一致,iif(条件,符合条件结果,不符合条件结果).3. VBA中另外一种if表达方式更为常用,格式为 if 条件 then 执行结果或者 if 条件 then 结果一 结果二 else if 条件 结果 end if4. VBA中的if语句常用来与for..next循环搭配使用,亦可用do whileLoop语句代替.

增加一个if语句就可以,前提是正常文件比如某个单元格里都是一个值,或者不正常文件某个单元格都是比如空值,if range("c2") = "" then activeworkbook.close 0else你的处理代码activeworkbook.close 0end if

可以简化成:if a=b and c=d and e=f then'要执行的语句end if至于速度问题,这么个小判断,可以忽略

Sub aaa()For i = 4 To 1500Cells(i, 32) = Cells(i, 31) / Application.WorksheetFunction.CountA(Range("A" :G" & i))NextEnd Sub这个更快一

for i =1 to 4 x=3 for j=1 to 3 for k=1 to 2 x=x+3 next k,j,i 写法是这样子的,不过不知道你要实现什么.

网站首页 | 网站地图
All rights reserved Powered by www.msww.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com