Kai norite formatuoti langelius pagal pasirinkimą ir tuo pačiu metu dirbti su dideliais duomenimis, tai užima daug laiko. VBA , galime gana lengvai tai užprogramuoti. Šioje pamokoje parodysime, kaip naudoti kintamojo eilutė ir kintamasis stulpelis diapazone, kuriame yra "Excel" VBA .

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.

5 tinkami būdai naudoti diapazoną su kintama eilute ir stulpeliu naudojant "Excel VBA

Kitame skyriuje parodysime. 5 būdai, kaip sukurti kintamųjų eilutės ir stulpeliai Be to, parodysime, kaip juos naudoti formatuojant arba pritaikant bet kokį pritaikymą kintamas diapazonas . Toliau pateiktame paveikslėlyje pavaizduotas pavyzdinis duomenų rinkinys, kuriame galima panaudoti užduotį.

1. Suformatuokite tam tikrą diapazoną taikydami kintamąją eilutę naudodami "Excel VBA

Tarkime, norime pasirinkti kintamas diapazonas pateikdami paraišką dėl kintamasis eilutės numeris . Pasirinksime diapazoną B5:C10 ir taikyti šrifto spalva ( Maroon ) diapazone. Norėdami tai padaryti, atlikite toliau nurodytus paprastus veiksmus.

♠ 1 žingsnis: sukurti VBA modulį

• Pirmiausia paspauskite Alt + F11 paleisti VBA makrokomandos .
• Spustelėkite apie Įdėkite.
• Tada pasirinkite Modulis .

♠ 2 žingsnis: parašykite VBA kodą

• Parašykite šiuos dalykus VBA kodai.

 Sub Variable_row_Select() "deklaruokite eilutės numerio kintamąjį Dim Row_Number As Integer "Įveskite įvesties lauką, eilutės numeriui įveskite 10 Row_Number = InputBox("Įveskite eilutės numerį") "Įterpkite kintamąjį "row_num", kad pasirinktumėte pirmąsias 5 eilutes su duomenimis Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub 

♠ 3 žingsnis: paleiskite programą

• Pirma, išsaugoti programą ir paspauskite F5 paleisti.
• Todėl Įvesties langelis ir įveskite 10 kaip eilutės numeris .

• Galiausiai paspauskite Įveskite įsitikinti, kad diapazonas su ( Eilutė 5 , Stulpelis 2 ) į ( Kintamasis 10 eilutė , 3 stulpelis ) bus pasirinktas .

♠ 4 veiksmas: šrifto spalvos pritaikymas diapazonui

• Pridėti šrifto spalva pasirinktame diapazonas , įklijuokite šiuos įrašus VBA kodai .

 Sub Variable_row_Font() "deklaruoti eilutės numerio kintamąjį Dim Row_Number As Integer "Įveskite įvesties laukelį, eilutės numeriui įveskite 10 Row_Number = InputBox("Įveskite eilutės numerį") "Įterpkite kintamąjį "row_num", kad pasirinktumėte pirmąsias 6 eilutes, kuriose yra duomenų Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select "Įveskite spalvą į bordo spalvos šriftą With Selection .Font.Color = RGB(128, 0, 0)Pabaiga su Pabaiga Sub 

♠ 5 veiksmas: įveskite eilutės numerį

• Tipas a eilutės numeris ( 10 ) į Įvesties langelis .
• Spustelėkite GERAI .

• Todėl pasirinktas diapazonas bus spalvotas kaip parodyta toliau pateiktame paveikslėlyje.

Skaityti daugiau: Kaip naudoti VBA, kad nustatytumėte "Excel" diapazono kintamąjį kaip pasirinktą (5 metodai)

2. Dinaminio diapazono pritaikymas taikant kintamąją eilutę su "Excel VBA

Kai jūsų naudojamas diapazonas yra toks didelis, kad negalite atskirti eilutės numerio, gali tekti naudoti paskutinė naudota eilutė kaip jūsų kintamojo eilutė . Norėdami tai padaryti, atlikite toliau nurodytus veiksmus.

♠ 1 žingsnis: įveskite VBA kodą

• Pasirinkite naujas Modulis iš Įdėkite
• Naujajame Modulis , rašyti šie dalykai VBA programa .

 Sub Variable_Dynamic_Row() "deklaruokite eilutės numerio kintamąjį Dim Last_Used_Row As Integer "Nustatykite kintamąjį naudojamam diapazonui Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count "Taikykite kintamąjį, kad pasirinktumėte dabartinę paskutinę eilutę diapazone Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub 

♠ 2 žingsnis: Gaukite pasirinkimą

• Paleidus programą, jūsų diapazonas bus pasirinktas iki jūsų paskutinį kartą naudotas eilutė.

♠ 3 veiksmas: pritaikykite šrifto spalvą

• Į ženklas . pasirinktas diapazonas arba į redaguoti , įklijuokite šie dalykai VBA kodai .

 Sub Variable_Dynamic_Row() "deklaruokite eilutės numerio kintamąjį Dim Last_Used_Row As Integer "Apibrėžkite kintamąjį naudojamam diapazonui Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count "Taikykite kintamąjį, kad pasirinktumėte dabartinę paskutinę eilutę diapazone 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 žingsnis: galutinis rezultatas

• Galiausiai, išsaugoti programą ir paleisti jį paspausdami F5 .
• Dėl to diapazonas su jūsų paskutinė naudota eilutė yra suformatuotas spalvotai.

Skaityti daugiau: "Excel VBA": dinaminio diapazono kopijavimas į kitą darbaknygę

Panašūs skaitiniai

• Kaip naudoti VBA kiekvienai "Excel" diapazono eilutei
• VBA ciklas per "Excel" eilutes ir stulpelius (5 pavyzdžiai)
• "Excel" VBA ciklas per diapazoną iki tuščio langelio (4 pavyzdžiai)
• Kaip konvertuoti diapazoną į masyvą "Excel VBA" (3 būdai)
• Kaip naudoti VBA, norint pasirinkti diapazoną iš aktyvios ląstelės "Excel" programoje (3 metodai)

3. Tam tikro diapazono formatavimas taikant kintamąjį stulpelį naudojant "Excel VBA

Panašus į kintamųjų eilutės , galite kreiptis kintamieji stulpeliai su "Excel" VBA . B5 ( Eilutė 5 , Stulpelis 2 ) ląstelė yra pirmasis langelis į diapazonas, ir 8 eilutė yra paskutinė eilutė diapazone; paskutinis stulpelis yra kintamasis stulpelis . Atlikite toliau nurodytas procedūras, kad pritaikytumėte kintamasis stulpelis .

♠ 1 žingsnis: parašykite VBA kodą

• Naujame Modulis , rašyti šie dalykai VBA kodas .

 Sub Variable_Column_Font() "deklaruoti eilutės numerio kintamąjį Dim Column_num As Integer "Įveskite įvesties laukelį, įveskite 5 stulpelio numerį Column_num = InputBox("Įveskite stulpelio numerį") "Įterpkite kintamąjį "Column_num", kad pasirinktumėte pirmuosius 5 stulpelius, kuriuose yra duomenų Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select "Įveskite spalvą į šriftą Maroon With Selection .Font.Color =RGB(128, 0, 0, 0) End With End Sub 

♠ 2 žingsnis: paleiskite programą

• Į paleisti programą, paspauskite F5 po taupymas .
• Todėl matysite šiuos rezultatus kaip savo pasirinktos ląstelės yra diapazonas B5:E8 .

4. Pritaikykite dinaminį diapazoną taikydami kintamąjį stulpelį su "Excel VBA

Be ankstesnio, galite pritaikyti kintamasis stulpelis atlikti dinamiškai. padidinti duomenis į stulpelis kuris pridėti į atranka . Vadovaukitės toliau pateiktais paprastais nurodymais.

♠ 1 žingsnis: įklijuokite VBA kodą

• Pasta šie dalykai VBA kodus į naują Modulis .

 Sub Variable_Dynamic_Column() "deklaruokite stulpelio numerio kintamąjį Dim lastColumn As Integer "apibrėžti kintamąjį naudojamam diapazonui lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count "taikyti kintamąjį, kad būtų pasirinktas paskutinis stulpelis diapazone Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select "nuspalvinti pasirinktų ląstelių šriftą bordo spalva With Selection .Font.Color = RGB(128, 0,0) End With End Sub 

♠ 2 žingsnis: paleiskite programą

• Pirma, išsaugoti programą ir paspauskite F5 paleisti.
• Dėl to diapazonas pasirenkamas ir formatuojamas iki paskutinis naudotas stulpelis darbalapyje.

Skaityti daugiau: "Excel" makrokomanda: kelių stulpelių rūšiavimas naudojant dinaminį diapazoną (4 metodai)

5. Sukurkite diapazoną su kintama eilute ir kintamu stulpeliu naudodami "Excel" VBA

Svarbu tai, kad galite naudoti ir kintamųjų eilutės ir kintamieji stulpeliai pagal pasirinktą pasirinkimą. Mūsų diapazono pasirinkimo pirmoji ląstelė yra B5 ( Eilutė 5, Stulpelis 2 ), o paskutinis diapazonas skirsis priklausomai nuo mūsų pasirinkimo. Norėdami atlikti užduotį, atlikite toliau nurodytus veiksmus.

♠ 1 žingsnis: įveskite VBA kodą

• Pirma, sukurti naujas Modulis .
• Tada, rašyti šie dalykai VBA kodai .

 Sub Variable_Column_Row() 'deklaruokite eilutės numerio kintamąjį Dim Row_Number As Integer 'deklaruokite stulpelio numerio kintamąjį Dim Column_num As Integer 'Apibrėžkite kintamuosius - eilutės numeriui įrašykite 8, o stulpelio - 4 Row_Number = InputBox("Įveskite eilutės numerį") Column_num = InputBox("Įveskite stulpelio numerį") 'Taikykite kintamąjį, kad pasirinktumėte eilutes ir stulpelius diapazone 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 veiksmas: įveskite eilutės numerį

• Tipas bet kuris eilutės numeris .

♠ 3 veiksmas: įterpkite stulpelio numerį

• Tipas bet kuris stulpelio numeris .

♠ 4 žingsnis: gaukite galutinius rezultatus

• Todėl, kai pasirenkate ( Eilutė , Stulpelis ) = ( 8,5 ), gausite galutinį rezultatą, kaip parodyta toliau pateiktame paveikslėlyje.

Išvada

Galiausiai tikiuosi, kad dabar suprantate, kaip naudoti diapazoną su kintamomis eilutėmis ir stulpeliais su "Excel" VBA . Visos šios strategijos turėtų būti vykdomos, kai jūsų duomenys yra ugdomi ir praktikuojami. Išnagrinėkite praktikos knygą ir pritaikykite tai, ko išmokote. Mus skatina ir toliau siūlyti tokias programas, kaip ši, jūsų dosni parama.

Jei turite klausimų, nedvejodami kreipkitės į mus. Pasidalykite savo mintimis toliau pateiktame komentarų skyriuje.

Svetainė Exceldemy Darbuotojai su jumis susisieks kuo greičiau.

Būkite su mumis ir toliau mokykitės.