Excel 关于VBA中IF多条件语句的用法，虚心求教

1、if语句的含义：if语句字面意思就是如果的意思，如果条件为真，那么就执行if语句里面的程序，这个程序，一般指then后面的，一个if语句可以没有end if，但绝对不能没有then，这一点是要注意的。

2、if……then……结构

该结构一般用于比较简单的判断语句执行，下面以一段实例程序来讲解。

实例：如果第一个单元格不为空，那么就d出一个提示框“单元格不为空”。

程序：

Sub 判断语句()

If Cells(1, 1) <> "" Then MsgBox "单元格不为空"

End Sub

3、if……then……end if结构

该结构用于单选择判断语句执行，具体用法看下面实例。

实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 100

If Cells(i, 1) = "" Then

Cells(i, 2) = "VBA教研室"

Exit For

End If

Next

End Sub

4、if ……then……else……end if结构

该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析。

实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出false，否则输出Ture。

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 2

If Cells(i, 1) = "" Then

Cells(i, 2) = "false"

Else

Cells(i, 2) = "True"

End If

Next

End Sub

5、if ……then……elseif……then……else……end if结构

该结构用于多条件判断语句执行，具体见下面实例分析

实例：对三名同学的成绩作出判断，大于等于80分的为优秀；60到80之间的为及格；0到60分之间的为不及格；0分为考试无效。

程序：

Sub 判断语句()

Dim i As Integer

For i = 2 To 7

If Cells(i, 2) >= 80 Then

Cells(i, 3) = "优秀"

ElseIf Cells(i, 2) < 80 And Cells(i, 2) >= 60 Then

Cells(i, 3) = "及格"

ElseIf Cells(i, 2) < 60 And Cells(i, 2) > 0 Then

Cells(i, 3) = "不及格"

Else

Cells(i, 3) = "考试无效"

End If

Next

End Sub

6、if语句嵌套使用

if语句可以灵活的嵌套使用的，如下面这套程序

Sub 判断语句()

Sub 判断语句()

If Cells(1, 1) <> "" Then

If Cells(1, 1) = "VBA教研室" Then

MsgBox "OK！"

Else

MsgBox "NO！"

End If

End If

End Sub

参考资料：

闰年判断

思路描述：用户通过input输入年份，通过年份除以四余数为0，在除以100余数不为0。或年数除以400余数为0，结合AND 和OR嵌套组合条件，用IF来判断是否为闰年和平年

Private Sub ToggleButton6_Click()

n = InputBox("输入年份：")

MsgBox (n & "年是" & rn(n))

End Sub

Function rn(n)

'根据n的值，判断是闰年还是平年；将结果赋给rn

If (n Mod 4 = 0 Or n Mod 400 = 0) And n Mod 100 <> 0 Then

rn = "闰年"

Else

rn = "平年"

End If

End Function

action代表要在数据透视表或数据表中执行的 *** 作。比如这句：

Range("A1:C27")AdvancedFilter '高级筛选

Action:=xlFilterInPlace, CriteriaRange:= _Range("n"), Unique:=False '筛选条件是变量"n"指定的命名区域

表示要执行"在原有区域显示筛选结果"这一 *** 作。

1VBA到底是什么

VBA是Visual Basic for Applications的缩写，是内嵌于office软件中的一个开发模块，这个模块提供程序自主开发，语言基础和VB（Visual Basic）相似。在Excel的“工具—宏—编辑器”可以打开，也可按Alt+F11打开

2VBA怎么用

进入VBA界面之后，我们打开VBA代码框，打开方式有以下几种方式种：

（说明一下：方式一打开的窗体没有默认对象，程序编写时如果要处理工作表或工作簿的数据，必须指明对象，如：对sheet2工作表的单元格进行处理，那么这样写sheet2cells或sheets(2)cells；方式二和方式一打开的一样，需要指明程序处理的对象；方式三打开的代码框是默认的，也可以重新指定对象，如：双击sheet1工作表，那么在对应的代码框中如果不指定对象，默认对应的是sheet1工作表。）

3实例分析

下面小编将以一段实例程序来说明Excel VBA的高效性和灵活性，

实例：E盘有一个名为VBA教研室的文件夹，文件夹内有200个xls文件，现在我需要获取这200个文件的文件名。

具体程序：

Sub 文件名获取()

Dim i As Integer

Dim myDir, myF, str As String

myDir = "E:\VBA教研室\"

myF = Dir(myDir & "xls")

Do While myF <> ""

str = myF

i = i + 1

ThisWorkbookSheets(1)Cells(i, 1) = Left(str, Len(str) - 4)

myF = Dir()

Loop

End Sub

以上就是关于Excel 关于VBA中IF多条件语句的用法，虚心求教全部的内容，包括:Excel 关于VBA中IF多条件语句的用法，虚心求教、求一个基于VBA的excel应用实例，内容包括所要解决的问题以及解决问题的思路，代码。、VBA action是什么对象,可以举一个程序实例吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！