FUMANA ts'ebetso ho VBA: U ka e sebelisa joang?

batla ho ithuta ho sebelisa FUMANA tšebetso ho VBA🇧🇷 Joale o sebakeng se nepahetseng!

Ke mang ea sa tsebeng khetho ea SEARCH ho Excel? Haeba esale u sebetsa le Excel nakoana, mohlomong u sebelisitse SEARCH kapa senotlolo se tsebahalang sa Ctrl + L ho fumana lentsoe kapa sekhechana sa litaba tseo u batlang ho li batla leqepheng la hau kaofela. joalo ka buka eohle ea mosebetsi.

Hape, ho VBA re na le ts'ebetso e bitsoang FIND e ka re thusang ho fumana boleng boo re bo batlang.

Latela lintlha tse ka tlase ho ithuta haholoanyane ka tšobotsi ena ka mehlala e sebetsang.

Mosebetsi oa FIND o sebetsa joang ho VBA?

Mosebetsi oa Excel VBA FIND o batla boleng bo itseng ka har'a mofuta o itseng. E sheba ketsahalo ea pele ea boleng boo, 'me ha e fumanoa, tšebetso e khutlisa sele e nang le eona. Leha ho le joalo, haeba ho se na papali e fumanoeng, ts'ebetso ha e khutlisetse letho. Mosebetsi oa VBA FIND o ka khutlisa papali e nepahetseng kapa e sa fellang.

Mohlala, khoutu e latelang e batla mongolo "Mohalaleli Paul»ka nako A1:A10 ka "Leqephe la mosebetsi1???????

Ka Lipampiri("Sheet1").Range("A1:A10")
Seta Rng = .Fumana(Eng:="São Paulo")

Sepheo sa ho sebelisa mosebetsi oa FIND ho VBA ke ho fumana boleng bo lakatsehang ho sete e fanoeng ea data. Ka khoutu ea VBA, o ka iketsetsa mosebetsi oa ho fumana boleng ho Excel.

VBA FUMANA Syntax ea Mosebetsi

Syntax ea mosebetsi oa VBA FIND e phatlalatsoa ka tsela e latelang:

tlhaloso.Fumana(Eng, Kamora, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

Moo:

polelo: ke ntho e fapaneng, e tlang pele ho mosebetsi oa FIND ho khoutu ea VBA. Sebaka sa ho batla e ka ba mola o le mong kapa ho feta, likholomo, kapa spreadsheet kaofela. Mosebetsi oa VBA FIND o amohela likhang tse latelang:

  • Seo: Ena ke boleng boo u lokelang ho bo batla. E ka ba linomoro, mongolo, kapa mofuta ofe kapa ofe oa data oa Excel. Khang ena e tšoana le ea Fumana khetho ea "fumana le ho fetola” ho tsoa ho Excel.
  • Ebe: E supa sele eo patlo e tla qala ho eona. E kentsoe joalo ka sesupo sa sele e le 'ngoe. Haeba khang ena e sa lumelloe, patlo e qala ka mor'a sele e kaholimo ho leqeleng la mofuta o boletsoeng oa lipatlisiso.
  • Sheba ho: Mona ke sebaka (kapa data) moo boleng bo lokelang ho shejoa. E ka ba maikutlo (xlComments), foromo (xlFormulas) kapa boleng (xlValues). Boleng ba kamehla ba khang ena ke xlFormulas. Hape, khang ena e tšoana le ea Fumana khetho ea "fumana le ho fetola” ho tsoa ho Excel.
  • Sheba: Khang ena e etsa qeto ea hore na e bapise likahare tsa sele kaofela (ho tšoana hantle) kapa karolo ea litaba tsa sele (papali e itseng). Li-constants ke xlWhole le xlPart bakeng sa lipapali tse nepahetseng le tse sa fellang, ka ho latellana. Boleng ba kamehla ba khang ena ke xlPart.
  • Batla odara: Khang ena e fana ka maikutlo a tatellano ea ho batla. O ka hlakisa hore na patlisiso e tla ba ka mela (xlByRows) kapa likholomo (xlByColumns). Boleng ba kamehla ba khang ena ke xlByRows. Hape, khang ena e tšoana le ea Fumana khetho ea "fumana le ho fetola” ho tsoa ho Excel.
  • Batla aterese: E bontša aterese eo patlisiso e tla etsoa ho eona. O ka batla tlase kapa seleng e latelang ka xlNext constant. Ntle le moo, o ka batla morao (holimo) kapa seleng e fetileng ka xlPrevious constant. Boleng ba kamehla ba khang ena ke xlNext.
  • Boemo ba papali: Khang ena e etsa qeto ea hore na patlisiso e lokela ho ba e tebileng kapa che. Haeba patlisiso e le taba e hlokolosi, taba ena e hlalosoa e le 'nete (TRUE), ho seng joalo ke bohata (FALSE). Boleng ba kamehla ba khang ena ke Bohata.
  • MatchByte: Khang ena e lokela ho sebelisoa haeba motho e mong a kentse kapa a khethile tšehetso ea lipuo tse peli. E tlameha ho hlalosoa e le 'nete haeba litlhaku tsa li-byte tse peli li lumellana le litlhaku tse peli-byte. E lokela ho hlalosoa e le leshano haeba litlhaku tsa double-byte li lokela ho bapisoa le tse lekanang le tsona tsa single-byte.
  • mokhoa oa ho batla: E bontša hore na boleng boo u lokelang ho bo batla bo lokela ho ba ka mokhoa o itseng (joalo ka mongolo o motenya kapa o tšekaletseng) kapa che. Haeba boleng ba ho sheba bo tlameha ho latela mokhoa oa ho fometa, khang ena e hlalosoa e le 'nete, ho seng joalo ke leshano. Boleng ba kamehla ba khang ena ke bohata (FALSE).

khang feela ke eng hlokahala. Likhang tse ling ke tsa boikhethelo.

Mosebetsi oa FIND o khutlisa se seng sa liphetho tse latelang:

  • Haeba se tšoanang se fumanoa, tšebetso e khutlisa sele ea pele moo boleng bo fumanoang teng.
  • Haeba ho se na papali e fumanoeng, ts'ebetso ha e khutlise letho. Sena se bakoa ke hore ntho e sebetsang e behiloe lefeela.

Ntle le moo, haeba ho se na papali e fumanoeng, molaetsa oa tloaelo o boletsoeng ka ho mosebetsi oa lebokose la molaetsa e ka khutlisoa (sheba mehlala ea khoutu e ka tlase).

Hlokomela 1: Patlo e qala ka mor'a sele e boletsoeng khang. Kamora 'me e tsoela pele ho isa seleng ea ho qetela sebakeng sa ho batla. Haeba boleng bo sa fumanehe ho fihlela sele ena ea ho qetela, patlo e qala hape ho tloha seleng ea pele sebakeng sa ho batla ho ea seleng e boletsoeng khang. Kamora???????

Ka hona, sele e boletsoeng khang Kamora e batlisisoa qetellong ea mokhoa oa ho batla. Bakeng sa lintlha tse ling mabapi le tšebeliso ea likhang Kamorabona mohlala oa bobeli sehloohong sena.

Hlokomela 2: Nako le nako ha mosebetsi oa VBA FIND o sebelisoa, the sheba ho??????? Sheba??????? taelo ea ho batla y MatchByte Ka hona, haeba litekanyetso tsena li siiloe nakong e tlang ha ts'ebetso e sebelisoa, Excel e tla sebelisa litekanyetso tse bolokiloeng pele. Ka hona, ho khothaletsoa ho phatlalatsa mabaka a fanoeng neng kapa neng ha patlo e etsoa ho sebelisoa mosebetsi oa VBA FIND.

Mokhoa oa ho sebelisa tšebetso ea FIND ho Excel VBA?

E le hore u utloisise tšebeliso ea mosebetsi oa FIND ho VBA, re arotse mehlala e sebetsang ka tlase.

Mohlala 1: Ho khetha sele ka lekhetlo la pele la bohlokoa ba ho batla

Mohlaleng ona oa pele, ha re re u na le lethathamo le nang le mabitso a mang joalo ka ha ho bontšitsoe setšoantšong se ka tlase, 'me u batla ho sheba le ho khetha sele e nang le lebitso. pedro???????

Ho tloha moo, latela mehato ena:

1. Fumana tataiso Motlatsi ??????? pono ya motheo🇧🇷 (Haeba u se na tab ea Moqapi e lumelletsoeng ho Excel ea hau, hlahloba mona kgato ka kgato).

tataiso ea moqapi

tse peli. Ho skrine sa VBA, khetha leqephe la mosebetsi leo u le batlang ho tsoa ho menu e ka letsohong le letšehali. Mohlaleng ona, re tla khetha khetho Leqephe la mosebetsi1 e leng leqephe la mosebetsi le nang le lenane la mabitso.

3. Kamora ho khetha leqephe leo u le batlang, sebakeng se ka ho le letona, kenya khoutu e ka tlase:

Khetha sele e nang le ketsahalo ea pele ea boleng bo batliloeng

Sub LocateName()
Range("A1:A10").Fumana(Seo:="Peter").Kgetha
Qetella
  • Hlokomela khoutu e kaholimo hore re boletse mofuta oo re o batlang (A1: A10???????
  • Ka mor'a ho bolela sebaka, beha nako (.) 'me u thaepe FUMANA???????
  • Khang ea rona ea pele ke seo re se batlang. Ho totobatsa khang, re ka fetisa khang eng:=sena se tla thusa ho tseba hore na re bua ka parameter efe.
  • Karolo ea ho qetela ke ka mor'a ho fumana lentsoe seo re batlang ho se etsa. Re hloka ho khetha lentsoe, kahoo fetisa khang joalo ka Khetha???????
  • Ebe u tsamaisa khoutu ena u sebelisa senotlolo F5 kapa ka letsoho joalo ka ha ho bonts'itsoe setšoantšong se ka tlase ho khetha sele ea pele e nang le lebitso pedro???????

fumana VBA

Mohlala 2: Khetha sele e nang le ketsahalo ea bobeli ea boleng ba ho batla

Mohlaleng ona oa bobeli, hlokomela hore setšoantšo se latelang se na le mabitso a mofuta oa A1:A10. Hlokomela hore lebitso "pedro” e hlaha habeli kholomong ea A.

Khetha sele e nang le ketsahalo ea bobeli

Tabeng ena, re batla ho batla le ho khetha ketsahalo ya bobedi ea lebitso “Petrose” kholomong A (ke hore, sele A7). Ho etsa sena re tla sebelisa khoutu e latelang:

FUMANA ketsahalo ea bobeli ea VBA

Sub LocateName()
Range("A1:A10").Fumana(Seo:="Peter", After:=Range("A2")).Khetha
Qetella

Ela hloko khoutong e ka holimo hore patlisiso e qala ka mor'a sele A2 'me e tsoela pele ho ea ho sele ea ho qetela kholomong ea A. Sena ke hobane sebaka sa lipatlisiso se ne se hlalositsoe e le kholomo A (A1:A10).

Kahoo, kaha patlo e qala ka seleng ea A3, boleng "pedro” e ka seleng A7 fana"spreadsheet2🇧🇷 Ka hona, sele ea A7 e tla khethoa ke ts'ebetso ea FIND ha e etsa khoutu.

Haeba lebitso "pedro” e ne e so fumanoe ka seleng ea A3 ho fihlela sele ea ho qetela kholomong ea A, patlo e ne e tla boela e qala ka seleng ea A1 ebe e fella ka seleng ea A2 lekhetlong lena. Ka hona, sele e boletsoeng khang "Kamora” e batloa hantle qetellong ea mokhoa oa ho batla.

Mohlala 3: Fumana mongolo ka ho hlakisa tse ling tsa litlhaku tsa ona

Ho batla mongolo ka ho hlakisa karolo feela ea ona, kenya ngangisano Sheba e le xlKarolo kapa tlohela khang ena. Ka linako tsohle, FIND e tsamaisana le litlhaku tsa boleng ba patlo khahlano le khoele kaofela. E ntan'o khutlisetsa sele e nang le khoele ena kaofela.

Sheba mohlala o ka tlase:

Sub LocateName()
Range("A1:A10").Fumana(Seo:="Ped", LookAt:=xlPart).Kgetha
Qetella

Khoutu ena e batla litlhaku "Ped” sebakeng sa A1:A25 sa “Sheet3”. Ho khutlisetsoa sele e nang le boleng, e rehelletsoeng mangolo a sa fellang🇧🇷 Kahoo, ho sa tsotelehe hore na litlhaku tsa boleng ba patlo li behiloe qalong, bohareng kapa qetellong ea khoele, Excel VBA e khutlisa papali.

Khopotso: ya kamehla xlKarolo e ka siuoa ho khoutu hobane ke boleng ba kamehla ba mosebetsi oa FIND. Empa haeba khang ena e hlalositsoe, etsa bonnete ba hore ha e kenyelelitsoe ka mantsoe a mabeli.

Mohlala 4: Ho fumana mongolo ka har'a maikutlo

U ka sebelisa ts'ebetso ea VBA FIND ho fumana mongolo ka har'a maikutlo a sele ho Excel.

Bakeng sa kutloisiso e molemo, sheba mohlala o ka tlase moo re nang le leqephe la mosebetsi le nang le lisele tse tharo tse nang le litlhaloso (tse bontšitsoeng ke likhutlo-tharo tse khubelu). Ho sena re batla ho fumana mongolo "komisi e lefshoang” e fumanehang ka har'a e 'ngoe ea litlhaloso. Tabeng ena, re tla sebelisa khoutu e latelang:

Sub LocateComment()
Range("A1:B10").Fumana(Seo:="Komisi e Lefa", LookIn:=xlComments). Kgetha
Qetella

Fumana mongolo ka har'a maikutlo

Ka lebaka leo, Excel e tla khetha feela sele e nang le maikutlo eo mongolo oa eona o boletsoeng khoutu ea rona.

Mohlala 5: Ho sebetsana le phoso mosebetsing oa FUMANA ho VBA

Haeba temana eo re e batlang e se ka har'a moeli o fanoeng, VBA e tla khutlisa phoso joalokaha e bontšitsoe ka tlase:

phoso 91

Ho qoba phoso ena, re ka sebelisa khoutu e bontšitsoeng ka tlase:

Sub LocateName()
Dim Sephetho Joalo ka Phapang

Ho Phoso K'homphieutheng E latelang
Range("A1:A10").Fumana(Seo:="Cristina").Kgetha
Ka Phoso GoTo 0

Sephetho = ActiveCell.Value

Haeba Sephetho = "" Joale
MsgBox "Boleng boo u bo batlang ha bo fumanehe lethathamong le fanoeng!"
Tsoa Sub
Qetella Haeba

Qetella

Hlokomela khoutu e ka holimo hore haeba VBA e fumana boleng, e tla bontša boleng bo fumanoeng, kapa ho seng joalo e tla bontša molaetsa e le "Theko eo u e batlang ha e fumanehe sebakeng se fanoeng???????

Bakeng sa malebela a mang a ho lokisa liphoso tsa VBA, sheba sengoloa: Liphoso tsa Excel VBA: tsohle tseo o hlokang ho li tseba!

Lintlha tse lokelang ho hopoloa

  • Mosebetsi oa FIND ke karolo ea thepa ea RANGE 'me u lokela ho sebelisa FIND ka mor'a ho khetha mefuta e fapaneng feela.
  • Mosebetsing oa FIND, khang ea pele (ke eng), hammoho le tse ling kaofela ke boikhethelo.
  • Haeba u fumana boleng ka mor'a sele e itseng, u ka bolela sele ka parameter Kamora ea syntax ea ho batla.

Kopitsa spreadsheet mona e nang le mehlala e fanoeng thutong ena.

Hape sheba lintlha tse latelang tsa Excel:

Joale u nahana'ng ka mosebetsi oa FIND ho VBA? Haeba u na le lipotso, siea maikutlo a hau ka tlase. Hape sheba lintlha tse ling tsa Excel le VBA webosaeteng ea rona!

Tommy Banks
Re tla thabela ho utloa seo u se nahanang

tlohela karabo

TechnoBreak | Litlhahiso le Maikutlo
logo logo logo logo
E thusa ho ngolisoa ho li-setting - ka kakaretso
Koloana ea ho reka