VBA“不等于”运算符VBA“不等于”的分步示例

不等于是VBA中的一个运算符,也可以称为取反运算符,它是一个逻辑函数,因此此函数返回的输出为true或false,我们知道equal运算符为“ =”,但不等于为“在VBA中”,因此无论我们从equal运算符获得的值如何,我们都会使用Not Equal运算符获得完全相反的值。

VBA中的“不等于”运算符

通常,我们会进行逻辑测试“某物是否与另一物相等”。在某些情况下,我们需要 “不等式” 测试。不等式 测试不过是平等的测试而已。通常,我们说某事物是否与其他事物相等,如果相等则执行某种任务,如果不是不同的任务。同样使用 不等式 测试我们也可以做某种操作。 VBA中的“不等于”由大于和小于符号的组合表示。如果这两个运算符组合在一起,则它变成不相等的符号,即 “”.

如何不等于在Excel VBA中工作?

VBA不等于的工作原理与等于运算符的逻辑完全相反。如果满足提供的测试要求,等于运算符将返回TRUE,否则将返回FALSE。例如,如果您说10 = 10,它将返回TRUE或FALSE。

另一方面,“不等于”的作用方向相反,如果excel中提供的逻辑测试不相等,则只有它会返回TRUE或FALSE。

例如,如果您说10 10,则它将返回FALSE,因为10等于10。为了获得TRUE结果,一个值不应等于另一个值。

Excel VBA中不等于的示例

下面是Excel VBA中不等于运算符的示例。

范例#1

现在,我们将看到如何实际使用VBA不等于()符号。看下面的代码。

代码:

 Sub NotEqual_Example1()Dim k作为字符串k = 100100 MsgBox k End Sub 

在这里,我们正在测试数字100是否不等于数字100。可以肯定的是,我们知道数字100等于100,因此结果为FALSE。

现在,我将更改方程式。

代码:

 Sub NotEqual_Example1()Dim k作为字符串k = 100 99 MsgBox k End Sub 

现在测试数字100是否等于99。因此结果为TRUE。

范例#2

现在,我们将看到如何在实时示例中使用此不等于运算符。为了演示,我创建了一些数据。

我们有两个值,“值1”和“值2”。

现在,我的要求是,如果值1不等于值2,那么我需要将结果作为“不同”,否则我需要将结果作为“相同”。

步骤1: 将变量定义为整数。

代码:

 Sub NotEqual_Example2()Dim k作为整数结束Sub 

第2步: 从2到9打开FOR NEXT LOOP。

代码:

 Sub NotEqual_Example2()Dim k作为整数,对于k = 2到9下一个k结束Sub 

第三步: 在循环内部,我们需要测试值1是否不等于值2。由于我们需要自己的结果,因此需要使用IF条件。

代码:

 Sub NotEqual_Example2()Dim k作为整数,对于k = 2到9如果单元格(k,1)单元格(k,2)然后单元格(k,3).Value =“其他”其他单元格(k,3).Value =如果下一个k结束,则“相同”结束 

如果条件测试值1是否等于值2。如果不相等,将返回“不同”,如果相等,则将返回“相同”。

您可以复制并粘贴以下VBA代码。

将此代码复制到您的模块并使用F5键或手动运行。这将返回这样的结果。

隐藏和取消隐藏不等号的工作表

使用不相等的唱歌的各种方式是巨大的。我们可以使用这个标志来满足我们的需求。

#1 –隐藏除一张纸之外的所有纸

我们已经多次看到这种情况。我们需要隐藏除特定工作表之外的所有工作表。

例如,如果要隐藏除工作表名称“ Customer Data”之外的所有工作表,则可以使用此代码。

代码:

 Sub Hide_All()将ActiveWorkbook.Worksheets中的每一个Ws作为工作表的Ws.Ws.Name如果是“客户数据”,则Ws.Visible = xlSheetVeryHidden End(如果下一个Ws结束) 

笔记: 将工作表名称更改为您的工作表名称。

#2 –取消隐藏除一张纸之外的所有纸

同样,我们也可以取消隐藏除一张纸之外的所有纸。使用以下代码执行此操作。

代码:

 Sub Unhide_All()在ActiveWorkbook.Worksheets中将Ws作为工作表的Ws.Ws.Name如果是“客户数据”,则Ws.Visible = xlSheetVisible结束,如果下一个Ws结束 

您可以在此处下载此VBA不等于Excel模板– VBA不等于运算符模板