photosdematures.com

还是任何一种编程语言中的逻辑函数，以及在VBA中类似的逻辑函数，我们都具有OR函数，因为它是逻辑函数，该函数给出的结果为true或false，此函数用于两个或多个条件，并给出当任何一个条件返回true时，我们为true结果。

VBA中的OR功能是什么？

在excel逻辑函数中，我们每天使用的公式的核心。逻辑函数在那里进行逻辑测试，并以布尔数据类型（即TRUE或FALSE）给出结果。 Excel中的一些逻辑公式是“ IF，Excel中的IFERROR，Excel中的ISERROR，AND和OR excel函数”。我希望您经常将它们用作工作表功能。我们也可以在VBA中使用所有这些功能，并且在本文中，我们将向您说明使用“ VBA OR”功能的方式。

当您想到“ OR”一词时，您想到的第一件事是什么？

简而言之，“或”是指 “这个或那个”

出于相同的想法，OR是一个逻辑函数，如果逻辑测试中的任何一个为TRUE，则结果为TRUE；如果逻辑测试中的任何一个都不为TRUE，则结果为FALSE。

这与VBA AND功能完全相反。仅当所有逻辑条件均为TRUE时，AND函数才返回TRUE；如果不满足任何一个条件，则结果为FALSE。

VBA OR函数的公式

让我为您构造一个语法，以帮助您理解该功能。

[逻辑测试]或[逻辑测试]或[逻辑测试]

首先，我们需要提及什么是逻辑测试，然后提及“ OR”一词，然后提及什么是第二个逻辑测试。如果您希望进行更逻辑的测试，则在进行逻辑测试外翻后再提及“ OR”一词。

关闭您执行的所有逻辑测试，如果其中任何一个测试满足或为true，则如果没有一项满足或为true，则结果将为TRUE，则结果为FALSE。

在VBA中使用OR功能的示例

我们将向您展示在VBA中使用OR函数的简单示例。

要了解VBA的逻辑功能，或者让我给您举个例子。假设我们要对数字25大于20或数字50小于30进行逻辑测试。

步骤1： 创建一个宏名称。

第2步： 将变量定义为字符串。

代码：

 Sub OR_Example1（）昏暗为字符串结尾Sub 

第三步： 现在，对于此变量，我们将通过“或”逻辑测试分配值。

代码：

 Sub OR_Example1（）昏暗i作为字符串i =结束Sub 

第4步： 我们的第一个逻辑测试是 25 >20.

代码：

 Sub OR_Example1（）Dim i As String i = 25> 20 End Sub 

步骤5： 现在，在第一个逻辑测试之后，提一下单词 或者 并输入第二个逻辑测试。

代码：

 Sub OR_Example1（）Dim i As String i = 25> 20或50 <30 End Sub 

步骤6： 好的，现在VBA OR函数测试逻辑测试是TRUE还是FALSE。现在将变量的结果分配给VBA 留言框.

代码：

 Sub OR_Example1（）Dim i As String i = 25> 20或50 <30 MsgBox i End Sub 

步骤7： 运行宏，结果是什么。

我们得到的结果为TRUE，因为在两个逻辑测试中，我们提供了一个测试为TRUE，因此结果为TRUE。

25大于20而50不小于30，在这种情况下，第一个逻辑测试为TRUE，第二个为FALSE。因为我们已经应用了VBA OR函数，所以它需要将任一条件设为TRUE才能使结果为TRUE。

现在，看下面的代码。

代码：

 Sub OR_Example1（）Dim i As String i = 25 = 20或50 = 30 MsgBox i End Sub 

我将逻辑测试方程从>和<更改为等号（=）。结果将返回FALSE，因为25不等于20和50不等于30。

具有IF条件的VBA OR功能强大

正如我告诉OR的结果可以返回TRUE或FALSE一样，但是使用其他逻辑函数“ IF”，我们可以根据需要操纵结果。

从上面进行相同的逻辑测试，或仅返回TRUE或FALSE，但让我们将此OR与IF结合起来。

步骤1： 进行任何测试之前，请先打开功能 如果.

代码：

 Sub OR_Example2（）Dim i作为字符串IF结束Sub 

第2步： 现在使用 或者 功能。

代码：

 Sub OR_Example2（）Dim i As String IF 25 = 20或50 = 30 End Sub 

第三步： 如果条件为TRUE，则输入单词“ Then”并写入结果，将值分配给变量为 “满足条件”.

代码：

 Sub OR_Example2（）Dim i as String如果25 = 20或50 = 30则i =“满足条件”结束Sub 

第4步： 如果条件为FALSE，那么我们需要一个不同的结果，因此请输入 “别的” 然后在下一行中将值分配给变量“如果条件或逻辑测试为FALSE，结果应该是什么”。

代码：

 Sub OR_Example2（）Dim i as String如果25 = 20或50 = 30则i =“满足条件”否则i =“不满足条件”结束 

步骤5： 用以下单词结束IF函数 “万一”.

代码：

 Sub OR_Example2（）Dim i As String如果25 = 20或50 = 30然后i =“满足条件”否则i =“不满足条件”结束如果结束Sub 

步骤6： 将变量结果的值分配给 留言框.

代码：

 Sub OR_Example2（）Dim i As String如果25 = 20或50 = 30则i =“满足条件”否则i =“不满足条件” End如果MsgBox i End Sub 

运行宏，如果逻辑测试为TRUE，我们将得到“条件已满足”的结果，否则我们将得到“条件未得到满足”的结果。

我们得到的结果是 “条件不满意” 因为两个逻辑测试均为FALSE。

现在，我将更改逻辑测试。

代码：

 Sub OR_Example2（）Dim i As String如果25> 20或50 <30则i =“满足条件”否则i =“不满足条件” End如果MsgBox i结束Sub 

我将运行宏，看看结果如何。

这样，我们可以将一个逻辑函数与其他逻辑函数一起使用以得出结果。

解决以下案例研究以适应逻辑功能。

解决案例研究

我有员工姓名及其所属部门。

如果您尝试过但未找到结果，则可以参考下面的代码来理解逻辑。

代码：

 Sub Bonus_Calculation（）Dim i只要i = 2到10，如果Cells（i，2）.Value =“ Finance”或Cells（i，2）.Value =“ IT”然后Cells（i，3）.Value = 5000个其他像元（i，3）。值= 1000如果下一个i结束子项结束 

如果员工来自“财务”或“ IT”，则他们应获得“ 5000”的奖金。对于其他部门员工，奖金为“ 1000”。

进行逻辑测试并得出结果。