See on aeganõudev, kui soovite rakke valiku järgi vormindada ja samal ajal töötada suurte andmetega. Kuid abiga VBA , saame seda üsna lihtsalt programmeerida. Selles õpetuses näitame teile, kuidas kasutada muutuv rida ja muutuja veerg vahemikus Excel VBA .

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.

5 sobivat viisi, kuidas kasutada Excel VBAga muutuva rea ja veeruga vahemikku koos muutuva rea ja veeruga

Järgnevas osas näitame, et 5 kuidas luua muutuvad read ja veerud Lisaks näitame teile, kuidas neid kasutada, et vormindada või rakendada mis tahes kohandusi, et muutuv vahemik Ülesande kasutamiseks on alloleval pildil esitatud näidisandmekogum.

1. Konkreetse vahemiku vormindamine Exceli VBA abil muutuva rea kohaldamisega

Ütleme, et me tahame valida ühe muutuv vahemik taotledes muutuva rea number Me valime vahemiku B5:C10 ja rakendada kirjatüübi värv ( Maroon ) vahemikus. Selleks järgige alljärgnevaid lihtsaid samme.

♠ 1. samm: VBA mooduli loomine

• Kõigepealt vajutage Alt + F11 et alustada VBA makro .
• Klõpsake kohta Lisa.
• Seejärel valige Moodul .

♠ 2. samm: kirjutage VBA-kood

• Kirjutage järgmist VBA koodid.

 Sub Variable_row_Select() 'deklareerime muutuja rea numbri jaoks Dim Row_Number As Integer 'Sisestage sisendkasti, sisestage rea numbrile 10 Row_Number = InputBox("Type the row number") 'Sisestage muutuja 'row_num', et valida esimesed 5 rida, mis sisaldavad andmeid Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub 

♠ 3. samm: Programmi käivitamine

• Esiteks, Salvesta programmi ja vajutage F5 käivitada.
• Seetõttu on Sisendkast ilmub ja sisestage 10 kui rea number .

• Lõpuks vajutage Sisesta näha, et vahemik koos ( Rida 5 , Veerg 2 ) kuni ( Muutuv rida 10 , Veerg 3 ) on valitud .

♠ 4. samm: Rakenda kirjavärvi vahemikule

• Lisada kirjatüübi värv valitud vahemik , kleepige järgmine tekst VBA koodid .

 Sub Variable_row_Font() 'deklareeri muutuja rea numbri jaoks Dim Row_Number As Integer 'Sisestage sisendkasti, sisestage rea numbrile 10 Row_Number = InputBox("Type the row number") 'Sisestage muutuja 'row_num', et valida esimesed 6 rida, mis sisaldavad andmeid Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Sisestage kirjatüübile värv Maroon With Selection .Font.Color = RGB(128, 0, 0, 0)End With End Sub 

♠ 5. samm: Sisestage rea number

• Tüüp a rea number ( 10 ). Sisendkast .
• Klõpsake OK .

• Seetõttu on valitud vahemik on värviline nagu on näidatud alloleval pildil.

Loe edasi: Kuidas kasutada VBA-d vahemiku muutuja valiku määramiseks Excelis (5 meetodit)

2. Dünaamilise vahemiku kohandamine, rakendades Excel VBAga muutuvat rida

Kui teie kasutatav vahemik on nii suur, et te ei saa rea numbrit eristada, peate võib-olla kasutama funktsiooni viimati kasutatud rida kui teie muutuv rida . selleks järgige allpool kirjeldatud samme.

♠ 1. samm: Sisestage VBA-kood

• Valige uus Moodul alates Sisesta
• Uues Moodul , kirjutada järgmine VBA programm .

 Sub Variable_Dynamic_Row() 'deklareerime muutuja rea numbri jaoks Dim Last_Used_Row As Integer 'Määratleme muutuja kasutatud vahemikule Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Rakendame muutujat, et valida praegune viimane rida vahemikus Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub 

♠ 2. samm: valiku hankimine

• Pärast programmi käivitamist on teie vahemik on valitud kuni teie viimati kasutatud rida.

♠ 3. samm: Rakenda kirjavärvi

• aadressile mark . valitud vahemik või redigeeri , paste järgmine VBA koodid .

 Sub Variable_Dynamic_Row() 'deklareerime muutuja rea numbri jaoks Dim Last_Used_Row As Integer 'Määratleme muutuja kasutatud vahemikule Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Rakendame muutujat, et valida praegune viimane rida vahemikus Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0, 0) End With End Sub 

♠ 4. samm: lõpptulemus

• Lõpuks, Salvesta programmi ja käivitada seda vajutades F5 .
• Selle tulemusena on vahemik koos teie viimati kasutatud rida on vormindatud värviga.

Loe edasi: Excel VBA: dünaamilise vahemiku kopeerimine teise töövihikusse

Sarnased lugemised

• Kuidas kasutada VBA-d iga rea jaoks Exceli vahemikus
• VBA ridade ja veergude läbimiseks Exceli vahemikus (5 näidet)
• Exceli VBA, et läbida vahemikku kuni tühja lahtrini (4 näidet)
• Kuidas konverteerida vahemik Exceli VBA-s massiivi (3 võimalust)
• Kuidas kasutada VBA-d, et valida Exceli aktiivsest lahtrist vahemik (3 meetodit)

3. Konkreetse vahemiku vormindamine Exceli VBA abil muutuva veeru kohaldamisega

Sarnaselt muutuvad read võite taotleda muutuja veerud koos Excel VBA . B5 ( Rida 5 , Veerg 2 ) rakk on esimene lahter aastal vahemik, ja Rida 8 on viimane rida vahemikus; viimane veerg on muutuja veerg Järgige allpool esitatud menetlusi, et kohaldada muutuja veerg .

♠ 1. samm: kirjutage VBA-kood

• Uues Moodul , kirjutada järgmine VBA kood .

 Sub Variable_Column_Font() 'deklareerime muutuja rea numbri jaoks Dim Column_num As Integer 'Sisestage sisendkast, sisestage 5 veeru numbrile Column_num = InputBox("Type the Column number") 'Sisestage muutuja 'Column_num', et valida esimesed 5 veeru andmeid sisaldavat veergu Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Sisestage kirjatüübile värv Maroon With Selection .Font.Color =RGB(128, 0, 0) End With End Sub 

♠ 2. samm: Programmi käivitamine

• aadressile käivitada programmi, vajutage F5 pärast säästmine .
• Seetõttu näete te järgmisi tulemusi, kui teie valitud rakud on vahemik B5:E8 .

4. Dünaamilise vahemiku kohandamine muutuva veeru kohaldamisega Exceli VBA abil

Lisaks eelnevale saate kohandada ka muutuja veerg täita dünaamiliselt. Kuna te suurendada andmed veerg mis lisada et valik Järgige selleks lihtsaid juhiseid.

♠ 1. samm: VBA-koodi kleepimine

• Paste järgmine VBA koodid uude Moodul .

 Sub Variable_Dynamic_Column() 'deklareerime muutuja veeru numbri jaoks Dim lastColumn As Integer 'defineerime muutuja kasutatud vahemikule lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'rakendame muutujat, et valida vahemiku cuurent viimane veerg Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'värvime valitud lahtrite fondi Maroonis With Selection .Font.Color = RGB(128, 0,0) End With End Sub 

♠ 2. samm: käivitage programm

• Esiteks, Salvesta programmi ja vajutage F5 käivitada.
• Selle tulemusena valitakse ja vormistatakse vahemik kuni viimati kasutatud veerg töölehel.

Loe edasi: Exceli makro: Mitme veeru sorteerimine dünaamilise vahemikuga (4 meetodit)

5. Exceli VBA abil nii muutuva rea kui ka muutuva veeruga vahemiku loomine

Oluline on, et saate kasutada nii muutuvad read ja muutuja veerud teie valitud valikuga. Meie vahemiku valiku esimene lahter on B5 ( Rida 5, Veerg 2 ) ja viimane vahemik sõltub meie valikust. Järgige ülesande täitmiseks allpool kirjeldatud samme.

♠ 1. samm: VBA-koodi sisestamine

• Esiteks, luua uus Moodul .
• Siis, kirjutada järgmine VBA koodid .

 Sub Variable_Column_Row() 'deklareeri muutuja rea numbri jaoks Dim Row_Number As Integer 'deklareeri muutuja veeru numbri jaoks Dim Column_num As Integer 'Define variables - type 8 for row number and 4 for column Row_Number = InputBox("Type the row number") Column_num = InputBox("Type the Column number") 'Apply the variable to select rows and columns in the range Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0, 0) End With End Sub 

♠ 2. samm: sisestage rea number

• Tüüp mis tahes rea number .

♠ 3. samm: Sisestage veeru number

• Tüüp mis tahes veeru number .

♠ 4. samm: saada lõpptulemused

• Järelikult, kui te valite ( Rida , Veerg ) = ( 8,5 ), saate lõpptulemuse, nagu on näidatud allpool oleval pildil.

Kokkuvõte

Lõpetuseks, ma loodan, et nüüd saate aru, kuidas kasutada muutuvate ridade ja veergudega vahemikku koos funktsiooni Excel VBA . Kõiki neid strateegiaid tuleks teostada, kui teie andmeid harjutatakse ja harjutatakse. Uurige praktikaraamatut ja rakendage õpitut. Meid ajendab teie suuremeelse toetuse tõttu jätkama selliste programmide pakkumist.

Kui teil on küsimusi, siis võtke meiega ühendust. Palun jagage oma mõtteid allpool olevas kommentaaride sektsioonis.

The Exceldemy töötajad võtavad teiega ühendust niipea kui võimalik.

Jääge meiega ja jätkake õppimist.