Tabloya naverokê
Di vê gotarê de, ez ê nîşanî we bidim ka hûn çawa dikarin taybetmendiya UsedRange ya VBA li Excel bikar bînin. Hûn ê fêr bibin ku taybetmendiya UsedRange ji bo rêzek girtî, ji bo rêzek belavbûyî, ji bo pelxebatek neçalak, û her weha ji bo pirtûkek xebatê ya neçalak bikar bînin.
Daxistina Pirtûka Xebatê ya Pratîkê
Dema ku hûn vê gotarê dixwînin vê pirtûka xebatê dakêşin da ku hûn vê gotarê biceribînin.
Excel VBA UsedRange.xlsm
Destpêkek Taybetmendiya UsedRange ya VBA di Excel de
Taybetmendiya UsedRange ya VBA tiştek Range vedigerîne. Ew rêzek ku ji hemî şaneyên pelgeya xebatê pêk tê vedigerîne ku di destpêkê de rêzek vala tê bikaranîn.
Di kodek VBA de, taybetmendiya UsedRange ew e ku bi navê pelê xebatê re were bikar anîn. Ji ber vê yekê hevoksaziya hevpar a ji bo karanîna taybetmendiya UsedRange ji bo pelxebata çalak ev e:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
⧭ Nîşe:
- Li vir Rng navê Range e ku ji hêla taybetmendiya UsedRange ve hatiye vegerandin. Hûn dikarin her tiştê ku hûn dixwazin bikar bînin.
- Ji bo ku taybetmendiya UsedRange di kargehek ji xeynî ya çalak de bikar bînin, li şûna wê navê pelê bikar bînin.
Mînakî, ji bo ku wê di kargehek bi navê Sheet1 de bicîh bikin, têxin:
Set Rng = Worksheets("Sheet1").UsedRange
4 Away Ji bo ku Taybetmendiya UsedRange ya VBA-yê di Excel de bikar bînin
Li vir 4 yên herî gelemperî heneawayên bikaranîna taybetmendiya UsedRange di VBA de.
1. Taybetmendiya VBA UsedRange ji bo Rêjeyek Girtî
Berî her tiştî, em ê taybetmendiya VBA UsedRange ji bo pelgeya xebatê ya bi rêzek girtî bikar bînin.
Ew' Dê tevahiya rêzê di serî de rêzek vala vegerîne.
Li vir me pelgeyek bi navê Sheet1 heye ku tê de rêzek girtî ku ji nav, tarîxên tevlêbûnê û mûçeyên hin xebatkarên pargîdaniyek.
Niha heke hûn taybetmendiya UsedRange li ser vê pelxebatê bikar bînin, ew ê rêzê vegerîne B2:C13 (Di serî de rêzek vala tê de).
Heke Şeet1 çalak be, hûn dikarin bikar bînin:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
An jî hûn dikarin bikar bînin:
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Derket :
Me di nav kodê de taybetmendiya Hilbijartin ya Rengê bikar anî. Ji ber vê yekê, heke em kodê bimeşînin, ew ê rêza B2:D13 ji Sheet1 hilbijêre.
Zêdetir Bixwînin: Meriv çawa di Excel de Tişta Rêzeya VBA-yê bikar tîne (5 Taybetmendî)
2. Taybetmendiya VBA UsedRange ji bo Rêjeyek Belavbûyî
Heke di her pelxebatê de rêzek belawela hebe, taybetmendiya UsedRange dê şaneyên vala yên di navberê de vegerîne.
Naha, di Şeet1 de, meaşê giştî, meaşê herî bilind û meaşê herî hindik li cîhêreng belav bûne, ji şaneya B3 heta G3 , bi vî rengî:
Niha yek ji du rêzikên kodan bikar bînin da ku taybetmendiya UsedRange bikar bînin.
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
An
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Derketin:
Hemû şaneyên di nav rêza B2:G3 ya Sheet1 de tevî şaneyên vala vedigerîne (Tevî rêzek vala di destpêkê de). Ji ber ku me taybetmendiya Hilbijêre ya Range bikar aniye, ew ê rêza B2:G3 hilbijêre.
Zêdetir Bixwîne: Dawiya Rêjeyekê Bi Bikaranîna VBA di Excel de (Bi Nimûne)
Xwendinên Wekhev
- Excel VBA Rêzeya Kopîkirina Bernameyek Din (8 Rêyên Hêsan)
- Bi Excel VBA (Ultimate) ji bo her şaneyek rêzek bigerin Rêber)
- Excel Abonetiya Dervî Rêjeyê Xeletiya Di VBA de (bi 5 Çareyan)
3. Taybetmendiya VBA UsedRange ji bo Bernameya Xebatê ya Neçalak
Heke em bixwazin taybetmendiya UsedRange li ser pelxebatek neçalak bi kar bînin, divê hûn di destpêkê de navê pelxebatê bînin ziman.
Mînakî, li vir pelgeya xebata min a çalak Sheet1 e.
Ji bo ku taybetiya UsedRange di Sheet2 de bikar bînin, divê em bikar bînin :
Dim Rng As Range
Set Rng = Worksheets("Sheet2").UsedRange
Ew' Dê hemî şaneyên bikar anîne yên di pelxebata bi navê Sheet2 de hilbijêrin.
Zêdetir Bixwîne: VBA bo Set Range Excel (7 Nimûne)
4.Taybetmendiya VBA UsedRange ji bo Pirtûka Xebatê ya Neçalak
Hûn dikarin taybetmendiya UsedRange ji bo pirtûkek xebatê ya ku ne çalak e jî bikar bînin. Tenê navê pirtûka xebatê li pêşiyê deyne.
Mînakî, li vir pirtûka min a xebatê Workbook1 e. Ji bo ku em taybetmendiya UsedRange li ser Sheet1 ya Pirtûka Xebatê2 bi kar bînin, divê em bikar bînin:
Dim Rng As Range
Set Rng = Workbooks("Workbook2.xlsm").Worksheets("Sheet1").UsedRange
Ew ê rêza bikarhatî ya pelê xebatê hilbijêre Pel1 ji Pirtûka Xebatê2 .
Zêdetir Bixwîne: VBA ji bo Her şaneyek di nav rêzê de li Excel (3 Rêbaz)
Tiştên Bîranîn
Taybetmendiya UsedRange ya VBA tiştekî Range vedigerîne. Li vir di vê gotarê de, me ji bo dîtinê taybetmendiya Hilbijêre ya Tişta Rêzeyê bikar aniye. Lê diyar e, hûn dikarin her taybetmendiyek din a Range li gorî rehetiya xwe bikar bînin.
Encam
Bi karanîna van rêbazan, hûn dikarin UsedRange taybetmendî li Excel. Pirsên te hene? Xwe ji me bipirsin.