VBA за проверка дали низата содржи друга низа во Excel (6 методи)

  • Споделете Го Ова
Hugh West

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

Преземете шаблон за вежбање

Вие може да го преземете образецот за бесплатна пракса Excel од овде.

VBA за да проверите дали низата содржи вредност.xlsm

6 методи во VBA да проверите дали низата содржи друга низа во Excel

Подолу во овој дел, ќе најдете 6 ефективни методи како да се имплементира VBA за да проверите дали низата содржи друга низа или не .

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

Подолу е пример за функцијата InStr за да откриете дали низата содржи подниза во Excel.

Чекори:

  • Притиснете Alt + F11 на тастатурата или одете во картичката Програмер -> Visual Basic за да се отвори Visual Basic Editor .

  • Во скокачкиот прозорец со код, од лентата со мени , кликнете Вметни -> Модул .

  • Во прозорецот за код, копирајте го следниот код и залепете го.
8117

Вашиот кодот сега е подготвен за извршување.

  • Изврши макрото.

Ако вашата низа ја содржи поднизата тогаш ќе добиете пронајдена совпаѓање, во спротивно, нема да врати не е пронајдено совпаѓање.

Во нашиот пример , сакавме да дознаеме дали нашитепримарна низа „ Филм: Iron Man, Batman, Superman, Spiderman, Thor “ го содржи зборот „ Hulk “ или не. Како што не, добиваме резултат Филмот не е пронајден .

2. VBA за проверка дали низата содржи број

Можете да пребарувате дали низите содржат броеви или не со користење на кодот VBA .

Погледнете го следниот пример каде што ние ќе открие кои низи содржат броеви со имињата на филмовите.

Подолу се дадени чекори за проверка дали низите содржат броеви со VBA .

Чекори:

  • Исто како и претходно, отворете го Visual Basic Editor од картичката Developer и Insert a Модул во прозорецот со код.
  • Во прозорецот со код, копирајте го следниот код и залепете го.
5431
  • Ова не е Под-процедура за извршување на програмата VBA , ова создава Функција дефинирана од корисникот (UDF), која ќе ја повикаме во нашиот работен лист за да се изврши задачата. Така, откако ќе го напишете кодот, наместо да кликнете на копчето Стартувај , кликнете на копчето Зачувај од лентата со мени за да ја зачувате макро-датотеката.
  • Сега вратете се назад на работниот лист од интерес и напишете ја функцијата дефинирана од корисникот што штотуку ја создадовте во кодот VBA ( SearchNumber , во првата линија од кодот) и во заградите на функцијата , внесете го референтниот број на ќелијата на ќелијата од низата што има водечки броеви (на пр. ЌелијаB5 ).
  • Притиснете Enter .

Ќе добиете булова вредност ( TRUE или Неточно ), ако низата во ќелијата содржи броеви, тогаш ќе добиете ТОЧНО , во спротивно НЕТОЧНО .

  • Повлечете ја ќелијата надолу за Пополнете рачка за да ја примените формулата на останатите ќелии за да проверите која низа содржи броеви, а која не.

3. VBA за екстракција на броеви од стринг

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

Чекори за проверка дали низите содржат броеви и ги извлекуваме со VBA се дадени подолу.

Чекори:

  • Отворете Visual Basic Editor од табот Програмер и Вметни а Корисничка форма овој пат од картичката Вметни во прозорецот за код.
  • Од појавената Поле со алатки , повлечете и спуштете го CommandButton во UserForm .

  • Двоен клик на копче, копирајте го следниов код и залепете го.
1516
  • Изврши кодот и ќе ве однесе до работниот лист што ве интересира.
  • Кликнете на Командното копче и ќе го добиете извлечениот број од низите.

4. VBA за проверка дали низата содржи одредена буква

Овој метод е речисисличен на методот за проверка на подниза во низа.

Подолу е функцијата InStr за да откриете дали низата содржи одредена буква во Excel.

Чекори :

  • Исто како и претходно, отворете го Visual Basic Editor од картичката Developer и Вметнете a Модул во прозорецот со код.
  • Во прозорецот со код, копирајте го следниов код и залепете го.
5142

Вашиот код сега е подготвен за извршување.

  • Изврши програмата. Ако вашата низа ја содржи буквата тогаш ќе добиете пронајдено совпаѓање, во спротивно, нема да се најде совпаѓање.

Во нашиот пример , сакавме да откриеме дали нашата примарна низа „ Филм: Iron Man, Batman, Superman, Spiderman, Thor “ ја содржи буквата „ Z “ или не. Како што не, добиваме резултат Не е пронајдено писмото .

5. VBA за проверка дали опсегот на низа содржи друг стринг

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

Чекори:

  • Отворете Visual Basic Editor од табулаторот Developer и Вметнете a Module во прозорецот за код .
  • Во прозорецот со код, копирајте го следниот код и залепете го.
8288

Вашиот код сега е подготвен даработи.

  • Изврши кодот.

Ако вашиот опсегот на стрингот ја содржи поднизата тогаш ќе добиете пронајдена совпаѓање, во спротивно, нема да врати дека не е пронајдено совпаѓање.

6. VBA за екстракција на низи од стринг

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

Ќе ги извлечеме информациите од имиња кои почнуваат со „ Chris “ од следната база на податоци.

Чекори :

  • Отворете Visual Basic Editor од табулаторот Програмер и Вметнете Модул во прозорецот за код.
  • Во прозорецот со код, копирајте го следниов код и залепете го.
5450

Вашиот код сега е подготвен за извршување.

  • Изврши кодот.

Само имињата што почнуваат со „ Крис “ ќе да се складираат во претходно дефинираните ќелии.

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