Sådan bruges Range med variabel række og kolonne med Excel VBA

Hugh West

16-10-2023 Makroer & Excel VBA
  • Del Dette
Hugh West

Det er tidskrævende, når du ønsker at formatere celler ved udvælgelse og arbejde med store data på samme tid. Men ved hjælp af den VBA , kan vi programmere det ret nemt. I denne vejledning vil vi vise dig, hvordan du bruger variabel række og variabel kolonne i et område med Excel VBA .

Download arbejdsbog til øvelser

Download denne arbejdsbog til træning, så du kan øve dig, mens du læser denne artikel.

Variabel række og kolonne med VBA.xlsm

5 egnede måder at bruge området med variabel række og kolonne på med Excel VBA

I det følgende afsnit vil vi demonstrere 5 måder at skabe variable rækker og kolonner Derudover vil vi vise dig, hvordan du bruger dem til at formatere eller anvende enhver tilpasning til den variabel rækkevidde Et eksempelsæt af data er vist i billedet nedenfor for at udnytte opgaven.

1. Formater et bestemt område ved at anvende variabel række med Excel VBA

Lad os sige, at vi ønsker at vælge en variabel rækkevidde ved at ansøge om et variabel række nummer Vi vil vælge intervallet B5:C10 og anvende skriftfarve ( Maroon ) i området. Følg de enkle trin nedenfor for at gøre dette.

♠ Trin 1: Opret et VBA-modul

  • Først og fremmest skal du trykke på Alt + F11 for at starte den VBA-makro .
  • Klik på på den Indsæt.
  • Vælg derefter Modul .

♠ Trin 2: Skriv en VBA-kode

  • Skriv følgende VBA-koder. 
 Sub Variable_row_Select() 'Deklarer en variabel for række nummer Dim Row_Number As Integer 'Indtast en Inputbox, skriv 10 for række nummer Row_Number = InputBox("Skriv række nummeret") 'Indsæt variablen 'row_num' for at vælge de første 5 rækker med data Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub

♠ Trin 3: Kør programmet

  • For det første, redde programmet, og tryk på F5 til at køre.
  • Derfor skal den Indtastningsfelt vises, og skriv 10 som den række nummer .

  • Til sidst skal du trykke på Indtast for at sikre, at den rækkevidde med ( Række 5 , Kolonne 2 ) til ( Variabel række 10 , Kolonne 3 ) vil være udvalgt .

♠ Trin 4: Anvend skrifttypefarve på området

  • For at tilføje skriftfarve i den valgte rækkevidde , indsæt følgende VBA-koder . 
 Sub Variable_row_Font() 'Deklarere en variabel for række nummer Dim Row_Number As Integer 'Indtast en Input boks, skriv 10 for række nummer Row_Number = InputBox("Skriv række nummeret") 'Indsæt variablen 'row_num' for at vælge de første 6 rækker med data Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Indtast en farve til skrifttypen i Maroon With Selection .Font.Color = RGB(128, 0, 0, 0)End With End Sub

♠ Trin 5: Indtast et rækkenummer

  • Type a række nummer ( 10 ) i den Indtastningsfelt .
  • Klik på OK .

  • Derfor skal den valgte rækkevidde vil være farvet som vist i billedet nedenfor.

Læs mere: Sådan bruger du VBA til at indstille en områdevariabel til valg i Excel (5 metoder)

2. Tilpas et dynamisk område ved at anvende variabel række med Excel VBA

Når det anvendte område er så stort, at du ikke kan skelne mellem rækkens nummer, kan det være nødvendigt at bruge sidste anvendte række som din variabel række Følg nedenstående trin for at få det gjort.

♠ Trin 1: Indtast en VBA-kode

  • Vælg en ny Modul fra den Indsæt
  • I den nye Modul , skriv følgende VBA-program . 
 Sub Variable_Dynamic_Row() 'Deklarere en variabel for række nummer Dim Last_Used_Row As Integer 'Definere variabel til det anvendte område Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Anvende variablen til at vælge den aktuelle sidste række i området Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub

♠ Trin 2: Få udvælgelsen

  • Når du har kørt programmet, vil din rækkevidde vil være udvalgt op til din sidst anvendt række.

♠ Trin 3: Anvend en skrifttypefarve

  • Til mark valgte rækkevidde eller til redigere , indsætte følgende VBA-koder . 
 Sub Variable_Dynamic_Row() 'Deklarere en variabel for række nummer Dim Last_Used_Row As Integer 'Definere variabel til det anvendte område Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Anvende variablen til at vælge den aktuelle sidste række i området 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

♠ Trin 4: Endeligt resultat

  • Endelig, redde programmet og køre den ved at trykke på F5 .
  • Som følge heraf kan rækkevidden med din sidste anvendte række er formateret med farve.

Læs mere: Excel VBA: Kopier dynamisk område til en anden projektmappe

Lignende læsninger

  • Sådan bruges VBA til hver række i et område i Excel
  • VBA til at gennemløbe rækker og kolonner i et område i Excel (5 eksempler)
  • Excel VBA til at gennemløbe intervallet indtil tom celle (4 eksempler)
  • Sådan konverteres Range til Array i Excel VBA (3 måder)
  • Sådan bruger du VBA til at vælge område fra aktiv celle i Excel (3 metoder)

3. Formater et bestemt område ved at anvende variabel kolonne med Excel VBA

Svarende til variable rækker , kan du ansøge variable kolonner med Excel VBA . B5 ( Række 5 , Kolonne 2 ) celle er den første celle i den rækkevidde, og Række 8 er den sidste række i området; den sidste kolonne er den variabel kolonne . Følg nedenstående procedurer for at anvende variabel kolonne .

♠ Trin 1: Skriv en VBA-kode

  • I en ny Modul , skriv følgende VBA-kode . 
 Sub Variable_Column_Font() 'Deklarere en variabel for række nummer Dim Column_num As Integer 'Indtast en Input boks, skriv 5 for kolonne nummer Column_num = InputBox("Skriv kolonne nummeret") 'Indsæt variablen 'Column_num' for at vælge de første 5 kolonner med data Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Indtast en farve til skrifttypen i Maroon With Selection .Font.Color =RGB(128, 0, 0, 0) End With End Sub

♠ Trin 2: Kør programmet

  • Til køre programmet, skal du trykke på F5 efter besparelse .
  • Derfor vil du se følgende resultater som din udvalgte celler er intervallet B5:E8 .

4. Tilpas et dynamisk område ved at anvende variabel kolonne med Excel VBA

Ud over den foregående kan du tilpasse den variabel kolonne at udføre dynamisk. Når du øge data i en kolonne der vil tilføj til den udvælgelse Følg den enkle vejledning nedenfor for at gøre det.

♠ Trin 1: Indsæt en VBA-kode

  • Indsæt følgende VBA koder i en ny Modul . 
 Sub Variable_Dynamic_Column() 'Deklarere en variabel for kolonnens nummer Dim lastColumn As Integer 'Definere variabel til det anvendte område lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'Anvende variablen til at vælge den cuurent sidste kolonne i området Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'Farve skrifttypen for de valgte celler i Maroon With Selection .Font.Color = RGB(128, 0,0) End With End Sub

♠ Trin 2: Kør programmet

  • For det første, redde programmet, og tryk på F5 til at køre.
  • Som følge heraf vælges og formateres området op til den sidst anvendte kolonne i regnearket.

Læs mere: Excel-makro: Sortere flere kolonner med dynamisk område (4 metoder)

5. Opret et område med både variabel række og variabel kolonne med Excel VBA

Det er vigtigt, at du kan bruge både variable rækker og variable kolonner med et valg efter eget valg. Den første celle i vores intervalvalg er B5 ( Række 5, Kolonne 2 ), og det sidste område vil variere efter vores valg. Følg nedenstående trin for at udføre opgaven.

♠ Trin 1: Indtast en VBA-kode

  • For det første, oprette en ny Modul .
  • Derefter, skriv følgende VBA-koder . 
 Sub Variable_Column_Row() 'Deklarér en variabel for række nummer Dim Row_Number As Integer 'Deklarér en variabel for kolonne nummer Dim Column_num As Integer 'Definer variabler - skriv 8 for række nummer og 4 for kolonne Row_Number = InputBox("Skriv række nummeret") Column_num = InputBox("Skriv kolonne nummeret") 'Anvend variablen til at vælge rækker og kolonner i intervallet 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

♠ Trin 2: Indsæt rækkens nummer

  • Type enhver række nummer .

♠ Trin 3: Indsæt kolonnenummeret

  • Type enhver kolonnenummer .

♠ Trin 4: Få de endelige resultater

  • Når du vælger ( Række , Kolonne ) = ( 8,5 ), får du det endelige resultat som vist i nedenstående billede.

Konklusion

Endelig håber jeg, at du nu har forstået, hvordan du kan bruge rækkevidde med variable rækker og kolonner med Excel VBA . alle disse strategier skal udføres, når dine data bliver uddannet og trænet. Undersøg øvelsesbogen og anvend det, du har lært. Vi er drevet af at fortsætte med at tilbyde programmer som dette på grund af din generøse støtte.

Hvis du har spørgsmål, er du velkommen til at kontakte os og dele dine tanker i kommentarfeltet nedenfor.

Exceldemy medarbejdere vil vende tilbage til dig så hurtigt som muligt.

Bliv hos os og bliv ved med at lære.

Forrige indlæg Sådan konverteres Excel til tekstfil med Pipe Delimiter (2 måder)
Næste indlæg Sådan anvender du flere filtre i Excel (6 egnede metoder)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.