Se on aikaa vievää, kun haluat muotoilla soluja valinnan mukaan ja työskennellä samanaikaisesti suurten tietojen kanssa. Mutta apuna käytetään VBA , voimme ohjelmoida sen melko helposti. Tässä opetusohjelmassa näytämme, miten käyttää apuna muuttuva rivi ja muuttuja sarake alueella, jolla on Excel VBA .

Lataa harjoituskirja

Lataa tämä harjoituskirja, jotta voit harjoitella tätä artikkelia lukiessasi.

5 sopivaa tapaa käyttää aluetta muuttuvalla rivillä ja sarakkeella Excel VBA: n kanssa

Seuraavassa jaksossa osoitetaan 5 tapoja luoda muuttuvat rivit ja sarakkeet Lisäksi näytämme, miten voit käyttää niitä muotoilemalla tai soveltamalla mitä tahansa muokkauksia vaihteluväli Alla olevassa kuvassa on esitetty esimerkkitietoaineisto, jossa tehtävää käytetään.

1. Muotoile tietty alue soveltamalla muuttujariviä Excel VBA:lla.

Oletetaan, että haluamme valita vaihteluväli hakemalla muuttuva rivinumero Valitaan alue B5:C10 ja soveltaa fontin väri ( Maroon Seuraa alla olevia yksinkertaisia ohjeita.

♠ Vaihe 1: luo VBA-moduuli

• Paina ensin Alt + F11 käynnistääksesi VBA-makro .
• Klikkaa on Sisällytä.
• Valitse sitten Moduuli .

♠ Vaihe 2: Kirjoita VBA-koodi

• Kirjoita seuraavat VBA-koodit.

 Sub Variable_row_Select() 'declare a variable for row number Dim Row_Number As Integer 'Enter a Input box, type 10 for the row number Row_Number = InputBox("Type the row number") 'Insert the variable 'row_num' to select the first 5 rive contains data Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub 

♠ Vaihe 3: Ohjelman suorittaminen

• Ensinnäkin, save ohjelma ja paina F5 juosta.
• Siksi Syöttölaatikko tulee näkyviin, ja kirjoita 10 kuten rivin numero .

• Paina lopuksi Kirjoita huolehtia siitä, että alue kanssa ( Rivi 5 , Pylväs 2 ) - ( Muuttuja Rivi 10 , Sarake 3 ) on valitut .

♠ Vaihe 4: Sovita kirjasimen väri alueeseen

• Lisätä fontin väri valitussa alue , liitä seuraava VBA-koodit .

 Sub Variable_row_Font() 'Ilmoita muuttuja rivin numerolle Dim Row_Number As Integer 'Syötä syöttölaatikkoon, kirjoita 10 rivin numeroksi Row_Number = InputBox("Kirjoita rivin numero") 'Lisää muuttuja 'row_num' valitsemaan ensimmäiset 6 riviä, jotka sisältävät dataa Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Syötä fontin väri Maroon With Selection .Font.Color = RGB(128, 0, 0, 0)End With End Sub 

♠ Vaihe 5: Kirjoita rivin numero

• Tyyppi a rivin numero ( 10 ) vuonna Syöttölaatikko .
• Klikkaa OK .

• Siksi valittu alue on värillinen kuten alla olevassa kuvassa näkyy.

Lue lisää: VBA: n käyttäminen alueen muuttujan asettamiseen Excelin valintaan (5 menetelmää)

2. Mukauta dynaamista aluetta soveltamalla muuttujaa rivi Excel VBA:n avulla.

Kun käytetty alue on niin suuri, että rivinumeroa ei voi erottaa toisistaan, saatat joutua käyttämään komentoa viimeksi käytetty rivi kuin sinun muuttuva rivi Jos olet tehnyt sen, noudata alla olevia ohjeita.

♠ Vaihe 1: Kirjoita VBA-koodi

• Valitse uusi Moduuli alkaen Lisää
• Uudessa Moduuli , kirjoittaa seuraavat VBA-ohjelma .

 Sub Variable_Dynamic_Row() 'declare a variable for row number Dim Last_Used_Row As Integer 'Määritä muuttuja käytetylle alueelle Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Sovelletaan muuttujaa valitsemaan alueen viimeinen rivi Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub 

♠ Vaihe 2: Hanki valinta

• Ohjelman suorittamisen jälkeen alue on valitut jopa sinun viimeksi käytetty rivi.

♠ Vaihe 3: Sovita fontin väri

• Osoitteeseen mark ... valittu alue tai muokkaa , liitä seuraavat VBA-koodit .

 Sub Variable_Dynamic_Row() 'declare a variable for row number Dim Last_Used_Row As Integer 'Määritä muuttuja käytetylle alueelle Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Sovelletaan muuttujaa valitsemaan nykyinen viimeinen rivi alueelta 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 

♠ Vaihe 4: Lopullinen tulos

• Vihdoinkin, save ohjelma ja ajaa painamalla F5 .
• Tämän seurauksena alue, jolla sinun viimeksi käytetty rivi on muotoiltu värillä.

Lue lisää: Excel VBA: Dynaamisen alueen kopiointi toiseen työkirjaan

Samanlaisia lukemia

• VBA:n käyttäminen Excelin jokaisen rivin alueella Excelissä
• VBA Excelin rivien ja sarakkeiden läpikäyminen (5 esimerkkiä)
• Excel VBA:n silmukointi alueen läpi, kunnes tyhjä solu (4 esimerkkiä)
• Kuinka muuntaa alue Excel VBA: n monisteeksi (3 tapaa)
• Kuinka käyttää VBA: ta valita alue aktiivisesta solusta Excelissä (3 menetelmää)

3. Muotoile tietty alue soveltamalla muuttuja saraketta Excel VBA:lla.

Samanlainen kuin muuttuvat rivit , voit hakea muuttujan sarakkeet kanssa Excel VBA . B5 ( Rivi 5 , Pylväs 2 ) solu on ensimmäinen solu vuonna alue, ja Rivi 8 on viimeinen rivi alueella; viimeinen sarake on muuttuja sarake . Noudata alla olevia menettelyjä, kun haluat soveltaa muuttuja sarake .

♠ Vaihe 1: Kirjoita VBA-koodi

• Uudessa Moduuli , kirjoittaa seuraavat VBA-koodi .

 Sub Variable_Column_Font() 'declare a variable for row number Dim Column_num As Integer 'Enter a Input box, type 5 for the Column number Column_num = InputBox("Type the Column number") 'Insert the variable 'Column_num' to select the first 5 Columns of containing data Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Syötä fontin väri Maroon With Selection .Font.Color =RGB(128, 0, 0, 0) End With End Sub 

♠ Vaihe 2: Ohjelman suorittaminen

• Osoitteeseen ajaa ohjelman, paina F5 jälkeen säästö .
• Näin ollen näet seuraavat tulokset, kun sinun valitut solut ovat vaihteluväli B5:E8 .

4. Mukauta dynaamista aluetta soveltamalla muuttuvaa saraketta Excel VBA:n avulla.

Edellisen lisäksi voit mukauttaa myös muuttuja sarake suorittaa dynaamisesti. Kun lisätä tiedot sarake joka lisää osoitteeseen valinta Seuraa alla olevia yksinkertaisia ohjeita.

♠ Vaihe 1: Liitä VBA-koodi

• Liitä seuraavat VBA koodit uuteen Moduuli .

 Sub Variable_Dynamic_Column() 'declare a variable for column number 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 

♠ Vaihe 2: Suorita ohjelma

• Ensinnäkin, save ohjelma ja paina F5 juosta.
• Tämän tuloksena alue valitaan ja muotoillaan aina arvoon viimeksi käytetty sarake laskentataulukossa.

Lue lisää: Excel-makro: Lajittele useita sarakkeita dynaamisella alueella (4 menetelmää)

5. Luo alue, jossa on sekä muuttuva rivi että muuttuva sarake Excel VBA:lla.

Tärkeää on, että voit käyttää sekä muuttuvat rivit ja muuttuvat sarakkeet valitsemallasi valinnalla. Ensimmäinen solu aluevalinnassamme on B5 ( Rivi 5, Pylväs 2 ) ja viimeinen alue vaihtelee valintamme mukaan. Seuraa alla esitettyjä vaiheita tehtävän suorittamiseksi.

♠ Vaihe 1: Kirjoita VBA-koodi

• Ensinnäkin, luo uusi Moduuli .
• Sitten, kirjoittaa seuraavat VBA-koodit .

 Sub Variable_Column_Row() 'declare a variable for row number Dim Row_Number As Integer 'declare a variable for column number Dim Column_num As Integer 'Määritä muuttujat - kirjoita 8 rivin numerolle ja 4 sarakkeelle Row_Number = InputBox("Kirjoita rivin numero") Column_num = InputBox("Kirjoita sarakkeen numero") 'Sovelletaan muuttujaa valitsemaan rivejä ja sarakkeita alueelta 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 

♠ Vaihe 2: Lisää rivinumero

• Tyyppi kaikki rivin numero .

♠ Vaihe 3: Lisää sarakkeen numero.

• Tyyppi kaikki sarakkeen numero .

♠ Vaihe 4: Hanki lopulliset tulokset

• Näin ollen, kun valitset ( Rivi , Pylväs ) = ( 8,5 ), saat alla olevan kuvan mukaisen lopputuloksen.

Päätelmä

Lopuksi toivon, että ymmärrät nyt, kuinka käyttää vaihtelevien rivien ja sarakkeiden vaihteluväliä käyttämällä komentoa Excel VBA . Kaikki nämä strategiat tulisi toteuttaa, kun tietojasi koulutetaan ja harjoitellaan. Tutustu harjoituskirjaan ja sovella oppimaasi. Jatkamme tämänkaltaisten ohjelmien tarjoamista teidän anteliaan tukenne ansiosta.

Jos sinulla on kysyttävää, älä epäröi ottaa meihin yhteyttä, ja jaa ajatuksesi alla olevaan kommenttiosioon.

The Exceldemy henkilökunta ottaa sinuun yhteyttä mahdollisimman pian.

Pysy kanssamme ja jatka oppimista.