excelvba之判断语句.docVIP

学习VBA 之 判断语句 单行形式（IF…THEN） 格式：if 逻辑表达式 then 执行语句 [:执行语句]… 在这里逻辑表达式为条件，当条件为真时，执行then后面的语句，如果执行的是多条，在语句中间用冒号分开(:) 例1： If 1110 then a=a+1 例2： if 1110 then a=a+1 : b=b+1 : c=c+1 单行形式 （IF…THEN…..ELSE….） 格式：if 逻辑表达式 then 执行语句 else 执行语句 当逻辑表达式为真时，执行then后面的语句，当逻辑表达式为假时执行else后面的语句。 例：if 21 then msgbox “yes” else msgbox “no” 多行形式（IF…..THEN….END） 格式：if 逻辑表达式 then 执行语句 [执行语句] ……. End if 此语句运行的结果和第一条单行形式的IF语句是一样的，好处是可以在逻辑表达式为真时，可以执行相对多条的语句，并且清晰易懂。 例：if 1110 then A=a+1 B=b+1 C=c+1 End if 多行形式（IF…..THEN….ELSE….END） 格式：if 逻辑表达式 then 执行语句 [执行语句] ….. Else 执行语句 [执行语句] ….. End if 这个用法的结果等同于第二条单行形式，适用于比较复杂的判断语句，并清晰易懂。 例：if 1110 then A=a+1 B=b+1 Else A=a-1 B=b-1 End if 多行形式（IF…..THEN….ELSEIF…..ELSE…..END） 格式：if 逻辑表达式 the 执行语句 [执行语句] ….. Elseif 逻辑表达式 then 执行语句 [执行语句] ….. Else 执行语句 [执行语句] ….. End if 在这里当第一个逻辑表达式为假时，还可以进行elseif后面的第二种判断，当第个判断又为假时还可以进行第三种判断，直到所有的逻辑表达式都不成立后才执行else后面的语句，其中如果条件符合某个elseif后面的逻辑表达，则只执行这个elseif后面的语句。这种判断语句较为复杂，不建议初学者使用，只有能逐步熟悉掌握了以前几种判断语句的用法及步骤，这个语句才能得心应手。 例： 假定当前已打开工作簿，第一个表的 A1单元格的内容为考试成绩，我们要在B1里输入根据A1成绩相对应的等级 If sheet1.range(“a1”)90 then Sheet1.range(“b1”)=”优” Elseif sheet1.range(“a1”)80 then Sheet1.range(“b1”)=”良” Elseif sheet1.range(“a1”)70 then Sheet1.range(“b1”)=”中” Else Sheet1.range(“b1”)=”差” End if 在这个例子里，开始时单元格的内容是全部的数字集，它可以是任何一个数字，当运行完第一个条件判断后，如果条件不成立，单元格的数字则只能是90以下的任意数字了，如果第二个条件判断不成立，那它就只能是80以下的数字了，如果所有的判断都不成立，那就只能执行else后面的语句。 在运行这一段程序的当中，并不是所有所有符合条件的语句都执行，而是优先执行最先符合条件的，执行完就退出判断语句，例如a1单元格的内容是91，符合条件的有三个，由于sheet1.range(“a1”)90这个条件在前，那么b1单元格内就会赋值为”优”,其余两个条件就不再做判断。反过来，如果是sheet1.range(“a1”)70这个条件在前，这个判断语句就只能是以这个条件为判断，即使a1单元格内为100，b1单元格也只能赋值为”中”,也就是说sheet1.range(“a1”)90和sheet1.range(“a1”)80这两个条件起不了作用了。所以在编写这种判断语句时应注意逻辑表达式的先后顺序。 判断语句之SELECT 格式：select case 对象 Case [is 逻辑运算符] 变量（或常量）