Егер сіз VBA көмегімен ішкі жолды табудың ең оңай жолдарын іздесеңіз, сіз дұрыс жердесіз. Осы мақаланы оқығаннан кейін сіз ішкі жолдың орнын таба аласыз немесе осы ішкі жолды пайдаланып деректерді шығара аласыз немесе ішкі жолдың пішімін оңай өзгерте аласыз. Мақалаға кірісейік.

Жұмыс кітабын жүктеп алу

VBA көмегімен ішкі жолды табудың 9 жолы

Осы жерде менде келесілер бар деректер кестесі, ол арқылы VBA арқылы жолда ішкі жолды табу жолдарын көрсетемін. Мен сондай-ақ кездейсоқ жолдағы ішкі жолды табу жолдарын көрсетуге тырысамын.

Мен бұл тапсырманы Microsoft Excel 365 нұсқасы арқылы орындадым, сіз өзіңізге ыңғайлы кез келген басқа нұсқаны пайдалана аласыз.

1-әдіс: VBA көмегімен жолда ішкі жолды табу

Егер VBA көмегімен жолда қажетті ішкі жолды тапқыңыз келсе, VBA кодындағы InStr функциясы.

01-қадам :

➤ Әзірлеуші ​​ қойындысы>> Visual Basic Опция

Содан кейін Visual Basic редакторы ашылады.

➤<11 бөліміне өтіңіз>Insert Tab>> Модуль Опция

Осыдан кейін Модуль жасалады.

02-қадам :

➤Келесі кодты жазыңыз

2836

Осында, InStr(1, “ Мен ойлаймын, сондықтан мен бармын», «ойлаймын») жолдың ішкі жолының орнын қайтарады. 1 бұлбастапқы позиция, « Менің ойымша, сондықтан мен бармын» - қажетті ішкі жолды табатын жол және «ойлау» - тапқыңыз келетін ішкі жол. Ол әдепкі бойынша регистрді ескереді, сондықтан іздегіңіз келетін ішкі жолдың регистрінен сақ болыңыз.

➤ F5

пернесін басыңыз. Нәтиже :

Осыдан кейін сіз "ойлау" ішкі жолының орнын қамтитын келесі хабарлама жолағын аласыз.

2-әдіс: Жолда регистрді сезбейтін ішкі жолды табу

Егер VBA көмегімен регистрге қарамастан жолда қалаған ішкі жолды тапқыңыз келсе, мынаны орындаңыз әдіс.

01-қадам :

➤ 01-қадам әдіс-1

6122

Мұнда vbTextCompare регистрді ескермейтін ішкі жолды табу үшін пайдаланылады.

➤ F5

пернесін басыңыз. Нәтиже :

Содан кейін сіз "ойлау" ішкі жолының орнын қамтитын келесі хабарлама жолағын аласыз.

Келесі кодты пайдалану арқылы дәл осылай жасауға болады.

6002

Мұнда Мәтінді салыстыру опциясы регистрді ескермейтін ішкі жолды табады.

➤ F5

Нәтиже пернесін басыңыз:

Содан кейін Мен келесі "ойлау" ішкі жолының орнын қамтитын хабарлама жолағын аламын.

3-әдіс: InstrRev функциясын пайдалану VBA ішінде

Мұнда мен a соңынан ішкі жолды табу жолын көрсетемінжол.

01-қадам :

➤ 01-қадам әдіс-1

8663

InStrRev сол жақтың орнына оң жақтағы ішкі жолды табады.

➤ F5

Нәтиже :

Содан кейін сіз келесі Хабарлама жолағын оның екінші “I” ішкі жолының орнын аласыз. оң жағы.

4-әдіс: Деректер ауқымындағы жолдағы ішкі жолдың орнын табу

Егер арнайы таңбаны тапқыңыз келсе “@” Электрондық пошта идентификаторы , содан кейін осы әдісті орындаңыз. Мен мұнда Орын бағанын осы мақсат үшін қостым.

01-қадам :

➤Бөліңіз 01-қадам 1-әдіс

3138

Ол FindSubstring (кез келген басқа атауды пайдалана аласыз)

мәні жолды қамтитын ұяшық сілтемесі және ол Ауқым ретінде жарияланады.

Қадам -02 :

➤Шығуды таңдаңыз Ұяшық E5

➤Келесі функцияны теріңіз ( VBA арқылы жасалған)

=FindSubstring(D5)

D5 - жолды қамтитын ұяшық.

➤ басыңыз. ENTER

➤ Толтыру тұтқасы Құрал

Нәтиже :

Одан кейін сіз Электрондық пошта идентификаторында “ @” арнайы таңбаның орындарын аласыз.

Ұқсас оқулар:

• Қалай табуға боладыExcel бағдарламасында VBA көмегімен ұяшықтағы жол (2 әдіс)
• Excel бағдарламасында VBA көмегімен келесіні табу (2 мысал)
• Жолды қалай табуға болады Excel бағдарламасындағы VBA (8 мысал)
• VBA Excel бағдарламасында соңғы жолды табу (5 әдіс)

5-әдіс: белгілі бір ішкі жолды тексеру a Деректер ауқымындағы жол

Нәтиже бағанына байланысты студенттердің атына Өтілді немесе Сәйкес келмеді деп жазғыңыз келеді делік. мұндағы Өту немесе Сәтсіз жақшаға жазылған. Бұл ішкі жолды Нәтиже бағанында табу және оны Өту немесе өтпеу бағанына жазу үшін осы әдісті орындаңыз.

01-қадам :

➤ 1-әдіс

3879

осындағы 01-қадам қадамын орындаңыз. Мұнда ұяшық ауқымы C5:C10 ол Нәтиже бағаны

InStr(ұяшық.мән, "Өту") > 0 - сан нөлден үлкен болатын шарт (ұяшықта “Өту” болған кезде)  одан кейін келесі жол жалғасады және көрші ұяшықта Өтті<12 ретінде нәтиже береді>.

Егер шарт жалған болса, ұяшықта ешбір “Өту” жоқ дегенді білдіреді, онда Әйтпесе жолының астындағы жол орындалады және келесіде шығыс мәнін береді. көрші ұяшық Сәтсіз ретінде.

Бұл цикл әрбір ұяшық үшін жалғасады.

➤ F5 <пернесін басыңыз. 1>

Нәтиже :

Содан кейін Өтілді немесе сәтсіз аяқталды» бөлімінде келесі нәтижелерді аласыз. баған.

6-әдіс: Жолдағы белгілі бір ішкі жолды тексеру және мәліметтерді шығару

Аты аталған оқушыларды табу жолын көрсетемін. Майкл Студент аты бағанында және осы әдісте VBA арқылы сәйкес деректерді шығарып алыңыз.

01-қадам :

➤ 1-әдіс

2405

Мұнда мен <пайдаландым 11>B100 Белсенді парақ диапазоны ретінде, бірақ пайдалануыңызға қарай кез келген ауқымды пайдалануға болады.

InStr(1, Range("B" & i), "Michael") > 0 бұл ұяшықтың бар-жоғын тексеру шарты B бағанында Майкл

Range("E" & icount & ":G" & icount) шығыс деректері қажет ауқым және Range("B" & i & ":D" & i).value мәндерді береді B бағандарынан D дейін.

➤ F5

<11 пернесін басыңыз>Нәтиже :

Осыдан кейін сіз Майкл атты студенттер үшін келесі шығарылған деректерді аласыз.

7-әдіс: Word үшін ішкі жолды іздеу

Егер сіз ішкі жолды сөз ретінде тапқыңыз келсе, онда fol бұл әдісті төмендетіңіз.

01-қадам :

➤ 1-әдіс

6034

Ол жолда бар-жоғын тексереді, содан кейін оның орны беріледі

➤ F5 басыңыз

Нәтиже :

Одан кейін сіз келесі хабарлама терезесін аласыз, ол жерде орналасқан сөз:6 (<11 орны)>is ).

Тестілеуге боладыжолда жоқ сөз үшін осы кодты шығарыңыз.

➤Келесі кодты теріңіз

7905

➤ F5 <пернесін басыңыз. 1>

Нәтиже :

Содан кейін сіз сөз табылмады көрсететін келесі хабарлама терезесін аласыз.

8-әдіс: Instr және LEFT функциясын пайдалану

Мұнда мен жолдағы ішкі жолдың орнын табу және арқылы осы ішкі жолдың алдындағы мәтіндерді шығару жолын түсіндіремін. VBA және СОЛ функциясы .

01-қадам :

➤ қадам-01 қадамын орындаңыз. 11>1-әдіс

9082

j = InStr(txt, "is") - ішкі жолдың орны және Left(txt, j - 1) <11-ге дейінгі ішкі жолдарды шығарады>is .

➤ F5

Нәтиже :

басыңыз Одан кейін сіз Мұнда ( болу алдындағы ішкі жол) көрсететін келесі хабарлама терезесін аласыз.

Әдіс-9: қалыңдау Жолдағы белгілі бір ішкі жол

Осы әдісті орындау арқылы Нәтиже бағанындағы жақшаның алдындағы бағаларды қоюлатуға болады d.

01-қадам :

➤ Әдістің 01-қадам - 1

8137

txt = InStr(1, Cell, "(") бірінші жақшаның орнын қайтарады және Cell.Characters(1, txt - 1).Font.Bold ішкі жолды Қалың бірінші жақшаның алдында жасайды.

02-қадам :

➤ Нәтиже бағанын таңдаңыз

➤Өту Әзірлеуші ​​ қойындысы>> Макростар Опция

Содан кейін Макрос шебері пайда болады.

➤ Boldingubstring (VBA код атауы), одан кейін Орындау таңдаңыз.

Нәтиже :

Одан кейін Нәтиже бағанындағы бағалар қою шрифтпен жазылады.

Тәжірибе бөлімі

Өз бетінше тәжірибе жасау үшін біз төменде Тәжірибе деп аталатын парақта Тәжірибе бөлімін ұсындық. Мұны өзіңіз жасаңыз.

Қорытынды

Бұл мақалада мен VBA арқылы ішкі жолды табудың ең оңай жолдарын қарастыруға тырыстым. Excel бағдарламасында тиімді. Сізге пайдалы болады деп үміттенемін. Ұсыныстарыңыз немесе сұрақтарыңыз болса, бізбен бөлісіңіз.