Tas ir laikietilpīgs, ja vēlaties formatēt šūnas pēc atlases un vienlaikus strādāt ar lieliem datiem. Bet, izmantojot programmu VBA , mēs varam to diezgan viegli programmēt. Šajā pamācībā mēs parādīsim, kā izmantot mainīgā rinda un mainīgais stabiņš diapazonā ar Excel VBA .

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

5 piemēroti veidi, kā izmantot diapazonu ar mainīgu rindu un kolonnu ar Excel VBA

Nākamajā sadaļā mēs parādīsim. 5 veidi, kā izveidot mainīgās rindas un kolonnas Turklāt mēs parādīsim, kā tos izmantot, lai formatētu vai piemērotu pielāgojumus. mainīgs diapazons . Tālāk attēlā ir attēlots datu kopas paraugs, lai izmantotu uzdevumu.

1. Formatējiet konkrētu diapazonu, piemērojot mainīgo rindu ar Excel VBA

Pieņemsim, ka vēlamies atlasīt mainīgs diapazons piesakoties uz mainīgais rindas numurs . Mēs izvēlamies diapazonu B5: C10 un piemēro fonta krāsa ( Maroon ) diapazonā. Lai to izdarītu, izpildiet tālāk norādītās vienkāršās darbības.

♠ 1. solis: izveidojiet VBA moduli

• Vispirms nospiediet Alt + F11 lai sāktu VBA makroekonoms .
• Noklikšķiniet uz par Ievietot.
• Pēc tam atlasiet Modulis .

♠ 2. solis: uzrakstiet VBA kodu

• Uzrakstiet šādu tekstu. VBA kodi.

 Sub Variable_row_Select() 'deklarēt mainīgo rindas numuram Dim Row_Number As Integer 'Ievadiet ievades lauku, rindas numuram ierakstiet 10 Row_Number = InputBox("Ierakstiet rindas numuru") 'Ievietojiet mainīgo 'row_num', lai atlasītu pirmās 5 rindas, kurās ir dati Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)). select End Sub 

♠ 3. solis: Palaist programmu

• Pirmkārt, saglabāt programmu un nospiediet F5 palaist.
• Tāpēc Ievades lodziņš parādīsies un ierakstiet 10 kā rindas numurs .

• Visbeidzot, nospiediet Ievadiet lai pārliecinātos, ka diapazons ar ( Rinda 5 , Kolonna 2 ) uz ( Mainīgā 10. rinda , 3. sleja ) būs atlasīts .

♠ 4. solis: Pielietojiet fonta krāsu diapazonam

• Lai pievienotu fonta krāsa izvēlētajā diapazons , ielīmējiet šādu tekstu VBA kodi .

 Sub Variable_row_Font() 'deklarēt mainīgo rindas numura Dim Row_Number As Integer 'Ievadiet ievades logu, rindas numuram ierakstiet 10 Row_Number = InputBox("Ierakstiet rindas numuru") 'Ievietojiet mainīgo 'row_num', lai atlasītu pirmās 6 rindas, kas satur datus Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Ievadiet krāsu, lai rakstītu bordo ar izvēli .Font.Color = RGB(128, 0, 0)End With End Sub 

♠ 5. solis: Ierakstiet rindas numuru

• Tips a rindas numurs ( 10 ), kas atrodas Ievades lodziņš .
• Noklikšķiniet uz LABI .

• Tāpēc izvēlētais diapazons būs krāsains kā parādīts attēlā zemāk.

Lasīt vairāk: Kā izmantot VBA, lai iestatītu diapazona mainīgo uz atlasi programmā Excel (5 metodes)

2. Pielāgojiet dinamisko diapazonu, piemērojot mainīgo rindu ar Excel VBA

Ja jūsu izmantotais diapazons ir tik liels, ka nevarat atšķirt rindas numuru, var būt nepieciešams izmantot funkciju pēdējā izmantotā rinda kā jūsu mainīgā rinda . Lai to izdarītu, izpildiet tālāk aprakstītās darbības.

♠ 1. solis: ievadiet VBA kodu

• Atlasiet jauns Modulis no Ievietot
• Jaunajā Modulis , rakstīt šādus elementus. VBA programma .

 Sub Variable_Dynamic_Row() 'deklarēt mainīgo rindas numuram Dim Last_Used_Row As Integer 'definēt mainīgo izmantotajam diapazonam Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'piemērot mainīgo, lai atlasītu pašreizējo pēdējo rindu diapazonā Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub 

♠ 2. solis: Iegūstiet atlasi

• Pēc programmas palaišanas jūsu diapazons būs atlasīts līdz jūsu pēdējais izmantotais rinda.

♠ 3. solis: Pielietojiet fonta krāsu

• Uz zīme . izvēlētais diapazons vai uz rediģēt , ielīmēt šādus elementus. VBA kodi .

 Sub Variable_Dynamic_Row() 'deklarēt mainīgo rindas numuram Dim Last_Used_Row As Integer 'Definēt mainīgo izmantotajam diapazonam Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Piemērot mainīgo, lai atlasītu pašreizējo pēdējo rindu diapazonā Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0, 0) End With End With End Sub 

♠ 4. solis: galīgais rezultāts

• Visbeidzot, saglabāt programmu un palaist to, nospiežot F5 .
• Rezultātā diapazons ar jūsu pēdējā izmantotā rinda ir formatēts ar krāsu.

Lasīt vairāk: Excel VBA: Dinamiskā diapazona kopēšana citā darbgrāmatā

Līdzīgi lasījumi

• Kā lietot VBA katrai rindai diapazonā programmā Excel
• VBA cilpas izveide, lai Excel programmā Excel izietu rindas un kolonnas (5 piemēri)
• Excel VBA, lai veiktu cilpu caur diapazonu līdz tukšai šūnai (4 piemēri)
• Kā konvertēt diapazonu uz masīvu programmā Excel VBA (3 veidi)
• Kā izmantot VBA, lai atlasītu diapazonu no aktīvās šūnas programmā Excel (3 metodes)

3. Formatējiet konkrētu diapazonu, izmantojot mainīgo kolonnu ar Excel VBA

Līdzīgi kā mainīgās rindas , varat pieteikties mainīgās kolonnas ar Excel VBA . B5 ( Rinda 5 , Kolonna 2 ) šūna ir pirmā šūna in the diapazons, un 8. rinda ir pēdējā rinda diapazonā; pēdējā slejā ir mainīgais stabiņš . Lai piemērotu mainīgais stabiņš .

♠ 1. solis: uzrakstiet VBA kodu

• Jaunajā Modulis , rakstīt šādus elementus. VBA kods .

 Sub Variable_Column_Font() 'deklarēt mainīgo rindas numuram Dim Column_num As Integer 'Ievadiet ievades logu, ierakstiet 5 kolonnas numuru Column_num = InputBox("Ierakstiet kolonnas numuru") 'Ievietojiet mainīgo 'Column_num', lai atlasītu pirmās 5 kolonnas, kas satur datus Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Ievadiet krāsu, lai fontu Maroon With Selection .Font.Color =RGB(128, 0, 0, 0) End With End Sub 

♠ 2. solis: Palaist programmu

• Uz palaist programmu, nospiediet F5 pēc ietaupot .
• Tāpēc, kad redzēsiet šādus rezultātus. atlasītās šūnas ir diapazons B5:E8 .

4. Pielāgojiet dinamisko diapazonu, piemērojot mainīgo kolonnu ar Excel VBA

Papildus iepriekšējam var pielāgot arī mainīgais stabiņš veikt dinamiski. palielināt datus sleja kas pievienot uz atlase . Lai to izdarītu, izpildiet tālāk sniegtos norādījumus.

♠ 1. solis: ielīmējiet VBA kodu

• Paste šādus elementus. VBA kodus jaunā Modulis .

 Sub Variable_Dynamic_Column() 'deklarēt mainīgo lielumu kolonnas numuram Dim lastColumn As Integer 'definēt mainīgo lielumu izmantotajam diapazonam lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'piemērot mainīgo lielumu, lai atlasītu pēdējo kolonnu diapazonā Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'iekrāsot atlasīto šūnu bordo krāsas fontu With Selection .Font.Color = RGB(128, 0,0) End With End Sub 

♠ 2. solis: Palaist programmu

• Pirmkārt, saglabāt programmu un nospiediet F5 palaist.
• Rezultātā diapazons tiek atlasīts un formatēts līdz pēdējā izmantotā sleja darba lapā.

Lasīt vairāk: Excel makro: vairāku kolonnu šķirošana ar dinamisko diapazonu (4 metodes)

5. Izveidojiet diapazonu ar mainīgu rindu un mainīgu kolonnu, izmantojot Excel VBA

Svarīgi ir tas, ka varat izmantot gan mainīgās rindas un mainīgās kolonnas ar atlasi pēc jūsu izvēles. Pirmā šūna mūsu diapazona atlasē ir B5 ( Rinda 5, Kolonna 2 ), un pēdējais diapazons mainīsies atkarībā no mūsu izvēles. Lai izpildītu uzdevumu, izpildiet turpmāk aprakstītās darbības.

♠ 1. solis: ievadiet VBA kodu

• Pirmkārt, izveidot jauns Modulis .
• Tad, rakstīt šādus elementus. VBA kodi .

 Sub Variable_Column_Row() 'deklarēt mainīgo rindas numuram Dim Row_Number As Integer 'deklarēt mainīgo kolonnas numuram Dim Column_num As Integer 'Definēt mainīgos - ierakstiet 8 rindas numuram un 4 kolonnas numuram Row_Number = InputBox("Ierakstiet rindas numuru") Column_num = InputBox("Ierakstiet kolonnas numuru") 'Piemērot mainīgo, lai atlasītu rindas un kolonnas diapazonā Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Atlase .Font.Color = RGB(128, 0, 0, 0) End With End Sub 

♠ 2. solis: Ievietojiet rindas numuru

• Tips jebkurš rindas numurs .

♠ 3. solis: Ievietojiet kolonnas numuru

• Tips jebkurš kolonnas numurs .

♠ 4. solis: Iegūstiet galīgos rezultātus

• Tādējādi, kad izvēlaties ( Rinda , Kolonna ) = ( 8,5 ), tiks iegūts galīgais rezultāts, kā parādīts attēlā zemāk.

Secinājums

Visbeidzot, es ceru, ka tagad saprotat, kā izmantot diapazonu ar mainīgām rindām un kolonnām ar Excel VBA . Visas šīs stratēģijas ir jāveic, kad jūsu dati tiek izglītoti un praktizēti. Izpētiet prakses grāmatu un pielietojiet to, ko esat iemācījušies. Mēs esam spiesti turpināt piedāvāt šādas programmas, pateicoties jūsu dāsnajam atbalstam.

Ja jums ir kādi jautājumi, lūdzu, sazinieties ar mums. Lūdzu, dalieties savās pārdomās komentāru sadaļā zemāk.

Portāls Exceldemy darbinieki ar jums sazināsies pēc iespējas ātrāk.

Palieciet kopā ar mums un turpiniet mācīties.