VBA "Не е равен" оператор - Примери стъпка по стъпка на VBA „Не е равно на“

Съдържание

Оператор „Не е равен“ във VBA

Not Equal е оператор във VBA, който също може да бъде наречен като отрицателен оператор, това е логическа функция, така че изходът, върнат от тази функция, е или true, или false, знаем, че операторът за равно е ”Във VBA, така че каквато и стойност да получим от равния оператор, ще получим точно противоположна стойност, използвайки оператор Not Equal.

Оператор „Не е равен“ във VBA

Обикновено правим логичен тест „дали нещо е равно на други неща или не.“ В някои случаи трябва да направим и тест за „неравенство“ . Тестът за неравенство не е нищо друго освен не е равен тест. Като цяло казваме, ако нещо е равно на друго нещо или не, ако е равно, изпълнява някаква задача, ако не и различна задача. По същия начин, използвайки теста за неравенство , ние също можем да направим някаква операция. „НЕ РАВНО“ във VBA е представено чрез комбинацията от по-големи и по-малки от символи. Ако и двата оператора се комбинират, тогава той става не равен символ, т.е. „.“

Как не е равно на работата в Excel VBA?

VBA Не е равно работи точно противоположно на логиката на равно на оператор. Равно на оператора връща TRUE, ако предоставеният тест е изпълнен, не е, той ще върне FALSE. Например, ако кажете 10 = 10, ще се върне TRUE или иначе FALSE.

От друга страна, „Не е равно“ работи в обратна посока. Ако предоставеният логически тест в Excel не е равен, тогава само той ще върне TRUE или иначе FALSE.

Например, ако кажете 10 10, това ще върне FALSE, защото 10 е равно на 10. За да получите ИСТИНСКИ резултат, едната стойност не трябва да е равна на другата стойност.

Примери за Не е равно на в Excel VBA

По-долу са примерите за не е равен на оператора в Excel VBA.

Пример # 1

Сега ще видим как да използваме практически VBA Not Equal (). Погледнете кода по-долу.

Код:

Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub

Тук тестваме дали числото 100 не е равно на числото 100. Със сигурност знаем, че числото 100 е равно на 100, така че резултатът ще бъде FALSE.

Сега ще променя уравнението.

Код:

Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub

Сега тестът е дали числото 100 не е равно на 99. Така че резултатът ще бъде TRUE.

Пример # 2

Сега ще видим как да използваме този неравен оператор в примери в реално време. За демонстрацията създадох някои данни.

Имаме две стойности, „Стойност 1“ и „Стойност 2“.

Сега моето изискване е, ако Стойност 1 не е равна на Стойност 2, тогава се нуждая от резултата като „Различен“, или иначе имам нужда от резултата като „Същият“.

Стъпка 1: Дефинирайте променлива като цяло число.

Код:

Sub NotEqual_Example2 () Dim k As Integer End Sub

Стъпка 2: Отворете FOR NEXT LOOP от 2 до 9.

Код:

Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 Next k End Sub

Стъпка 3: Вътре в цикъла трябва да проверим дали стойност 1 не е равна на стойност 2. Тъй като се нуждаем от собствени резултати, трябва да използваме IF Condition.

Код:

Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 If Cells (k, 1) Cells (k, 2) Тогава клетки (k, 3) .Value = "Различни" Други клетки (k, 3). "Същият" End If Next k End Sub

Да предположим, че условието тества дали стойността 1 не е равна на стойност 2 или не. Ако не е равно, ще се върне „Различно“. Ако е равно, ще се върне „Същото“.

Можете да копирате и поставите долния код на VBA.

Копирайте този код във вашия модул и стартирайте с помощта на клавиша F5 или ръчно. Това ще върне резултат като този.

Скриване и показване на листове с не равен знак

Различните начини за използване на неравномерно пеене са огромни. Можем да използваме този знак, за да задоволим нуждите си.

# 1 - Скриване на всички листове с изключение на един лист

Виждали сме този вид ситуации много пъти. Трябваше да скрием всички листове с изключение на конкретния лист.

Например, ако искате да скриете всички листове с изключение на името на листа „Данни на клиента“, тогава можете да използвате този код.

Код:

Sub Hide_All () Затъмняване на Ws като работен лист за всеки Ws в ActiveWorkbook.Worksheets Ако Ws.Name "Данни на клиента" Тогава Ws.Visible = xlSheetVeryHidden End Ако Next Ws End Sub

Забележка: Променете името на работния лист на името на вашия работен лист.

# 2 - Разкриване на всички листове с изключение на един лист

По същия начин можем също да покажем всички листове с изключение на един лист. Използвайте кода по-долу, за да направите това.

Код:

Sub Unhide_All () Dim Ws As Workheet за всеки Ws в ActiveWorkbook.Worksheets Ако Ws.Name "Данни на клиента" Тогава Ws.Visible = xlSheetVisible End If Next Ws End Sub