Időigényes, ha a cellákat kiválasztással akarja formázni, és egyszerre nagy mennyiségű adattal akar dolgozni. De a segítségével a VBA , elég könnyen programozhatjuk. Ebben a bemutatóban megmutatjuk, hogyan használjuk a változó sor és változó oszlop egy olyan tartományban, ahol Excel VBA .

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.

5 megfelelő mód a tartomány használatára változó sorral és oszloppal az Excel VBA-val

A következő szakaszban bemutatjuk 5 a létrehozás módjait változó sorok és oszlopok Ezen kívül megmutatjuk, hogyan használhatja őket a formátumozáshoz vagy bármilyen testreszabás alkalmazásához a változó tartomány Az alábbi képen egy mintaadatkészletet mutatunk be a feladat felhasználásához.

1. Egy adott tartomány formázása változó sor alkalmazásával az Excel VBA segítségével

Tegyük fel, hogy ki akarunk választani egy változó tartomány egy változó sorszám Kiválasztjuk a tartományt B5:C10 és alkalmazza a betűszín ( Maroon ) a tartományban. Ehhez kövesse az alábbi egyszerű lépéseket.

♠ 1. lépés: VBA modul létrehozása

• Először is, nyomja meg a Alt + F11 a VBA makró .
• Kattintson a címre. a Beillesztés.
• Ezután válassza a Modul .

♠ 2. lépés: VBA kód írása

• Írja a következőket VBA-kódok.

 Sub Variable_row_Select() 'deklaráljunk egy változót a sorszámhoz Dim Row_Number As Integer 'Adjunk meg egy Input boxot, írjunk be 10-et a sorszámhoz Row_Number = InputBox("Type the row number") 'Szúrjuk be a 'row_num' változót, hogy kiválasszuk az első 5 sort, amely adatokat tartalmaz Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub 

♠ 3. lépés: A program futtatása

• Először is, mentse a programot, és nyomja meg a F5 futni.
• Ezért a Beviteli mező jelenik meg, és írja be 10 mint a sorszám .

• Végül nyomja meg a Írja be a címet. hogy lássa, hogy a tartomány a ( Sor 5 , Oszlop 2 ) a ( Változó 10. sor , 3. oszlop ) lesz kiválasztott .

♠ 4. lépés: Alkalmazza a betűszínt a tartományra

• Hozzáadni betűszín a kiválasztott tartomány , illessze be a következőket VBA kódok .

 Sub Variable_row_Font() 'deklaráljunk egy változót a sorszámhoz Dim Row_Number As Integer 'Adjunk meg egy Input boxot, írjunk be 10-et a sorszámhoz Row_Number = InputBox("Type the row number") 'Szúrjuk be a 'row_num' változót, hogy kiválasszuk az első 6 sort tartalmazó adatokat Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Adjunk be egy színt a betűtípushoz Maroon-ban With Selection .Font.Color = RGB(128, 0, 0, 0)End With End Sub 

♠ 5. lépés: Adja meg a sorszámot

• Típus a sorszám ( 10 ) a Beviteli mező .
• Kattintson a címre. OK .

• Ezért a kiválasztott tartomány lesz színes ahogy az alábbi képen látható.

Bővebben: Hogyan használhatja a VBA-t egy tartományváltozó beállításához az Excel kiválasztásához (5 módszer)

2. Dinamikus tartomány testreszabása változó sor alkalmazásával az Excel VBA segítségével

Ha a használt tartomány olyan nagy, hogy nem tudja megkülönböztetni a sorszámot, akkor szükség lehet a utoljára használt sor mint a változó sor Ha már megtette, kövesse az alábbiakban vázolt lépéseket.

♠ 1. lépés: VBA-kód megadása

• Válassza ki a címet. egy új Modul a Beillesztés
• Az új Modul , írja a következőket VBA program .

 Sub Variable_Dynamic_Row() 'deklaráljunk egy változót a sorszámhoz Dim Last_Used_Row As Integer 'Define variable to the used range Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Apply the variable to select current last row in the range Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub 

♠ 2. lépés: Szerezd meg a kiválasztást

• A program futtatása után a tartomány lesz kiválasztott akár a utoljára használt sor.

♠ 3. lépés: Alkalmazzon egy betűszínt

• A címre. mark a kiválasztott tartomány vagy a szerkesztés , paste a következőket VBA kódok .

 Sub Variable_Dynamic_Row() 'deklaráljunk egy változót a sorszámhoz Dim Last_Used_Row As Integer 'Define variable to the used range Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Apply the variable to select current last row in the range 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. lépés: Végeredmény

• Végre, mentse a program és fuss megnyomásával F5 .
• Ennek eredményeként a tartomány az Ön utoljára használt sor színnel van formázva.

Bővebben: Excel VBA: Dinamikus tartomány másolása egy másik munkafüzetbe

Hasonló olvasmányok

• Hogyan használjuk a VBA-t az Excel egyes soraihoz az Excel tartományban
• VBA az Excel tartomány sorainak és oszlopainak áthaladásához (5 példa)
• Excel VBA a tartományon való áthaladáshoz az üres celláig (4 példa)
• Hogyan alakítsuk át a tartományt az Excel VBA-ban lévő tömbökké (3 mód)
• Hogyan használjuk a VBA-t az Excel aktív cellából való tartomány kiválasztásához (3 módszer)

3. Egy adott tartomány formázása változó oszlop alkalmazásával az Excel VBA segítségével

Hasonló a változó sorok , akkor jelentkezhet változó oszlopok a címen Excel VBA . B5 ( Sor 5 , Oszlop 2 ) cella a első cella a tartományban, és 8. sor a utolsó sor a tartományban; az utolsó oszlop a változó oszlop Kövesse az alábbi eljárásokat a változó oszlop .

♠ 1. lépés: VBA kód írása

• Egy új Modul , írja a következőket VBA kód .

 Sub Variable_Column_Font() 'deklaráljunk egy változót a sorszámhoz Dim Column_num As Integer 'Adjunk meg egy Input boxot, írjuk be az 5 oszlopszámot Column_num = InputBox("Type the Column number") 'Adjuk be a 'Column_num' változót, hogy kiválasszuk az első 5 oszlopot tartalmazó adatokat Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Adjunk be egy színt a betűtípushoz Maroon-ban With Selection .Font.Color =RGB(128, 0, 0, 0) End With End Sub 

♠ 2. lépés: A program futtatása

• A címre. fuss a programot, nyomja meg a F5 a után mentés .
• Ezért a következő eredményeket fogja látni, mint az Ön kiválasztott cellák a tartomány B5:E8 .

4. Dinamikus tartomány testreszabása változó oszlop alkalmazásával az Excel VBA segítségével

Az előzőn kívül testre szabhatja a változó oszlop dinamikusan kell végrehajtani. növelje a címet. adatok egy oszlop amely add a kiválasztás Kövesse az alábbi egyszerű utasításokat.

♠ 1. lépés: VBA-kód beillesztése

• Paste a következőket VBA kódok egy új Modul .

 Sub Variable_Dynamic_Column() 'deklaráljunk egy változót az oszlopszámhoz Dim lastColumn As Integer 'Define variable to the used range lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'Apply the variable to select cuurent last column in the range Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'color the font of selected cells in Maroon With Selection .Font.Color = RGB(128, 0,0) End With End Sub 

♠ 2. lépés: A program futtatása

• Először is, mentse a programot, és nyomja meg a F5 futni.
• Ennek eredményeképpen a tartomány kiválasztásra és formázásra kerül a utoljára használt oszlop a munkalapon.

Bővebben: Excel makró: Több oszlop rendezése dinamikus tartományban (4 módszer)

5. Változó sorral és változó oszloppal rendelkező tartomány létrehozása az Excel VBA segítségével

Fontos, hogy mindkettőt használhatja változó sorok és változó oszlopok A tartománykijelölésünk első cellája a következő B5 ( Sor 5, Oszlop 2 ) és az utolsó tartomány a mi választásunktól függően változik. Kövesse az alábbiakban vázolt lépéseket a feladat elvégzéséhez.

♠ 1. lépés: Írjon be egy VBA kódot

• Először is, hozzon létre egy új Modul .
• Akkor, írja a következőket VBA kódok .

 Sub Variable_Column_Row() 'deklaráljunk egy változót a sorszámhoz Dim Row_Number As Integer 'deklaráljunk egy változót az oszlopszámhoz 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. lépés: A sorszám beillesztése

• Típus bármilyen sorszám .

♠ 3. lépés: Az oszlopszám beillesztése

• Típus bármilyen oszlopszám .

♠ 4. lépés: Szerezd meg a végleges eredményeket

• Következésképpen, amikor kiválasztja ( Sor , Oszlop ) = ( 8,5 ), akkor az alábbi képen látható végeredményt kapja.

Következtetés

Végezetül remélem, most már érti, hogyan használhatja a tartományt változó sorokkal és oszlopokkal a Excel VBA . Mindezeket a stratégiákat akkor kell végrehajtani, amikor az adatokat oktatják és gyakorolják. Vizsgálja meg a gyakorlókönyvet, és alkalmazza a tanultakat. Az Önök nagylelkű támogatása miatt hajt minket, hogy továbbra is ilyen programokat kínáljunk.

Ha bármilyen kérdése van, kérjük, forduljon hozzánk bizalommal. Kérjük, ossza meg gondolatait az alábbi megjegyzések között.

A Exceldemy A személyzet a lehető leghamarabb jelentkezni fog.

Maradjon velünk és tanuljon tovább.