Cum să utilizați VBA pentru a seta o variabilă de interval la selecție în Excel (5 metode)

Hugh West

16-10-2023 Macros & Excel VBA
  • Imparte Asta
Hugh West

În acest articol, vom demonstra câteva idei despre cum să folosim Excel VBA pentru a stabili un variabila intervalului pentru selecție. Putem executa câteva operații obișnuite pe aceste celule selectate folosind VBA În următorul set de date Excel, prezentăm câteva date occidentale. nume de trupe și a celor corespunzătoare cântăreți vocali .

Descărcați caietul de practică

VBA pentru a seta intervalul de selecție.xlsm

5 moduri de a utiliza VBA pentru a seta o variabilă de interval la selecție în Excel

1. Setarea variabilei de interval pentru a selecta un interval cu Excel VBA

Putem selecta un interval prin interval de setare în VBA Să presupunem că dorim să selectăm celule B5:C8 Să trecem la procedura de mai jos.

Pași:

  • Pentru a scrie cod în VBA, mai întâi, deschideți fereastra fila Dezvoltator și apoi selectați Visual Basic .

Apoi, se va deschide o nouă fereastră de Microsoft Visual Basic pentru aplicații .

  • Acum, deschideți Introduceți >> selectați Modul

.

  • Introduceți următorul cod în fereastra Modul VBA . 
 Sub RangeSelect() Dim Rng1 As Range Worksheets("selectRange").Activate Set Rng1 = Range("B5:C8") Rng1.Select End Sub

Aici, noi set la intervalul B5:C8 ca Rng1 . îl selectăm prin Gama Metoda Metoda de VBA Țineți minte că trebuie să activați excel nostru foaie așa că am activat selectRange foaie.

  • Acum întoarceți-vă la foaie și executați Macro .

  • După aceea, veți vedea intervalul B5:C8 selectate automat.

Astfel, puteți seta valoarea dorită variabila intervalului la selecție folosind VBA .

Citește mai mult: Excel VBA: Obțineți un interval de celule cu valori (7 exemple)

2. Utilizarea VBA pentru a formata celule prin setarea variabilei Range

Să presupunem că setul nostru de date arată ca în imaginea următoare.

Vrem să facem din rubrica îndrăzneț și AutoFit la coloane Putem face acest lucru prin VBA Să vedem cum putem face acest lucru.

Pași:

  • În primul rând, deschideți Visual Basic și introduceți următorul cod în fereastra Modul VBA (pentru a vedea cum se deschide Visual Basic și Modul VBA , vă rugăm să mergeți la Secțiunea 1 ). 
 Sub SetRange() Dim xyz As Range Set xyz = Range("B4:C4") xyz.Font.Bold = True xyz.Select Worksheets("autofit").Columns("B:C").AutoFit End Sub

Aici se stabilește valoarea intervalul B4:C4 ca xyz . apoi am folosit Bold pentru a face ca fonturi în celulă B4 și C4 bold De asemenea, am montat coloane B și C folosind AutoFit metoda.

  • Acum, întoarceți-vă la foaie și executați Macro care se numește SetRange .

După aceea, veți vedea numele în mod clar în coloane și anteturi devin bold și selectat.

Urmând această cale, puteți format celule și AutoFit setarea coloanelor variabilele intervalului în VBA .

Lecturi similare

  • Cum să utilizați VBA pentru fiecare rând dintr-o gamă în Excel
  • Cum să utilizați VBA pentru a selecta intervalul din celula activă în Excel (3 metode)
  • Macro Excel: Sortați mai multe coloane cu interval dinamic (4 metode)

3. Copierea unui interval prin setarea selecției variabilei Range în VBA

Să presupunem că dorim să copiem B6:C9 prin setarea variabila intervalului la selectați Să discutăm procedura de mai jos.

Pași:

  • În primul rând, deschideți Visual Basic și introduceți următorul cod în fereastra Modul VBA (pentru a vedea cum se deschide Visual Basic și Modul VBA , vă rugăm să mergeți la Secțiunea 1 ). 
 Sub CopyRange() Dim cpy As Range Set cpy = Range("B6:C9") cpy.Copy End Sub

Aici, am copiat pur și simplu intervalul B6:C9 prin utilizarea Copiați metoda de VBA Am stabilit intervalul B6:C9 ca cpy .

  • Acum întoarceți-vă la foaie și executați Macros . Selectați CopyRange deoarece este numele fișierului dvs. curent Macro .

Veți vedea intervalul B6:C9 este copiat.

Puteți lipi acest lucru gama oriunde în Excel foaie prin apăsarea CTRL + V . am lipit gama prin B12 la C15 .

Urmând această metodă, puteți copie a gama prin setarea variabila intervalului la selecție în Excel VBA .

Citește mai mult: Excel VBA: Copierea intervalului dinamic în alt registru de lucru

4. Formatarea celulelor cu culoare prin setarea variabilei Range la Selection

Să presupunem că dorim să colorăm 8. și Al 10-lea rândurile din setul de date cu verde Să urmărim descrierea de mai jos.

Pași:

  • În primul rând, deschideți Visual Basic și introduceți următorul cod în fereastra Modul VBA (pentru a vedea cum se deschide Visual Basic și Modul VBA , vă rugăm să mergeți la Secțiunea 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Aici ne definim intervalul B8:C8 și B10:C10 ca x1 și x2 respectiv, ne-am făcut culoare Excel Foaie ca ActiveSheet și am colorat imaginea noastră dorită intervale de Proprietatea ColorIndex .

  • Acum întoarceți-vă la foaie și executați Macros . Selectați ColorRange deoarece este numele fișierului curent Macro .

După aceea, veți vedea imaginea dorită intervale umplut cu verde culoare.

Astfel, puteți formata celulele cu culoare prin setarea variabila intervalului la selecție.

Citește mai mult: Cum se utilizează intervalul cu rând și coloană variabilă cu Excel VBA

Lecturi similare

  • VBA pentru a trece în buclă prin rândurile și coloanele dintr-o gamă în Excel (5 exemple)
  • Excel VBA pentru bucla prin interval până la celula goală (4 exemple)
  • Cum să convertiți intervalul în matrice în Excel VBA (3 moduri)

5. Ștergerea rândurilor prin setarea variabilei Range în VBA

Să presupunem că dorim să ștergem 8. și Al 10-lea rândurile din setul de date cu verde Să urmărim descrierea de mai jos.

Pași:

  • În primul rând, deschideți Visual Basic și introduceți următorul cod în fereastra Modul VBA (pentru a vedea cum se deschide Visual Basic și Modul VBA , vă rugăm să mergeți la Secțiunea 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

The intervale pe care dorim să le ștergem sunt B8:C8 și B10:C10 Le-am numit x1 și x2 Apoi, le-am șters pur și simplu prin Ștergeți metoda.

  • Acum întoarceți-vă la foaie și executați Macros . Alegeți DeleteRange deoarece este numele fișierului dvs. curent Macro .

După aceea, veți vedea intervale B8:C8 și B10:C10 au dispărut.

Urmând această abordare, puteți șterge rânduri prin setarea variabilele intervalului la selecție.

Secțiunea practică

În imaginea următoare, veți găsi setul de date pe care am lucrat în acest articol, astfel încât să puteți exersa pe cont propriu.

Concluzie

Pe scurt, articolul se concentrează în totalitate pe unele aplicații pentru a seta variabila intervalului la selecția prin Excel VBA . am descris câteva metode destul de elementare. Dacă aveți alte idei sau feedback, vă rog să le lăsați în caseta de comentarii. Acest lucru mă va ajuta să îmi îmbogățesc articolele viitoare.

Postarea anterioară Cum se utilizează SUMIFS atunci când celulele nu sunt egale cu mai multe texte
Postarea următoare Cum să convertiți numărul în data în Excel (6 moduri simple)

Hugh West este un trainer și analist Excel cu o experiență de peste 10 ani în industrie. Deține o diplomă de licență în contabilitate și finanțe și un master în administrarea afacerilor. Hugh are o pasiune pentru predare și a dezvoltat o abordare unică de predare care este ușor de urmărit și de înțeles. Cunoștințele sale experte despre Excel au ajutat mii de studenți și profesioniști din întreaga lume să-și îmbunătățească abilitățile și să exceleze în cariera lor. Prin blogul său, Hugh își împărtășește cunoștințele lumii, oferind tutoriale gratuite Excel și instruire online pentru a ajuta persoanele și companiile să-și atingă întregul potențial.