Kako uporabiti obseg s spremenljivo vrstico in stolpcem s programom Excel VBA

Hugh West

16-10-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

Kadar želite oblikovati celice z izbiro in hkrati delati z velikimi podatki, je to zamudno. VBA , lahko to preprosto storimo s programom. V tem vodniku vam bomo pokazali, kako uporabiti vrstica spremenljivke in . spremenljivka stolpec v območju z Excel VBA .

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za vadbo, ki ga lahko uporabljate med branjem tega članka.

Spremenljiva vrstica in stolpec z VBA.xlsm

5 primernih načinov za uporabo območja s spremenljivo vrstico in stolpcem z Excel VBA

V naslednjem razdelku bomo prikazali 5 načini ustvarjanja vrstice spremenljivk in . stolpci Poleg tega vam bomo pokazali, kako jih lahko uporabite za oblikovanje ali uporabo prilagoditev za spremenljivo območje . Na spodnji sliki je prikazan vzorčni nabor podatkov za uporabo naloge.

1. Oblikujte določen obseg z uporabo spremenljive vrstice z Excelovo VBA

Recimo, da želimo izbrati spremenljivo območje s prijavo za številka vrstice spremenljivke . Izbrali bomo območje B5:C10 in uporabite barva pisave ( Maroon ) v območju. To storite po preprostih korakih v nadaljevanju.

♠ Korak 1: Ustvarite modul VBA

  • Najprej pritisnite Alt + F11 za zagon Makro VBA .
  • Kliknite . na Vstavljanje.
  • Nato izberite Modul .

♠ Korak 2: Napišite kodo VBA

  • Napišite naslednje Kode VBA. 
 Sub Variable_row_Select() "razglasi spremenljivko za številko vrstice Dim Row_Number As Integer "Vnesite vnosno polje, vnesite 10 za številko vrstice Row_Number = InputBox("Vnesite številko vrstice") "Vstavite spremenljivko "row_num", da izberete prvih 5 vrstic s podatki Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub

♠ Korak 3: Zagon programa

  • Prvič, shranite program in pritisnite F5 za zagon.
  • Zato je Vnosno polje in vnesite 10 kot številka vrstice .

  • Na koncu pritisnite Vnesite poskrbeti, da bo obseg z ( Vrstica 5 , Stolpec 2 ) na ( Spremenljiva vrstica 10 , Stolpec 3 ) bo izbrani .

♠ Korak 4: Uporaba barve pisave za območje

  • Dodajanje barva pisave v izbranem obseg , prilepite naslednje Kode VBA . 
 Sub Variable_row_Font() "razglasite spremenljivko za številko vrstice Dim Row_Number As Integer "Vnesite vnosno polje, vnesite 10 za številko vrstice Row_Number = InputBox("Vnesite številko vrstice") "Vstavite spremenljivko "row_num" za izbiro prvih 6 vrstic, ki vsebujejo podatke Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select "Vnos barve za pisavo v bordo z Selection .Font.Color = RGB(128, 0, 0)Konec s Konec podmene

♠ Korak 5: Vnesite številko vrstice

  • Tip a številka vrstice ( 10 ) v Vnosno polje .
  • Kliknite . V REDU .

  • Zato je izbrano območje bo barvni kot je prikazano na spodnji sliki.

Preberite več: Kako uporabiti VBA za nastavitev spremenljivke obsega na izbiro v Excelu (5 metod)

2. Prilagodite dinamični obseg z uporabo spremenljive vrstice z Excelovim VBA

Če je uporabljeno območje tako veliko, da ne morete razlikovati med številkami vrstic, boste morda morali uporabiti zadnja uporabljena vrstica kot vaš vrstica spremenljivke . Če ste to storili, sledite spodnjim korakom.

♠ Korak 1: Vnesite kodo VBA

  • Izberite novo Modul iz Vstavite
  • V novem Modul , napišite naslednje Program VBA . 
 Sub Variable_Dynamic_Row() 'razglasite spremenljivko za številko vrstice Dim Last_Used_Row As Integer 'določite spremenljivko za uporabljeno območje Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'uporabite spremenljivko za izbiro trenutno zadnje vrstice v območju Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub

♠ Korak 2: Pridobite izbor

  • Ko zaženete program, se obseg bo izbrani do vašega zadnjič uporabljen vrstica.

♠ Korak 3: Uporaba barve pisave

  • Na naslov mark . izbrano območje ali v uredi , prilepite naslednje Kode VBA . 
 Sub Variable_Dynamic_Row() 'razglasite spremenljivko za številko vrstice Dim Last_Used_Row As Integer 'Definirajte spremenljivko za uporabljeno območje Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Uporabite spremenljivko za izbiro trenutne zadnje vrstice v območju Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Korak 4: Končni rezultat

  • Končno, shranite program in zagnati s pritiskom na F5 .
  • Zato je območje z vašim zadnja uporabljena vrstica je oblikovan z barvo.

Preberite več: Excel VBA: Kopiranje dinamičnega območja v drugo delovno knjižico

Podobna branja

  • Kako uporabiti VBA za vsako vrstico v območju v Excelu
  • VBA za zanko skozi vrstice in stolpce v območju v Excelu (5 primerov)
  • Excel VBA za zanko v območju do prazne celice (4 primeri)
  • Kako pretvoriti obseg v polje v programu Excel VBA (3 načini)
  • Kako uporabiti VBA za izbiro območja iz aktivne celice v Excelu (3 metode)

3. Oblikovanje določenega obsega z uporabo spremenljivega stolpca s programom Excel VBA

Podobno kot vrstice spremenljivk , se lahko prijavite spremenljivi stolpci s spletno stranjo . Excel VBA . B5 ( Vrstica 5 , Stolpec 2 ) je celica prva celica v obseg, in . Vrstica 8 je zadnja vrstica v razponu; zadnji stolpec je spremenljivka stolpec . Za uporabo spremenljivka stolpec .

♠ Korak 1: Napišite kodo VBA

  • V novem Modul , napišite naslednje Koda VBA . 
 Sub Variable_Column_Font() 'razglasi spremenljivko za številko vrstice Dim Column_num As Integer 'Vnesite vnosno polje, vnesite 5 za številko stolpca Column_num = InputBox("Vnesite številko stolpca") 'Vnesite spremenljivko 'Column_num' za izbiro prvih 5 stolpcev, ki vsebujejo podatke Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Vnos barve pisave v bordo z Selection .Font.Color =RGB(128, 0, 0) Konec s Konec podnaslova

♠ Korak 2: Zagon programa

  • Na naslov zagnati program, pritisnite F5 po varčevanje .
  • Zato se bodo kot rezultati prikazali naslednji rezultati. izbrane celice so razponi B5:E8 .

4. Prilagodite dinamični obseg z uporabo spremenljivega stolpca z Excelovim VBA

Poleg prejšnjega lahko prilagodite tudi spremenljivka stolpec za dinamično izvajanje. povečanje . podatkov v stolpec ki bo dodajte na izbor Za to sledite preprostim navodilom v nadaljevanju.

♠ Korak 1: Prilepite kodo VBA

  • Paste naslednje VBA kode v novo Modul . 
 Sub Variable_Dynamic_Column() 'razglasite spremenljivko za številko stolpca Dim lastColumn As Integer 'določite spremenljivko za uporabljeno območje lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'uporabite spremenljivko, da izberete zadnji stolpec v območju Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'obarvajte pisavo izbranih celic v bordo z Selection .Font.Color = RGB(128, 0,0) End With End Sub

♠ Korak 2: Zagon programa

  • Prvič, shranite program in pritisnite F5 za zagon.
  • Zato je območje izbrano in oblikovano do vrednosti zadnji uporabljeni stolpec v delovnem listu.

Preberite več: Excelov makro: Razvrstite več stolpcev z dinamičnim obsegom (4 metode)

5. Ustvarjanje območja s spremenljivo vrstico in spremenljivim stolpcem s programom Excel VBA

Pomembno je, da lahko uporabite oba vrstice spremenljivk in . spremenljivi stolpci z izbranim izborom. Prva celica v našem izboru obsega je B5 ( Vrstica 5, Stolpec 2 ), zadnje območje pa se bo spreminjalo glede na našo izbiro. Za izvedbo naloge sledite opisanim korakom v nadaljevanju.

♠ Korak 1: Vnesite kodo VBA

  • Prvič, ustvarite novo Modul .
  • Nato, napišite naslednje Kode VBA . 
 Sub Variable_Column_Row() 'Deklarirajte spremenljivko za številko vrstice Dim Row_Number As Integer 'Deklarirajte spremenljivko za številko stolpca Dim Column_num As Integer 'Definirajte spremenljivke - vnesite 8 za številko vrstice in 4 za stolpec Row_Number = InputBox("Vnesite številko vrstice") Column_num = InputBox("Vnesite številko stolpca") 'Uporabite spremenljivko za izbiro vrstic in stolpcev v območju Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Izbor .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Korak 2: Vstavite številko vrstice

  • Tip vse številka vrstice .

♠ Korak 3: Vstavite številko stolpca

  • Tip vse številka stolpca .

♠ 4. korak: Pridobite končne rezultate

  • Ko izberete ( Vrstica , Stolpec ) = ( 8,5 ), boste dobili končni rezultat, kot je prikazan na spodnji sliki.

Zaključek

Upam, da zdaj razumete, kako uporabiti območje s spremenljivimi vrsticami in stolpci z Excel VBA . vse te strategije je treba izvajati, ko se vaši podatki izobražujejo in vadijo. Preučite vadnico in uporabite, kar ste se naučili. Zaradi vaše velikodušne podpore nas žene, da še naprej ponujamo programe, kot je ta.

Če imate kakršna koli vprašanja, se obrnite na nas. V spodnjem razdelku s komentarji delite svoje misli.

Spletna stran Odlično zaposleni vas bodo čim prej kontaktirali.

Bodite z nami in se še naprej učite.

Prejšnja objava Kako pretvoriti Excel v besedilno datoteko s cevnim ločilnikom (2 načina)
Naslednja objava Kako uporabiti več filtrov v Excelu (6 primernih metod)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.