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