Tabela e përmbajtjes
Në këtë artikull, unë do t'ju tregoj se si mund të përdorni veçorinë UsedRange të VBA në Excel. Do të mësoni të përdorni veçorinë UsedRange për një interval të mbyllur, për një diapazon të shpërndarë, për një fletë pune joaktive dhe gjithashtu për një libër pune joaktive.
Shkarkoni Librin e Punës Praktike
Shkarko këtë libër pune për ta praktikuar ndërkohë që je duke lexuar këtë artikull.
Excel VBA UsedRange.xlsm
Një hyrje në vetinë UsedRange të VBA në Excel
Vetia UsedRange e VBA kthen një objekt Range . Ai kthen një gamë të përbërë nga të gjitha qelizat në një fletë pune që është përdorur duke përfshirë një rresht bosh në fillim.
Në një kod VBA , vetia UsedRange do të përdoret së bashku me emrin e fletës së punës. Pra, sintaksa e zakonshme për përdorimin e vetive UsedRange për fletën aktive të punës është:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
⧭ Shënime:
- Këtu Rng është emri i Range i kthyer nga vetia UsedRange . Mund të përdorni çdo gjë që ju pëlqen.
- Për të ushtruar veçorinë UsedRange në një fletë pune të ndryshme nga ajo aktive, përdorni emrin e fletës së punës në vend të kësaj.
Për shembull, për ta aplikuar atë në një fletë pune të quajtur Fleta1 , futni:
Set Rng = Worksheets("Sheet1").UsedRange
4 mënyra për të përdorur vetinë UsedRange të VBA në Excel
Këtu janë 4 më të zakonshmetmënyra për të përdorur veçorinë UsedRange në VBA .
1. Vetia e VBA UsedRange për një interval të mbyllur
Së pari, ne do të përdorim veçorinë VBA UsedRange për një fletë pune me një interval të mbyllur.
Ajo' do të kthejë të gjithë gamën duke përfshirë një rresht bosh në fillim.
Këtu kemi një fletë pune të quajtur Fleta1 që përmban një diapazon të mbyllur që përbëhet nga emrat, datat e bashkimit dhe pagat e disa punonjës të një kompanie.
Tani nëse përdorni veçorinë UsedRange në këtë fletë pune, ajo do të kthejë diapazonin B2:C13 (Përfshirë një rresht bosh në fillim).
Nëse Fleta1 është aktive, mund të përdorni:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
Ose mund të përdorni:
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Prodhimi :
Ne kemi përdorur veçorinë Zgjidh të një Rapës brenda kodit. Pra, nëse ekzekutojmë kodin, ai do të zgjedhë diapazonin B2:D13 të Fletës1 .
Lexo më shumë: Si të përdorni objektin e diapazonit të VBA në Excel (5 veti)
2. Vetia e VBA UsedRange për një gamë të shpërndarë
Nëse keni një gamë të shpërndarë në ndonjë fletë pune, vetia UsedRange do të kthejë një interval duke përfshirë qelizat boshe në mes.
Tani, në Fleta1 , ne kemi pagën totale, pagën më të lartë dhe pagën më të ulët të shpërndarë në vende të ndryshme, nga qeliza B3 në G3 , si kjo:
Tani përdorni cilindo nga dy rreshtat e kodeve për të përdorur veçorinë UsedRange .
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
Ose
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Dalja:
I kthen të gjitha qelizat brenda intervalit B2:G3 të Fletës1 duke përfshirë qelizat bosh (përfshirë një rresht bosh në fillim). Ndërsa kemi përdorur veçorinë Zgjidh të Rapës , ajo do të zgjedhë diapazonin B2:G3.
Lexo më shumë: Fundi i një diapazoni duke përdorur VBA në Excel (Me shembuj)
Lexime të ngjashme
- Excel VBA Kopjo gamë në një fletë tjetër (8 mënyrat më të thjeshta)
- Ky përmes një diapazoni për secilën qelizë me Excel VBA (Ultimate Udhëzues)
- Gabim jashtë rrezes së abonimit në Excel në VBA (me 5 zgjidhje)
3. Vetia e VBA UsedRange për një fletë pune joaktive
Nëse duam të ushtrojmë veçorinë UsedRange në një fletë pune joaktive, duhet të përmendni emrin e fletës së punës në fillim.
Për shembull, këtu fleta ime aktive është Fleta1 .
Për të përdorur veçorinë UsedRange në Fleta2 , duhet të përdorim :
Dim Rng As Range
Set Rng = Worksheets("Sheet2").UsedRange
Ajo' do të zgjedhë të gjitha qelizat e përdorura në fletën e punës të quajtur Fleta2 .
Lexo më shumë: VBA për të vendosur intervalin në Excel (7 shembuj)
4.Vetia VBA UsedRange për një libër pune joaktiv
Mund të përdorni edhe veçorinë UsedRange për një libër pune që nuk është aktiv. Thjesht vendosni emrin e librit të punës përpara.
Për shembull, këtu libri im aktiv i punës është Libri i punës1 . Për të ushtruar vetinë UsedRange mbi Fleta1 e Libri i punës2 , duhet të përdorim:
Dim Rng As Range
Set Rng = Workbooks("Workbook2.xlsm").Worksheets("Sheet1").UsedRange
Do të zgjedhë gamën e përdorur të fletës së punës Fleta1 nga Libri i punës2 .
Lexo më shumë: VBA për secilën qelizë në interval në Excel (3 metoda)
Gjërat për të mbajtur mend
Vetia UsedRange e VBA kthen një objekt Range . Këtu në këtë artikull, ne kemi përdorur veçorinë Zgjidh të një objekti Range për hir të vizualizimit. Por padyshim, ju mund të përdorni çdo veçori tjetër të një Range sipas lehtësisë suaj.
Përfundim
Duke përdorur këto metoda, mund të përdorni Vetia UsedRange në Excel. A keni ndonjë pyetje? Mos ngurroni të na pyesni.
