Shaxda tusmada
Mid ka mid ah hawlaha ugu muhiimsan uguna ballaaran ee la isticmaalo ee aan ku isticmaalno Visual Basic Application (VBA) waa Find function. Maqaalkan, waxaan ku tusi doonaa sida aad u isticmaali karto KA hel shaqada ee Excel oo wata tusaalooyin iyo tusaalooyin ku habboon Ka hel shaqada VBA gudaha Excel.xlsm >
> 6 Tusaalayaal Degdeg ah oo loo Isticmaalo Shaqada HEL ee VBA >
> Waa kan wuxuu helay xog la dejiyay Magacyada Buuga, Qorayaasha iyo Qiimaha ee buugaagta qaar ka mid ah dukaanka buugaagta ee la yiraahdo Martin Bookstore.>
>>>>>>>>Maanta Ujeedadayadu waa inaan aragno noocyada kala duwan ee isticmaalka Find functionof VBAlaga soo bilaabo xogtan.>> 1>1. Adeegso Find Function in VBA oo aan lahayn Parameter
> Waxaad isticmaali kartaa Find functionof VBAoo aan lahayn wax xaddidaad ah.>Ka dib waxay raadin doontaa qiime gaar ah oo ku dhex jira unugyo kala duwan oo soo celin doona u dhigma ugu horreeya ee ay hesho.Aan raadino magaca “P. B. Shelly" ee tiirka Qoraaga
>> Set cell = Range("C4:C17").Find("P. B. Shelly")>>Dhamaystiran code VBA wuxuu noqonayaa:
>> ⧭ > Xeerka VBA: >
9242
>
⧭ Wax-soo-saarka:
Waxay soo saartaa Macro oo loo yaqaan Raadi . Haddii aad maamusho Macro, waxay soo celin doontaa $C$6 , ciwaanka unugga ugu horreeya oo leh magaca P. B. Shelly.Excel: Oo Ay Ku Jiraan Ciyaaro Sax Ah Iyo Qayb Ah
2. Codso Shaqada Helitaanka ee VBA oo leh Parameter-ka Kadib (Si aad uga Bilaabato Ka Raadinta Unug Gaar ah)
> Waxaad isticmaali kartaa Kadib cabbirka Find function gudaha VBA . Kadib waxay bilaabi doontaa raadinta qiimaha hoosta unug ku dhex jira kala duwan.Tusaale ahaan, aynu bilowno raadinta magaca "P. B. Shelly" laga soo bilaabo unugga hoose C6 .
Xariiqda koodku wuxuu ahaan doonaa:
> Set cell = Range("C4:C13").Find("P. B. Shelly", After:=Range("C6")) > Oo dhammaystiran code VBAwuxuu noqon doonaa:> > ⧭ Xeerka VBA:>7096
> 13>
0> taasi waxay ka timid unugga C7 . Markaa waxay helaysaa P. B. Shelly gudaha qolka C13 marka hore Unug Isticmaalka VBA gudaha Excel>3. Ku socodsii shaqada ka hel VBA adigoo ku duubaya agagaarka Parameterka ka dib (Si aad u raadiso qiimo qaab wareeg ah)
Kadib halbeegyada Raadi shaqada > waxay u raadisaa qiyam hab wareeg ah
Taasi waa, waxa uu ka soo bilaabayaa hoos ka raadinta unug ku dhex jira xad, wuxuu dhameeyaa raadinta xadka, ka dibna wuxuu mar labaad ka bilaabaa meesha ugu sareysa ee kala duwan.
0>Tusaale ahaan, aynu bilowno raadinta magaca “John Keats”ka hoose ee unugga C8annagoo adeegsanayna Ka dibcabbirkaXariiqda code wuxuu noqon doonaa:
>> Set cell = Range("C4:C13").Find("John Keats", After:=Range("C8")) iyodhameystiran code VBA wuxuu noqon doonaa:
>> unugga C9 .
Ma helayo wax ilaa unug C13 ah, markaa mar kale ayay ka bilaabataa unugga C4 oo waxay ka helaysaa mid unug ku jira. C7 .
Akhrisyo La mid ah: >C7 .
gudaha Excel (8 Tusaalayaal) >> 18> Hel Ciyaar sax ah Adigoo isticmaalaya VBA gudaha Excel Dariiqooyinka) > 20>
4. Ka faa'iidayso Helitaanka Shaqada ee VBA iyadoo la raacayo LookAt Parameter (Saaxiib ama Isku-dheelid Qayb ah)
> Waxaad isticmaali kartaa Find function gudaha VBA U isticmaal LookAt = xlWhole Sax ah ciyaar, iyo LookAt=xlPart u isticmaal Qayb ciyaar.Tusaale ahaan, aynu isku dayno in aynu ogaano haddii uu jiro buug magaciisu yahay “Ode” oo ku jira Magaca Buugga Tiirka (<1)>B4:B13 ).
Haddaynu xlWhole ku isticmaalno xariiqda koodka:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlWhole) Soo-saarku wuxuu muujin doonaa khalad sababtoo ah ma heli doono wax sax ah u dhigma.
Laakin haddii aad isticmaasho:
> Set cell = Range("B4:B13").Find("Ode", LookAt:=xlPart) Markaa way soo noqonaysaa $B$9 , waayo waxa ku jira buug magaca “Ode” ku dhex yaal unugga B7 , Ode to the Nightingale.
>
>Markaa koodka dhammaystiran ee qayb ciyaartawaa:
> ⧭ Xeerka VBA:
9299
> 5. Ku Shaqeeyo Shaqada Helitaanka ee VBA adoo adeegsanaya Parameter Direction (Si loo cayimo jihada raadinta)
> Waxaad sidoo kale isticmaali kartaa Find functiongudaha VBA SearchDirectionparameter.Isticmaal SearchDirection = xlNext si aad u baadho Top to Bottom .
>iyo SearchDirection = xlPreviouska raadinta Bottom to Top.Tusaale ahaan, aan isku dayno inaan helno qoraaga Elif Shafak ee ku jira tiirka Qoraaga ( C4:C13 ).
Haddaynu xlNext ku isticmaalno xariiqda koodka:
>> Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlNext) Markaa waxay soo noqonaysaa $C$5 .
>
Laakin haddii aad isticmaasho:
>> Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlPrevious)Markaa waxay soo noqon doontaa $C$11 .
Markaa koodka dhammaystiran ee raadinta laga bilaabo hoos ilaa sare waa:
> ⧭ Xeerka VBA:3859
> 6. Ka hel shaqada gudaha VBA oo leh MatchCase Parameter (Wixii Xasaasi ah ama kulan xasaasi ah)
Ugu dambayntii, waxaad isticmaali kartaa Find functionoo leh MatchCasebeeg-beegyada.U isticmaal MatchCase = Run kiis xasaasi kulan , iyo MatchCase=Been case-inensitive match.
Tusaale ahaan, aynu isku dayno in aynu ka helno buugga “hooyada” ee ku jira Buugga Magaca tiirka ( B4:B13) ).
Haddii aan ku isticmaalno Run khadka koodka:
>>>>> Set cell = Range("B4:B13").Find("mother", MatchCase:=True)> Wax-soo-saarku wuxuu muujin doonaa cilad sababtoo ah way guulaysan midna ha helin >
Laakin haddii aad isticmaasho:
>>>>> Set cell = Range("B4:B13").Find("mother", MatchCase:=False)Markaa way soo noqonaysaa $ B$9 maxaa yeelay waxaa qolka ku jira buug magaciisu yahay “Hooyo” kiis aan dareen lahayn ciyaartu waa:
> ⧭ Koodhka VBA:>1182
> 28>
4 Gabagabo>Isticmaalka hababkan, waxaad isticmaali kartaa Find Function in Visual Basic Application. Wax su'aalo ah ma qabtaa? Xor baad u tahay inaad na waydiiso.
