Jinsi ya Kupata Substring Kutumia VBA (Njia 9)

Hugh West

25-05-2023 Macros & Excel VBA
  • Shiriki Hii
Hugh West

Ikiwa unatafuta baadhi ya njia rahisi za kupata kamba ndogo kwa kutumia VBA, basi uko mahali pazuri. Baada ya kupitia makala haya, utaweza kupata nafasi ya kamba ndogo au kutoa data kwa kutumia kamba hii ndogo au kubadilisha umbizo la kamba ndogo kwa urahisi. Hebu tuingie kwenye makala.

Pakua Kitabu cha Kazi

Sampuli ya maudhui

Njia 9 za Kupata Mizizi ndogo Kwa Kutumia VBA

Hapa, nina zifuatazo Jedwali la data ambalo nitaonyesha njia za kupata kamba ndogo kwenye kamba kwa kutumia VBA. Pia nitajaribu kuonyesha njia za kupata kamba ndogo katika mfuatano wa nasibu.

Nimefanya kazi hii kwa kutumia toleo la Microsoft Excel 365 , unaweza kutumia toleo lingine lolote kulingana na urahisi wako.

Mbinu-1: Kupata Mfuatano Ndogo Katika Mfuatano Kwa Kutumia VBA

Iwapo ungependa kupata mfuatano wako unaoutaka katika mfuatano ukitumia VBA, unaweza kutumia kitendaji cha InStr katika msimbo wa VBA.

Hatua-01 :

➤Nenda kwa Msanidi Tab>> Visual Basic Chaguo

Kisha, Kihariri cha Msingi cha Visual itafunguka.

➤Nenda kwenye Ingiza Tab>> Moduli Chaguo

Baada ya hapo, Moduli itaundwa.

Hatua-02 :

➤Andika msimbo ufuatao 

7347

Hapa, InStr(1, “ Nadhani kwa hivyo mimi ndiye”, “think”) itarudisha nafasi ya kamba ndogo ya mfuatano. 1 ndioanza nafasi, “ Nadhani kwa hivyo mimi ndiye” ndio mfuatano ambapo utapata kamba ndogo unayotaka, na “fikiri” ndio kamba ndogo unayotaka kupata. Kwa chaguo-msingi, ni nyeti kwa hivyo jihadhari na kesi ya kamba yako ndogo unayotaka kutafuta.

➤Bonyeza F5

Matokeo :

Baada ya hapo, utapata Sanduku la Ujumbe linalojumuisha nafasi ya “think” substring.

0>

Mbinu-2: Kupata Mfuatano Mdogo Usiojali Kesi katika Mfuatano

Kama ungependa kupata kamba ndogo unayotaka katika mfuatano bila kujali kesi ukitumia VBA, basi fuata hii. mbinu.

Hatua-01 :

➤Fuata Hatua-01 ya Njia-1 

2326

Hapa, vbTextCompare inatumika kupata kamba ndogo isiyojali kipochi.

➤Bonyeza F5

Matokeo :

Kisha, utapata Kisanduku cha Ujumbe kilicho na nafasi ya “think” substring.

Unaweza kufanya vivyo hivyo kwa kutumia msimbo ufuatao.

8062

Hapa, Chaguo Linganisha Maandishi itapata kamba ndogo isiyojali herufi.

0>

➤Bonyeza F5

Tokeo :

Baadaye, wewe wi nitapata Sanduku la Ujumbe lililo na nafasi ya “fikiri” mfuatano mdogo.

Mbinu-3: Kutumia kitendakazi cha InstrRev. katika VBA

Hapa, nitaonyesha njia ya kupata kamba ndogo kutoka mwisho wa akamba.

Hatua-01 :

➤Fuata Hatua-01 ya Njia-1 

1221

InStrRev itapata kamba ndogo kutoka upande wa kulia badala ya upande wa kushoto.

➤Bonyeza F5

Matokeo :

Kisha, utapata Kisanduku cha Ujumbe kilicho na nafasi ya pili “I” kifungu kidogo kutoka kwa upande wa kulia.

Mbinu-4: Kupata nafasi ya Mfuatano mdogo katika Mfuatano katika Msururu wa Data

Ikiwa ungependa kupata herufi maalum “@” katika Kitambulisho cha Barua pepe , kisha ufuate mbinu hii. Nimeongeza hapa Safu wima ya nafasi kwa kusudi hili.

Hatua-01 :

➤Fuata Hatua-01 ya Njia-1 

2255

Itaunda chaguo la kukokotoa liitwalo FindSubstring (unaweza kutumia jina lingine lolote)

thamani ni rejeleo la seli iliyo na mfuatano na inatangazwa kuwa Msururu .

Hatua -02 :

➤Chagua towe Seli E5

➤Charaza chaguo za kukokotoa zifuatazo (iliyoundwa na VBA )

=FindSubstring(D5)

D5 ni kisanduku kilicho na mfuatano.

➤Bonyeza INGIA

➤Buruta chini Nchi ya Kujaza Zana

Matokeo :

Baadaye, utapata nafasi za herufi maalum “ @” katika Kitambulisho cha Barua pepe .

Masomo Sawa:

  • Jinsi ya KupataKamba kwenye Seli Kwa Kutumia VBA katika Excel (Mbinu 2)
  • Pata Inayofuata Kwa Kutumia VBA katika Excel (Mifano 2)
  • Jinsi ya Kupata Kamba nayo VBA katika Excel (Mifano 8)
  • VBA Tafuta Safu Mlalo katika Excel (njia 5)

Mbinu-5: Kuangalia Mfuatano Fulani katika Mfuatano katika Msururu wa Data

Tuseme, unataka kuandika Pass au Umeshindwa kuendana na majina ya wanafunzi kulingana na safu wima ya matokeo. ambapo Pass au Fail imeandikwa kwenye mabano. Ili kupata mfuatano huu mdogo katika safu wima ya Matokeo na uandike katika safuwima ya Pitisha au shindwa fuata njia hii.

11>Hatua-01 :

➤Fuata Hatua-01 ya Njia-1 

6516

Hapa, safu ya seli ni C5:C10 ambayo ni safu wima ya matokeo

InStr(cell.value, “Pass”) > 0 ni hali ambapo nambari ni kubwa kuliko sifuri (kisanduku kikiwa na “Pasi” )  basi mstari ufuatao utaendelea na kutoa matokeo katika kisanduku kilicho karibu kama Imepitishwa .

Ikiwa hali itakuwa si kweli inamaanisha kuwa kisanduku hakina “Pata” basi mstari ulio chini ya Engine itatekeleza na kutoa thamani ya pato katika kisanduku kilicho karibu kama Imeshindwa .

Kitanzi hiki kitaendelea kwa kila seli.

➤Bonyeza F5

Result :

Kisha, utapata matokeo yafuatayo katika Pass au fail safu.

Mbinu-6: Kukagua Mfuatano Fulani katika Mfuatano na Data ya Kutoa

Nitaonyesha njia ya kupata wanafunzi waliotajwa. Michael katika safuwima ya Jina la Mwanafunzi na kutoa data inayolingana kwa kutumia VBA kwa njia hii.

Hatua-01 :

➤Fuata Hatua-01 ya Njia-1 

6686

Hapa, nimetumia B100 kama safu Amilishi ya Laha lakini unaweza kutumia safu yoyote kulingana na matumizi yako.

InStr(1, Range("B" & i), "Michael") > 0 ndio sharti la kuangalia kama kisanduku kiko safu B ina Michael

Range("E" & icount & ":G" & icount) ndio masafa ambapo unataka data yako ya pato na Range("B" & i & ":D" & i).value itakupa thamani. kutoka safuwima B hadi D .

➤Bonyeza F5

Matokeo :

Baada ya hapo, utapata data ifuatayo iliyotolewa kwa wanafunzi wenye jina Michael .

Mbinu-7: Kutafuta Mfuatano mdogo wa Neno

Kama unataka kupata kamba ndogo kama neno, basi fol punguza njia hii.

Hatua-01 :

➤Fuata Hatua-01 ya Njia-1 

3983

Itaangalia ikiwa mfuatano una ni na kisha nafasi yake itatolewa

➤Bonyeza F5

Matokeo :

Baadaye, utapata kisanduku cha ujumbe kifuatacho ambacho kinaonyesha neno linalopatikana katika nafasi:6 (nafasi ya ni ).

Unaweza kupimatoa msimbo huu kwa neno ambalo halipo kwenye mfuatano.

➤Chapa msimbo ufuatao 

5689

➤Bonyeza F5

Tokeo :

Baadaye, utapata kisanduku cha ujumbe kifuatacho ambacho kinaonyesha neno halijapatikana .

Mbinu-8: Kwa kutumia kitendakazi cha Instr na LEFT

Hapa, nitaeleza njia ya kupata nafasi ya kamba ndogo katika mfuatano na kutoa maandishi kabla ya mfuatano huu mdogo kwa kutumia VBA na kitendaji cha KUSHOTO .

Hatua-01 :

➤Fuata Hatua-01 ya 11>Njia-1 

9115

j = InStr(txt, "is") ni nafasi ya kamba ndogo ni na Left(txt, j - 1) itatoa minyororo kabla ya ni .

➤Bonyeza F5

Tokeo :

Baadaye, utapata kisanduku cha ujumbe kifuatacho ambacho kinaonyesha Hapa (mfuatano mdogo kabla ya ni ).

Mbinu-9: Kukolea Mfuatano Fulani katika Mfuatano

Unaweza kuweka alama kwa herufi nzito kabla ya mabano katika safuwima ya Tokeo kwa kufuata mbinu hii. d.

Hatua-01 :

➤Fuata Hatua-01 ya Njia- 1 

9227

txt = InStr(1, Cell, "(") itarudisha nafasi ya mabano ya kwanza na Cell.Characters(1, txt - 1).Font.Bold itatengeneza kamba ndogo kabla ya mabano ya kwanza Bold .

Hatua-02 :

➤Chagua Safu wima ya Matokeo

➤Nenda kwa Msanidi Tab>> Macros Chaguo

Kisha, Macro mchawi atatokea.

➤Chagua Boldingsubstring (jina la msimbo wa VBA) na kisha Endesha .

Tokeo :

Baada ya hapo, alama katika Tokeo Safuwima zitakuwa na herufi nzito.

Sehemu ya Mazoezi

Kwa kufanya mazoezi peke yako tumetoa sehemu ya Mazoezi kama ilivyo hapo chini katika laha iitwayo Mazoezi . Tafadhali ifanye peke yako.

Hitimisho

Katika makala haya, nilijaribu kuangazia njia rahisi zaidi za kupata kamba ndogo kwa kutumia VBA katika Excel kwa ufanisi. Natumai utapata manufaa. Ikiwa una mapendekezo au maswali yoyote, jisikie huru kuyashiriki nasi.

Chapisho lililotangulia Tafuta Ulinganisho wa Maandishi Sehemu katika Excel (Njia 5)
Chapisho linalofuata Jinsi ya Kuficha Mifumo na Thamani za Kuonyesha katika Excel (Njia 2)

Hugh West ni mkufunzi na mchambuzi mwenye uzoefu wa juu wa Excel na uzoefu wa zaidi ya miaka 10 katika tasnia. Ana Shahada ya Kwanza katika Uhasibu na Fedha na Shahada ya Uzamili katika Utawala wa Biashara. Hugh ana shauku ya kufundisha na ameanzisha mbinu ya kipekee ya kufundisha ambayo ni rahisi kufuata na kuelewa. Ujuzi wake wa kitaalam wa Excel umesaidia maelfu ya wanafunzi na wataalamu ulimwenguni kote kuboresha ujuzi wao na kufaulu katika taaluma zao. Kupitia blogu yake, Hugh hushiriki ujuzi wake na ulimwengu, akitoa mafunzo ya bila malipo ya Excel na mafunzo ya mtandaoni ili kuwasaidia watu binafsi na biashara kufikia uwezo wao kamili.