Este consumator de timp atunci când doriți să formatați celulele prin selecție și să lucrați cu date mari în același timp. Dar cu ajutorul aplicației VBA , putem programa pentru a face acest lucru destul de ușor. În acest tutorial, vă vom arăta cum să utilizați linie variabilă și coloană variabilă într-un interval cu Excel VBA .

Descărcați caietul de practică

Descărcați acest caiet de exerciții pentru a vă exercita în timp ce citiți acest articol.

5 Modalități adecvate de utilizare a intervalului cu rând și coloană variabilă cu Excel VBA

În secțiunea următoare, vom demonstra 5 modalități de a crea rânduri variabile și coloane În plus, vă vom arăta cum să le folosiți pentru a formata sau a aplica orice personalizare la gamă variabilă În imaginea de mai jos este reprezentat un set de date de probă pentru a utiliza această sarcină.

1. Formatați un anumit interval prin aplicarea unui rând variabil cu Excel VBA

Să spunem că dorim să selectăm un gamă variabilă prin solicitarea unui numărul rândului variabil Vom selecta intervalul B5:C10 și aplicați culoarea fontului ( Maroon Pentru a face acest lucru, urmați pașii simpli de mai jos.

♠ Pasul 1: Creați un modul VBA

• Mai întâi de toate, apăsați Alt + F11 pentru a porni Macro VBA .
• Faceți clic pe pe Introduceți.
• Apoi, selectați Modul .

♠ Pasul 2: Scrieți un cod VBA

• Scrieți următoarele Coduri VBA.

 Sub Variable_row_Select() 'declarați o variabilă pentru numărul rândului Dim Row_Number As Integer 'Introduceți o casetă de intrare, introduceți 10 pentru numărul rândului Row_Number = InputBox("Introduceți numărul rândului") 'Introduceți variabila 'row_num' pentru a selecta primele 5 rânduri care conțin date Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub 

♠ Pasul 3: Rulați programul

• În primul rând, salvați programul și apăsați F5 să funcționeze.
• Prin urmare, se va aplica Caseta de intrare va apărea, și tastați 10 ca numărul rândului .

• În cele din urmă, apăsați Introduceți pentru a vedea că gama cu ( Rândul 5 , Coloana 2 ) la ( Variabilă Rândul 10 , Coloana 3 ) va fi selectat .

♠ Pasul 4: Aplicați culoarea fontului la interval

• Pentru a adăuga culoarea fontului în zona selectată gama , lipiți următoarele Coduri VBA .

 Sub Variable_row_Font() 'Declarați o variabilă pentru numărul rândului Dim Row_Number As Integer 'Introduceți o casetă de intrare, introduceți 10 pentru numărul rândului Row_Number = InputBox("Introduceți numărul rândului") 'Introduceți variabila 'row_num' pentru a selecta primele 6 rânduri care conțin date Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Introduceți o culoare pentru fontul în Maroon With Selection .Font.Color = RGB(128, 0, 0)End With End Sub 

♠ Pasul 5: Introduceți un număr de rând

• Tip a numărul rândului ( 10 ) în Caseta de intrare .
• Faceți clic pe OK .

• Prin urmare, se va aplica intervalul selectat va fi colorată așa cum se arată în imaginea de mai jos.

Citește mai mult: Cum să utilizați VBA pentru a seta o variabilă de interval la selecție în Excel (5 metode)

2. Personalizați un interval dinamic prin aplicarea unui rând variabil cu Excel VBA

Atunci când intervalul utilizat este atât de mare încât nu puteți diferenția numărul de rânduri, este posibil să fie necesar să utilizați opțiunea ultimul rând utilizat ca fiind linie variabilă Pentru a face acest lucru, urmați pașii descriși mai jos.

♠ Pasul 1: Introduceți un cod VBA

• Selectați un nou Modul de la Introduceți
• În noul Modul , scrie următoarele Program VBA .

 Sub Variable_Dynamic_Row() 'Declarați o variabilă pentru numărul rândului Dim Last_Used_Row As Integer 'Definiți variabila pentru intervalul utilizat Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Aplicați variabila pentru a selecta ultimul rând curent din interval Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub 

♠ Pasul 2: Obțineți selecția

• După ce ați rulat programul, veți avea gama va fi selectat până la ultimul utilizat rând.

♠ Pasul 3: Aplicați o culoare de font

• La marca la intervalul selectat sau la editează , pasta următoarele Coduri VBA .

 Sub Variable_Dynamic_Row() 'declarați o variabilă pentru numărul rândului Dim Last_Used_Row As Integer 'Definiți variabila pentru intervalul utilizat Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Aplicați variabila pentru a selecta ultimul rând curent din interval Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub 

♠ Etapa 4: Rezultatul final

• În cele din urmă, salvați programul și rulează prin apăsarea F5 .
• Ca urmare, raza de acțiune cu ultimul rând utilizat este formatat cu culori.

Citește mai mult: Excel VBA: Copierea intervalului dinamic în alt registru de lucru

Lecturi similare

• Cum să utilizați VBA pentru fiecare rând dintr-o gamă în Excel
• VBA pentru a trece în buclă prin rândurile și coloanele dintr-o gamă în Excel (5 exemple)
• Excel VBA pentru bucla prin interval până la celula goală (4 exemple)
• Cum să convertiți intervalul în matrice în Excel VBA (3 moduri)
• Cum să utilizați VBA pentru a selecta intervalul din celula activă în Excel (3 metode)

3. Formatați un interval specific prin aplicarea unei coloane variabile cu Excel VBA

Similar cu rânduri variabile , puteți aplica coloane variabile cu Excel VBA . B5 ( Rândul 5 , Coloana 2 ) este celula prima celulă în gamă, și Rândul 8 este ultimul rând în intervalul de timp; ultima coloană este coloană variabilă Urmați procedurile de mai jos pentru a aplica coloană variabilă .

♠ Pasul 1: Scrieți un cod VBA

• Într-un nou Modul , scrie următoarele Cod VBA .

 Sub Variable_Column_Font() 'Declarați o variabilă pentru numărul rândului Dim Column_num As Integer 'Introduceți o casetă de introducere, introduceți 5 pentru numărul coloanei Column_num = InputBox("Introduceți numărul coloanei") 'Introduceți variabila 'Column_num' pentru a selecta primele 5 coloane care conțin date Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Introduceți o culoare pentru fontul în Maroon With Selection .Font.Color =RGB(128, 0, 0, 0) End With End Sub 

♠ Pasul 2: Rulați programul

• La rulează programul, apăsați F5 după salvare .
• Prin urmare, veți vedea următoarele rezultate ca fiind celule selectate sunt intervalul B5:E8 .

4. Personalizați un interval dinamic prin aplicarea unei coloane variabile cu Excel VBA

În plus față de cea anterioară, puteți personaliza coloană variabilă pentru a efectua în mod dinamic. Pe măsură ce creștere date într-un coloana care va adăugați la selecție Urmați instrucțiunile simple de mai jos pentru a face acest lucru.

♠ Pasul 1: Lipiți un cod VBA

• Paste următoarele VBA într-un nou cod Modul .

 Sub Variable_Dynamic_Column() 'declară o variabilă pentru numărul coloanei Dim lastColumn As Integer 'Definește variabila pentru intervalul utilizat lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'Aplică variabila pentru a selecta cuurent ultima coloană din intervalul Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'colorează fontul celulelor selectate în Maroon With Selection .Font.Color = RGB(128, 0,0) End With End Sub 

♠ Pasul 2: Rulați programul

• În primul rând, salvați programul și apăsați F5 să funcționeze.
• Ca urmare, intervalul este selectat și formatat până la valoarea ultima coloană utilizată în foaia de lucru.

Citește mai mult: Macro Excel: Sortați mai multe coloane cu interval dinamic (4 metode)

5. Creați un interval atât cu rând variabil cât și cu coloană variabilă cu Excel VBA

Este important de menționat că puteți utiliza atât rânduri variabile și coloane variabile de o selecție la alegere. Prima celulă din intervalul nostru de selecție este B5 ( Rândul 5, Coloana 2 ), iar ultimul interval va varia în funcție de selecția noastră. Urmați pașii descriși mai jos pentru a îndeplini această sarcină.

♠ Pasul 1: Introduceți un cod VBA

• În primul rând, creați un nou Modul .
• Apoi, scrie următoarele Coduri VBA .

 Sub Variable_Column_Row() 'declarați o variabilă pentru numărul rândului Dim Row_Number As Integer 'declarați o variabilă pentru numărul coloanei Dim Column_num As Integer 'Definiți variabilele - introduceți 8 pentru numărul rândului și 4 pentru coloană Row_Number = InputBox("Introduceți numărul rândului") Column_num = InputBox("Introduceți numărul coloanei") 'Aplicați variabila pentru a selecta rândurile și coloanele din intervalul Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub 

♠ Pasul 2: Introduceți numărul rândului

• Tip orice numărul rândului .

♠ Pasul 3: Introduceți numărul coloanei

• Tip orice numărul coloanei .

♠ Pasul 4: Obțineți rezultatele finale

• În consecință, pe măsură ce selectați ( Rândul , Coloana ) = ( 8,5 ), veți obține rezultatul final, așa cum se arată în imaginea de mai jos.

Concluzie

În cele din urmă, sper că acum ați înțeles cum să utilizați intervalul cu rânduri și coloane variabile cu Excel VBA . toate aceste strategii ar trebui să fie puse în aplicare atunci când datele tale sunt educate și practicate. Examinează cartea de practică și aplică ceea ce ai învățat. Suntem impulsionați să continuăm să oferim programe ca acesta datorită sprijinului tău generos.

Dacă aveți întrebări, nu ezitați să ne contactați. Vă rugăm să ne împărtășiți opiniile dumneavoastră în secțiunea de comentarii de mai jos.

The Exceldemy personalul vă va răspunde cât mai curând posibil.

Rămâneți alături de noi și continuați să învățați.