Sut i ddod o hyd i Is-linyn gan Ddefnyddio VBA (9 Ffordd)

Hugh West

25-05-2023 Macros & Excel VBA
  • Rhannu Hwn
Hugh West

Os ydych chi'n chwilio am rai o'r ffyrdd hawsaf o ddod o hyd i is-linyn gan ddefnyddio VBA, yna rydych chi yn y lle iawn. Ar ôl mynd trwy'r erthygl hon, byddwch yn gallu dod o hyd i leoliad is-linyn neu echdynnu data gan ddefnyddio'r is-linyn hwn neu newid fformat is-linyn yn hawdd. Gadewch i ni fynd i mewn i'r erthygl.

Lawrlwythwch y Gweithlyfr

Cynnwys enghreifftiol

9 Ffordd o Dod o Hyd i Is-linyn gan Ddefnyddio VBA

Yma, mae gennyf y canlynol tabl data lle byddaf yn dangos y ffyrdd o ddod o hyd i is-linyn mewn llinyn gan ddefnyddio VBA. Byddaf hefyd yn ceisio dangos y ffyrdd o ddod o hyd i is-linyn mewn llinyn hap.

Rwyf wedi cyflawni'r dasg hon gan ddefnyddio fersiwn Microsoft Excel 365 , gallwch ddefnyddio unrhyw fersiwn arall yn ôl eich hwylustod.

Dull-1: Dod o Hyd i Is-linyn mewn Llinyn Gan Ddefnyddio VBA

Os ydych chi am ddod o hyd i'ch is-linyn dymunol mewn llinyn gan ddefnyddio VBA, gallwch ddefnyddio y swyddogaeth InStr yn y cod VBA.

Cam-01 :

➤ Ewch i Datblygwr Tab>> Opsiwn Sylfaenol Gweledol

Yna, bydd y Golygydd Sylfaenol Gweledol yn agor.

➤ Ewch i Mewnosod Tab>> Modiwl Opsiwn

Ar ôl hynny, bydd Modiwl yn cael ei greu.

Cam-02 :

➤ Ysgrifennwch y cod canlynol

9694

Yma, InStr(1, " Rwy'n meddwl felly fy mod yn”, bydd “meddwl”) yn dychwelyd safle is-linyn llinyn. 1 yw'rsafle cychwyn, “ Rwy'n meddwl felly fy mod yn” yw'r llinyn lle byddwch yn dod o hyd i'r is-linyn dymunol, a "meddwl" yw'r is-linyn rydych chi am ddod o hyd iddo. Yn ddiofyn mae'n sensitif i achos felly byddwch yn wyliadwrus o achos eich is-linyn rydych chi am ei chwilio.

➤Pwyswch F5

Canlyniad :

Ar ôl hynny, fe gewch y Blwch Negeseuon canlynol sy'n cynnwys lleoliad yr is-linyn “meddwl” .

Dull-2: Dod o Hyd i Is-linyn Ansensitif Achos mewn Llinyn

Os ydych chi am ddod o hyd i'r is-linyn dymunol mewn llinyn waeth beth fo'r achos gan ddefnyddio VBA, dilynwch hwn dull.

Cam-01 :

➤Dilyn Cam-01 o Dull-1 

1422

Yma, defnyddir vbTextCompare i ddod o hyd i is-linyn cas-ansensitif.

➤Pwyswch F5

Canlyniad :

Yna, fe gewch y Blwch Negeseuon canlynol sy'n cynnwys lleoliad yr is-linyn “meddwl” .

<0

Gallwch wneud yr un peth drwy ddefnyddio'r cod canlynol.

2483

Yma, bydd Option Compare Text yn dod o hyd i is-linyn cas-ansensitif.

0>

➤Pwyswch F5

Canlyniad :

Ar ôl hynny, byddwch yn wi Fe gewch y canlynol Blwch Negeseuon sy'n cynnwys safle'r is-linyn “meddwl” .

Dull-3: Defnyddio swyddogaeth InstrRev yn VBA

Yma, byddaf yn dangos y ffordd i ddod o hyd i is-linyn o ddiwedd allinyn.

Cam-01 :

➤Dilyn Cam-01 o Dull-1 

7874

Bydd InStrRev yn dod o hyd i'r is-linyn o'r ochr dde yn lle'r ochr chwith.

➤Press F5

Canlyniad :

Yna, fe gewch y Blwch Negeseuon canlynol sy'n cynnwys safle'r ail "I" yn tanio o'r ochr dde.

Dull-4: Dod o hyd i leoliad Is-linyn mewn Llinyn mewn Ystod o Ddata

Os ydych am ddod o hyd i'r nod arbennig “@” yn y Id E-bost , yna dilynwch y dull hwn. Rwyf wedi ychwanegu yma y Colofn Swydd at y diben hwn.

Cam-01 :

➤Dilyn Cam-01 o Dull-1 

1461

Bydd yn creu ffwythiant o'r enw FindSubstring (gallwch ddefnyddio unrhyw enw arall)

gwerth yw'r cyfeirnod cell sy'n cynnwys y llinyn ac mae'n cael ei ddatgan fel Ystod .

Cam -02:

➤Dewiswch yr allbwn Cell E5

➤ Teipiwch y ffwythiant canlynol (wedi'i greu gan VBA )

0> =FindSubstring(D5)

D5 yw'r gell sy'n cynnwys y llinyn.

➤Pwyswch ENTER

➤Llusgwch i lawr y Tolyn Llenwch Offeryn

Canlyniad :

Ar ôl hynny, fe gewch chi safleoedd y nod arbennig “ @” yn y Id E-bost .

<1

Darlleniadau tebyg:

  • Sut i Dod o Hyd iLlinyn mewn Cell Gan Ddefnyddio VBA yn Excel (2 Ddull)
  • CanfodNesaf Gan ddefnyddio VBA yn Excel (2 Enghraifft)
  • Sut i Dod o Hyd i Llinyn gyda VBA yn Excel (8 Enghreifftiau)
  • VBA Darganfod Rhes Olaf yn Excel (5 ffordd)

Dull-5: Gwirio Is-linyn Penodol i mewn Llinyn mewn Ystod o Ddata

Tybiwch, rydych am ysgrifennu Pasio neu Methu cyfateb i enwau'r myfyrwyr yn dibynnu ar y golofn Canlyniad lle mae Pas neu Methu wedi'i ysgrifennu mewn cromfach. I ddod o hyd i'r is-linyn hwn yn y golofn Canlyniad a'i ysgrifennu i lawr yn y golofn Pasio neu fethu dilynwch y dull hwn.

11>Cam-01 :

➤Dilyn Cam-01 o Dull-1 

3113

Yma, amrediad y gell yw C5:C10 sef y golofn Canlyniad

InStr(cell.value, “Pass”) > 0 yw'r cyflwr lle mae'r rhif yn fwy na sero (pan fo'r gell yn cynnwys "Pasio" )  yna bydd y llinell ganlynol yn parhau ac yn rhoi'r allbwn yn y gell gyfagos fel Pasiwyd .

Os aiff y cyflwr yn anwir yn golygu nad yw cell yn cynnwys unrhyw "Pasio" yna bydd y llinell o dan Arall yn gweithredu ac yn rhoi gwerth yr allbwn yn y cell gyfagos fel Methwyd .

Bydd y ddolen hon yn parhau ar gyfer pob cell.

➤Pwyswch F5

Canlyniad :

Yna, byddwch yn cael yr allbynnau canlynol yn y Llwyddo neu fethu colofn.

Dull-6: Gwirio Is-linyn Penodol mewn Llinyn a Thynnu Data

Byddaf yn dangos y ffordd i ddod o hyd i'r myfyrwyr a enwyd Michael yn y golofn Enw Myfyriwr a thynnwch eu data cyfatebol gan ddefnyddio VBA yn y dull hwn.

Cam-01 :

➤Dilyn Cam-01 o Dull-1 

6911

Yma, rwyf wedi defnyddio

11>B100 fel yr Amrediad Taflen Weithredol ond gallwch ddefnyddio unrhyw ystod yn ôl eich defnydd.

InStr(1, Range("B" & i), "Michael") > 0 yw'r amod ar gyfer gwirio a yw'r gell i mewn colofn B yn cynnwys Michael

Range("E" & icount & ":G" & icount) yw'r amrediad lle rydych chi eisiau eich data allbwn a Range("B" & i & ":D" & i).value yn rhoi'r gwerthoedd o golofnau B i D .

➤Pwyswch F5

Canlyniad :

Ar ôl hynny, byddwch yn cael y data a dynnwyd isod ar gyfer y myfyrwyr sydd â'r enw Michael .

Method-7: Chwilio Is-linyn am Word

Os ydych chi am ddod o hyd i'r is-linyn fel gair, yna fol isel y dull hwn.

Cam-01 :

➤ Dilynwch Cam-01 o Dull-1 

8130

Bydd yn gwirio a yw'r llinyn yn cynnwys yn ac yna bydd ei leoliad yn cael ei roi

➤Press F5

Canlyniad :

Ar ôl hynny, fe gewch y blwch neges canlynol sy'n dangos y gair a ddarganfuwyd yn safle:6 (safle yn ).

Gallwch chi brofiallan y cod hwn am air sydd ddim yn y llinyn.

➤Teipiwch y cod canlynol 

2904

➤Pwyswch F5

Canlyniad :

Ar ôl hynny, fe gewch y blwch neges canlynol sy'n dangos y gair heb ei ganfod .

Dull-8: Gan ddefnyddio ffwythiant Instr a LEFT

Yma, byddaf yn esbonio'r ffordd i ddarganfod lleoliad is-linyn mewn llinyn ac yn echdynnu'r testunau cyn yr is-linyn hwn trwy ddefnyddio VBA a y ffwythiant CHWITH .

Cam-01 :

➤Dilyn Cam-01 o Dull-1 

6103

j = InStr(txt, "is") yw lleoliad yr is-linyn yw a Left(txt, j - 1) bydd yn echdynnu'r is-linynnau cyn yn .

➤Pwyswch F5

Canlyniad :

Wedi hynny, fe gewch y blwch neges canlynol sy'n dangos Yma (mae is-linyn cyn yn ).

Method-9: Bolding a Is-linyn Penodol mewn Llinyn

Gallwch chi bolding y graddau cyn cromfachau yn y golofn Canlyniad drwy ddilyn y metho hwn d.

Cam-01 o Dull- Bydd 1 
1456

txt = InStr(1, Cell, "(") yn dychwelyd lleoliad y braced cyntaf a Cell.Characters(1, txt - 1).Font.Bold yn gwneud yr is-linyn cyn y braced cyntaf Bold .

Cam-02 :

➤Dewiswch y Colofn Canlyniad

➤Go i Datblygwr Tab>> Macros Opsiwn

Yna, a MacroBydd dewin yn ymddangos.

➤Dewiswch Boldingsubstring (enw cod VBA) ac yna Rhedeg .

Canlyniad :

Ar ôl hynny, bydd y graddau yn y Canlyniad Colofn mewn print trwm.

<49

Adran Practis

Ar gyfer gwneud ymarfer ar eich pen eich hun rydym wedi darparu adran Practis fel isod ar ddalen o'r enw Arfer . Gwnewch hynny ar eich pen eich hun.

Casgliad

Yn yr erthygl hon, ceisiais ymdrin â'r ffyrdd hawsaf o ddod o hyd i is-linyn gan ddefnyddio VBA yn Excel yn effeithiol. Gobeithio y bydd yn ddefnyddiol i chi. Os oes gennych unrhyw awgrymiadau neu gwestiynau, mae croeso i chi eu rhannu gyda ni.

Post blaenorol Chwilio Paru Testun Rhannol yn Excel (5 Dull)
Post nesaf Cyfrifiannell Morgais Deuwythnosol gyda Thaliadau Ychwanegol yn Excel

Mae Hugh West yn hyfforddwr a dadansoddwr Excel hynod brofiadol gyda dros 10 mlynedd o brofiad yn y diwydiant. Mae ganddo radd Baglor mewn Cyfrifeg a Chyllid a gradd Meistr mewn Gweinyddu Busnes. Mae gan Hugh angerdd am addysgu ac mae wedi datblygu dull addysgu unigryw sy’n hawdd ei ddilyn a’i ddeall. Mae ei wybodaeth arbenigol o Excel wedi helpu miloedd o fyfyrwyr a gweithwyr proffesiynol ledled y byd i wella eu sgiliau a rhagori yn eu gyrfaoedd. Trwy ei flog, mae Hugh yn rhannu ei wybodaeth gyda’r byd, gan gynnig tiwtorialau Excel am ddim a hyfforddiant ar-lein i helpu unigolion a busnesau i gyrraedd eu llawn botensial.