vba条件语句:vba多个条件语句[朗读]

最简单的来两句,不明白请追问~~~for的用法是这样的:fori=1ton语句nexti这样的功能是,使里面的语句运行n次,每次i的值都不同,分别是1~n,用来完成固定次数的重复.if的用法是这样的:if条件then.语句1.else语句2endif这样的功能是判断条件是否满足,如果满足就执行语句1,否则执行语句2以上例子中的语句、语句1、语句2都可以是一个或者多个语句,往往是一段。

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

最可能的原因是,因为百变量j的值不合适,比度如j=0或j=1,就会造成如下对象引用的问出错:cells(j,3)、cells(j-1,3)、cells(j-1,6)也许把这句forj=ito1step-1改为:答forj=ito2step-1就可以解决了.因为不了解你的具体需求,仅从内问题中几句来推断,抛砖引玉而已.容goodluck。

dim数量总和,金额总和获取最大行数=sheets(＂sheet1＂).cells(65536,1).end(xlup).rowfori=2to获取最大行数'第一行为标题行ifcells(i,1)=＂本月合计＂then数量总和=数量总和+cells(i,2)金额总和=金额总和+cells(i,3)endifnextmsgbox＂数量总和为＂&数量总和&＂|＂&＂金额总和为＂&金额总和。

subtest()activeworkbook.saveas＂c:\test\1.xls＂application.addins.add＂c:\test\1.xls＂endsub我没有验证,你自己试试吧.其实直接点菜单的工具,加载项,把那个有宏的文件加载就可以了。