Shaxda tusmada
VBA-da waxaad isticmaali kartaa habab kala duwan si aad u hesho safka ugu dambeeya. Maqaalkan, waxaan ku sharixi doonaa hababka kala duwan ee VBA ka heli safka ugu dambeeya ee Excel.
Si aan sharaxaaddan uga dhigo mid muuqata, waxaan isticmaali doonaa muunad dataset. Xogta waxa ku jira 4 tiir oo matalaya macluumaadka iibka. Tiirarkani waa Qofka Iibka, Gobolka, Badeecada, iyo >Qiimaha > .
>>>7> Download si aad u Layliso>>> 1. Isticmaalka SpecialCells. si aad u hesho safka ugu dambeeya> Waxaad isticmaali kartaa habka SpecialCellssi aad u hesho safka ugu dambeeya adiga oo isticmaalaya VBA.>Marka hore, fur Horumarintatabka >> dabadeed dooro Visual Basic>Visual Basic>>>Daaqadda cusub ee Microsoft Visual Basic for Applicationsayaa soo bixi doonta.Hadda, laga bilaabo Geli >> dooro Module
A Module waa la furayaa
>kadib ku qor koodka soo socda >Module.3051
Halkan, waxaan sameeyay hab-hoosaad loo yaqaan LastRow_SpecialCells , halkaas oo Log nooca Doorsoomaha LastRow ayaa lagu dhawaaqay.
Kaddibna lagu qeexay doorsoomaha iyadoo la adeegsanayo habka Range.SpecialCells . Halkan, waxaan u isticmaalay tiirka A ( A:A ) sida baaxadda. Siiyay xlCellTypeLastCell oo ah nooca cabbirka SpecialCells , tani waxay soo celin doontaa unugga ugu dambeeya ee cabbirka (kiiskan, laga bilaabo tiirka A )
Waxaan isticmaalay sanduuq fariin ah si aan u muujiyo natiijada.
Intaa ka dib, Save koodka oo ku noqo xaashida shaqada.
Mar labaad, fur View tab >> ka Macros >> dooro Arag Macros
>Markaa, sanduuqa wada-hadalka ayaa soo bixi doona.
>>Hadda, laga bilaabo Magaca Macro dooro LastRow_SpecialCells sidoo kale dooro buugga shaqada gudaha Macros gudaha .
Ugu dambayntii, Ku orodka la doortay Macro.Sidaa darteed, waxay soo baxaysaa sanduuqa fariinta oo muujinaya lambarka safka ugu dambeeya.
>>> 2. Isticmaalka Safafka . Hadda, fur Developer tabka >> dabadeed dooro Visual Basic >Visual Basic
>
>Daaqadda cusub ee Microsoft Visual Basic for Applications ayaa soo bixi doonta. > Hadda, laga bilaabo Geli >> dooro Module
A Module ayaa la furayaa
>kadib ku qor koodka soo socda >Module .1873
Halkan, waxaan sameeyay hab-hoosaad loo yaqaan LastRow_NonEmpty, halkaas oo Long nooca doorsoome LastRow ayaa lagu dhawaaqay.
Hadda, CELLS (Rows.Count, 1) waxay tirinayaan inta saf ee safka hore ku jira. Kadib isticmaal Dhammaadka(xlUp)Natiijo
Markaa, Keydi koodka oo ku laabo xaashida shaqada.
Halkan, fur Arag tab >> ka Macros >> dooro Arag Macros
>
Hadda, sanduuqa wada-hadalka ayaa soo bixi doona. > >Marka, laga bilaabo Magaca Macro dooro Row_LastRow_Non Empty sidoo kale dooro buugga shaqada gudaha Macros in .
>Ugu dambayntii, Ku orod ka la doortay Macro .Sidaa darteed, waxay soo baxaysaa sanduuqa fariinta oo muujinaya lambarka safka ugu dambeeya.
> > >3. Isticmaalka Safafka , fur Developer tabka >> dabadeed dooro Visual Basic >Visual Basic > > >Daaqadda cusub ee Microsoft Visual Basic for Applications ayaa soo bixi doonta.
Hadda, laga bilaabo Geli >> dooro Module
A Module ayaa la furayaa
>kadib ku qor koodka soo socda >Module .5233
Halkan, waxaan sameeyay hab-hoosaad loo yaqaan LastRow_AnyColumn, halkaas oo Log nooc doorsoome ah LastRow ayaa lagu dhawaaqay.
Markaa, gudaha Range waxaa la siiyay tiirka B oo ah halbeeg ahaan iyo sidoo kale Saf. Tiri , kan ayaa tirinaya inta saf ee ku jira tiirka la bixiyay B . Marka xigta, la isticmaalo Dhammaadka (xlup). Saf kaas oo heli doona safkii ugu dambeeyay ee la isticmaalo ee kala duwan ee Excel.
Ugu dambayn, waxaan isticmaalay sanduuq fariin ah si aan u muujiyoNatiijoMarka xigta, Keydi koodka oo ku laabo xaashida shaqada.
>Ka dib, fur Arag tab >> ka Macros >> dooro Arag Macros>
Halkan, sanduuqa wada-hadalka ayaa soo bixi doona.
> >Hadda, laga bilaabo Magaca Macro dooro LastRow_AnyColumn sidoo kale dooro buugga shaqada gudaha Macros gudaha .
Ugu dambayntii, Ku orod ka la doortay Macro .Sidaa darteed, waxay soo baxaysaa sanduuqa fariinta oo muujinaya lambarka safka ugu dambeeya.
> > > 2 Dariiqooyin 5>4. Isticmaalka Isticmaalka Range si aad u Hesho Safka Dambe
> Waxaad isticmaali kartaa UsedRange hantida xaashida shaqada si aad u hesho kan ugu dambeeya safka isticmaalaya VBA . > Hadda, fur Developer tabka >> dabadeed dooro Visual Basic >Visual Basic >>
Markaa, daaqad cusub oo Microsoft Visual Basic for Applications ayaa soo baxaysa. 0>Hadda, laga bilaabo Geli >> dooro Module
A Module ayaa la furayaa.
kadib, ku qor koodka soo socda ee Module .
3889
Halkan, waxaan sameeyay hab-hoosaad loo yaqaan LastRow_UsedRange, halkaas oo Long nooc doorsoome ah LastRow waa lagu dhawaaqay.
Marka xigta, waxa la qeexaydoorsoome isticmaalaya ActiveSheet.UsedRange.Rws waxa kale oo la siiyay ActiveSheet.UsedRange.Rows.Count oo ah qiyaasta ActiveSheet.UsedRange.Rws , tani waxay soo celinaysaa safka ugu dambeeya.
Waxaan isticmaalay sanduuqa fariinta si aan u tuso natiijada.
>Hadda, Kaydi koodka oo ku noqo xaashida shaqada. 0>> Kadib, fur View tabka >> ka Macros >> dooro Arag Macros >Marka xigta, sanduuqa wada-hadalka ayaa soo bixi doona
>Ka dib, laga bilaabo Macro Magaca dooro LastRow_UsedRange sidoo kale ka dooro buugga shaqada gudaha Macros in .
Ugu dambayntii, Run ka la doortay Macro .Sidaa darteed, waxay soo baxaysaa sanduuqa farriinta oo muujinaya lambarka safka ugu dambeeya.
> 5 Saf > Waxaad isticmaali kartaa Range.Range habka lagu helo safka ugu dambeeya addoo isticmaalaya VBA . >Hadda, fur > Horumariye tab >> ka dib dooro Visual Basic >Visual Basic >
>Halkan, daaqad cusub oo Microsoft Visual Basic for Applications ayaa soo bixi doonta.
>Hadda, laga bilaabo 2> Geli >> dooro Module >A Module ayaa la furayaa
kadib ku qor koodka soo socda Module .
1654
1654
>
Halkan, waxaan sameeyay hab-hoosaad loo yaqaan Range_Find_Method, halkaas oo Log nooca doorsoome LastRow lagu dhawaaqay
kadibna qeex doorsoomiyaha adiga oo isticmaalaya habka Cells.Find . Halkan, ayaa lagu dhawaaqay 7xuduudaha. Gudaha Waa maxay parameter-ka aan isticmaalay ("*") kaas oo heli doona unugga ugu horreeya ee aan faaruqin. Siiyay A1 sida kala duwan ee Ka dib beeg-beegtida si loo bilaabo. In the LookAt parameter ay bixisay xlQaybta si loo eego qayb kasta oo ka mid ah qoraalka unugga dhexdiisa qaacidooyinka haddii ay jiraan. SearchOrder:=xlByRows beeg-beeggu waxa uu u dhaqaaqi doonaa midig-bidix oo waliba saf kastaa korayaa ilaa uu ka helayo unug aan faaruqin.
MatchCase:=Been Halbeeggu wuxuu sheegi doonaa Raadi inaadan tixgelin xarfaha waaweyn iyo kuwa hoose. Marka meel aan banaanayn la helo way istaagtaa oo soo celisaa lambarka safka
Waxaan isticmaalay sanduuq fariin ah si aan u muujiyo natiijada
Hadda, Save koodka oo ku noqo xaashida shaqada. >Halkan, fur View tab >> ka Macros >> dooro Arag Macros > > > Hadda, sanduuqa wada-hadalka ayaa soo bixi doona. > > >Hadda, laga bilaabo Magaca Macro dooro Range_Find_Habka sidoo kale ka dooro xaashida shaqada gudaha Macros gudaha .
Ugu dambayntii, Ku orod ka la doortay Macro .Sidaa darteed, waxay soo baxaysaa sanduuqa fariinta oo muujinaya lambarka safka ugu dambeeya.
> >