ВБА Оператор "Није једнак" | Примери корак по корак ВБА „Није једнако“
Нот Екуал је оператор у ВБА који се такође може назвати негационим оператором, то је логична функција, тако да је излаз који враћа ова функција истинит или нетачан, знамо да је једнаки оператор „=“ ово, али не и једнако „ ”У ВБА, па без обзира на вредност коју добијемо од једнаког оператора, добићемо потпуно супротну вредност користећи оператор Неједнако.
Оператор „Није једнак“ у ВБА
Обично радимо логички тест „да ли је нешто једнако нечему или не“. У неким случајевима морамо да урадимо „Неједнакост“ тест такође.Неједнакост тест није ништа друго до није једнак тест. Генерално кажемо ако је нешто једнако другој ствари или не, ако је једнако, извршава неку врсту задатка, ако не и другачији задатак. Слично томе користећи Неједнакост тест такође можемо обавити неку врсту операције. „НИЈЕ ЈЕДНАКО“ у ВБА представља комбинацију већих и мањих симбола. Ако се оба ова оператора комбинују, онда то постаје неједнаки симбол тј. “”.
Како није једнако раду у Екцел ВБА?
ВБА Не једнак ради тачно супротно логици једнак оператору. Једнако оператеру враћа ТРУЕ ако је испоручени тест задовољен, неће вратити ФАЛСЕ. На пример, ако кажете 10 = 10, вратиће се ТРУЕ или ФАЛСЕ.
С друге стране, „Није једнако“ делује у супротном смеру, ако испоручени логички тест у екцелу није једнак, онда ће вратити ТРУЕ или иначе ФАЛСЕ.
На пример, ако кажете 10 10, вратит ће се ФАЛСЕ јер је 10 једнако 10. Да бисте добили ИСТИНИТИ резултат, једна вриједност не би требала бити једнака другој вриједности.
Примери који нису једнаки онима у програму Екцел ВБА
Испод су примери који нису једнаки оператору у програму Екцел ВБА.
Пример # 1
Сада ћемо видети како практично да користимо знак ВБА Нот Екуал (). Погледајте доњи део кода.
Шифра:
Суб НотЕкуал_Екампле1 () Дим к Ас Стринг к = 100 100 МсгБок к Енд Суб
Овде тестирамо да ли број 100 није једнак броју 100. Сигурно знамо да је број 100 једнак 100, па ће резултат бити ФАЛСЕ.
Сада ћу променити једначину.
Шифра:
Суб НотЕкуал_Екампле1 () Дим к Ас Стринг к = 100 99 МсгБок к Енд Суб
Сада је тест да ли број 100 није једнак 99. Дакле, резултат ће бити ТАЧАН.
Пример # 2
Сада ћемо видети како да користимо овај неједнаки оператор у примерима у реалном времену. За демонстрацију сам створио неке податке.
Имамо две вредности, „Вредност 1“ и „Вредност 2“.
Сада је мој захтев ако вредност 1 није једнака вредности 2, онда ми је потребан резултат „Различит“, или ми је потребан резултат као „исти“.
Корак 1: Дефинишите променљиву као целобројно.
Шифра:
Суб НотЕкуал_Екампле2 () Дим к Ас Интегер Енд Суб
Корак 2: Отворено ЗА СЛЕДЕЋУ петљу од 2 до 9.
Шифра:
Суб НотЕкуал_Екампле2 () Дим к као целобројно за к = 2 до 9 Следеће к Крај Суб
Корак 3: Унутар петље морамо да тестирамо да ли вредност 1 није једнака вредности 2. Будући да су нам потребни сопствени резултати, морамо да користимо ИФ Цондитион.
Шифра:
Суб НотЕкуал_Екампле2 () Дим к као цео број за к = 2 до 9 Ако су ћелије (к, 1) ћелије (к, 2) Затим ћелије (к, 3) .Валуе = "Различите" Остале ћелије (к, 3) .Валуе = „Исти“ Крај ако је следећи к Крај Суб
Ако услов тестира да ли вредност 1 није једнака вредности 2 или не. Ако није једнако, вратиће „Различито“, ако је једнако, вратиће „Исто“.
Можете да копирате и налепите доле наведени ВБА код.
Копирајте овај код у свој модул и покрените помоћу тастера Ф5 или ручно. Ово ће вратити овакав резултат.
Сакриј и откриј листове са предзнаком који није једнак
Различити начини коришћења неједнаког синга су огромни. Овај знак можемо користити за испуњавање својих потреба.
# 1 - Сакриј све листове осим једног листа
Много пута смо видели овакву ситуацију. Морали смо да сакријемо све табаке, осим одређеног.
На пример, ако желите да сакријете све листове, осим имена листа „Подаци купца“, можете да користите овај код.
Шифра:
Суб Хиде_Алл () Затамни В као радни лист за сваки Вс у АцтивеВоркбоок.Ворксхеетс Иф Вс.Наме "Цустомер дата" тхен Вс.Висибле = клСхеетВериХидден Енд Иф Нект Вс Енд Суб
# 2 - Откриј све листове осим једног листа
Слично томе, такође можемо открити све листове осим једног листа. За то користите доњи код.
Шифра:
Суб Унхиде_Алл () Затамни Вс као радни лист за сваки Вс у АцтивеВоркбоок.Ворксхеетс Иф Вс.Наме "Цустомер Дата" Онда Вс.Висибле = клСхеетВисибле Енд Иф Нект Вс Енд Суб
Овде можете преузети овај предложак ВБА није једнако Екцел-у - ВБА није једнако оперативни образац
