Excel VBA: Ако ќелијата содржи вредност, тогаш вратете го одреден излез

Hugh West

16-10-2023 Макроа & засилувач; Excel VBA
  • Споделете Го Ова
Hugh West

Во оваа статија, ќе ви покажам како можете да ја анализирате ситуацијата во Excel VBA ако ќелијата содржи вредност. Ќе научите да ја анализирате ситуацијата и за која било вредност и за одредена вредност.

Excel VBA анализа: ако ќелијата содржи вредност тогаш (Брз преглед)

2145

Преземете ја работната книга за вежбање

Преземете ја оваа работна книга за вежбање за да вежбате додека ја читате оваа статија.

VBA If Cell Contains Value then.xlsm

Excel VBA анализа: ако ќелијата содржи вредност, тогаш вратете ги резултатите (чекор по чекор анализа)

Овде имаме збир на податоци со оценките на некои студенти по физика, хемија, и Математика во училиште наречено „Сончоглед градинка“. Сега да ја анализираме ситуацијата, без разлика дали ќелијата содржи вредност или не, со овој сет на податоци.

⧪ Чекор 1: Декларирање на ќелијата

Прво, треба да да ја декларираме ќелијата чија вредност сакаме да ја анализираме. Ајде да анализираме дали Џенифер Марло се појавила на испитот по физика или не.

Затоа, треба да провериме дали ќелијата C12 содржи вредност или не.

За да го направите тоа, прво, треба да ја декларираме ќелијата C12 .

Ринијата на кодот за да се постигне ова ќе биде: 

4983

⧪ Чекор 2: Проверка дали ќелијата содржи вредност (вклучувајќи и посебна вредност)

Следно, треба да провериме далиќелијата содржи вредност или не. Ќе го извршиме ова со помош на условот Ако . Линијата од кодот ќе биде: 

7048

Овој код ќе се изврши ако ќелијата содржи некоја вредност. За да проверите дали има вредност (на пример, дали содржи 100 или не), користете ја таа специфична вредност со симбол Еднакво на . 

6135

⧪ Чекор 3: Доделување на задачата

Потоа треба да поставите задача што ќе се изврши ако ќелијата содржи вредност (или одредена вредност).

Тука сакаме да ја прикажеме пораката „Џенифер Марло се појави на испит по физика.“ . Значи, линијата на кодот ќе биде: 

9886

⧪ Чекор 4: Завршување на блокот If

Конечно, треба да прогласите крај на блокот If. 

4720

Значи, целосниот VBA код ќе биде:

⧭ VBA код: 

7738

⧭ Излез:

Изврши го овој код со кликнување на копчето Изврши Sub/UserForm на лентата со алатки.

Ќе ја прикаже пораката „Џенифер Марло се појави на испит по физика.“ бидејќи ќелијата C12 содржи вредност, од 50 .

Примери кои вклучуваат ако ќелијата содржи вредност, тогаш одреден излез со Excel VBA

Научивме да анализираме дали ќелијата содржи вредност или не во VBA . Сега, ајде да истражиме неколку примери за да го разјасниме разбирањето.

1. Развивање макро за филтрирање вредност Ако соодветната ќелија содржи вредност, тогаш во Excel VBA

Ајде да развиеме Макро за да ги филтрираме учениците што се појавија на секој од испитите.

Тоа значи, треба да ги провериме ќелиите што ги содржат оценките за секој од предметите и да видиме дали содржат вредност или не.

Ако го направат тоа, тогаш треба да го средиме името на соодветниот ученик.

Целосниот код VBA за да се постигне ова ќе биде:

⧭ VBA код: 

8279

⧭ Излез:

Изберете го множеството податоци ( Вклучувајќи ги Заглавија ) и активирајте го ова Макро .

Прво, ќе биде побарано да ја внесете референцата на првата ќелија каде што сакате филтрирани податоци. Внесов G3 .

Потоа кликнете OK . Ќе ги добиете имињата на студентите кои се појавија на секој од испитите (вклучувајќи ги и Заглавија ) во нов сет на податоци почнувајќи од ќелијата G3 .

2. Креирање на функција дефинирана од корисникот за подредување вредност ако соодветната ќелија содржи специфична вредност, тогаш во Excel VBA

Сега ќе создадеме функција дефинирана од корисникот која ќе ги врати имињата на учениците кој добил специфична оцена по секој од предметите.

Постапката е речиси иста како горенаведената. Мораме да ги провериме ќелиите што ги содржат оценките на секој од предметите и да видиме дали се еднакви на одредена вредност или не.

Ако се, тогаш ќе го вратиме името на соодветниот ученик.

Кодот VBA ќе биде:

⧭ VBAКод: 

1838

⧭ Излез:

Кодот создава функција наречена Cells_with_Values која зема два аргументи, Опсег и Вредност .

Ајде да ги дознаеме учениците кои добиле 100 во секој од предметите користејќи ја оваа функција.

Изберете опсег на ќелии во вашиот работен лист и внесете ја оваа функција во првата ќелија од опсегот:

=Cells_with_Values(B3:E13,100)

[Тука B3: E3 е моето множество податоци (вклучувајќи ги Заглавија ) и 100 е мојата вредност што одговара. Го користите вашиот.]

Потоа притиснете CTRL + SHIFT + ENTER ( Формула за низа ). Ќе врати низа составена од имињата на учениците кои добиле 100 по секој предмет, вклучувајќи ги и Заглавија .

3. Развивање на корисничка форма за извлекување вредност ако соодветната ќелија содржи каква било вредност (или специфична вредност) во Excel VBA

Конечно, ќе развиеме UserForm за да го извлечеме имиња на студенти кои се појавиле (или добиле конкретни оценки) на некои специфични испити.

⧪ Чекор 1: Отворање на UserForm

Одете на Вметни > Опција UserForm во уредникот VBA за да се отвори нова UserForm . Ќе се отвори нова UserForm наречена UserForm1 .

⧪ Чекор 2: Повлекување на алатки до UserForm

Покрај UserForm , ќе ја добиете и Toolbox . Поместете го курсорот над Плоча со алатки и повлечете 4 етикети (Label1, Label2,Label3, Label4) и 3 ListBox (ListBox1, ListBox2, ListBox3) и TextBox (TextBox1) во правоаголна форма над UserForm .

Потоа повлечете друга Label (Label5) и TextBox (TextBox2) до долниот лев агол на UserForm .

Конечно, повлечете го CommandButton (CommandButton1) до долниот десен агол.

Променете ги приказите на Labels во Lookup Cooln , Врати колона , Која било вредност или специфична вредност , Вредност, и почетна ќелија.

Исто така, сменете го приказот на CommandButton1 во OK .

⧪ Чекор 3: Пишување код за ListBox3

Двоен клик на ListBox3 . Ќе се отвори Приватна потпроцедура наречена ListBox3_Click . Внесете го следниов код таму. 

7748

⧪ Чекор 4: Пишување код за CommandButton1

Потоа кликнете двапати на CommandButton1 . Ќе се отвори друга Приватна потпроцедура наречена CommandButton1_Click . Внесете го следниов код таму. 

2566

⧪ Чекор 5: Пишување код за извршување на UserForm

На крајот, вметнете нов Модул од VBA алатник и вметнете го следниов код таму. 

6183

⧪ Чекор 6: Извршување на UserForm (Конечниот излез)

Вашиот UserForm сега е подготвен за употреба. Изберете го множеството податоци од работниот лист ( B3:E13 овде) (вклучувајќи ги Заглавија ) истартувајте го Макрото наречено Run_UserForm .

UserForm ќе се вчита во работниот лист. Од табелата Колона за пребарување , ги избрав Физика и Математика , бидејќи сакам да ги добијам имињата на учениците кои се појавија во Физика и испити Математика .

Од табелата Повратна колона , избрав Име на ученикот , бидејќи сакам да ги добијам имињата на учениците.

И од табелата Било која вредност или специфична вредност , избрав Било која вредност .

Конечно, во Почетна ќелија полето , ставив G3 .

Потоа кликнете OK . Ќе ги добиете имињата на учениците кои се појавија на испитите по физика и математика почнувајќи од ќелијата G3 .

Ако сте избрале Специфична вредност од табелата Било која вредност или специфична вредност , би добиле друга TextBox за да ја внесете конкретната вредност.

Овде внесов 100 .

Кликнете OK . И ќе ги добиете студентите кои добија 100 по физика и хемија .

Работи што треба да се запаметат

Користевме дводимензионална низа за да ги вратиме имињата на учениците во функцијата дефинирана од корисникот опишана во примерот 2 .

Претходен пост Долната лента за лизгање недостасува во Excel (7 можни решенија)
Следен пост Како да се преклопат линиски графикони во Excel (3 соодветни примери)

Хју Вест е високо искусен тренер и аналитичар на Excel со повеќе од 10 години искуство во индустријата. Има диплома за сметководство и финансии и магистер по бизнис администрација. Хју има страст за предавање и има развиено уникатен пристап на наставата кој е лесен за следење и разбирање. Неговото стручно познавање на Excel им помогна на илјадници студенти и професионалци ширум светот да ги подобрат своите вештини и да се истакнат во нивните кариери. Преку својот блог, Хју го споделува своето знаење со светот, нудејќи бесплатни упатства за Excel и онлајн обука за да им помогне на поединците и бизнисите да го достигнат својот целосен потенцијал.