VBA Select Range / Cells

VBA vă permite să selectați o celulă, intervale de celule sau toate celulele din foaia de lucru. Puteți manipula celula sau intervalul selectat folosind Obiectul de selecție.

Selectați o singură celulă utilizând VBA

Puteți selecta o celulă dintr-o foaie de lucru folosind metoda Selectare. Următorul cod va selecta celula A2 din foaia ActiveWorks:

1	Gama ("A2"). Selectați

Sau

1	Celule (2, 1). Selectați

Rezultatul este:

Selectați o gamă de celule folosind VBA

Puteți selecta un grup de celule într-o foaie de lucru folosind metoda Selectare și obiectul Range. Următorul cod va selecta A1: C5:

1	Interval ("A1: C5"). Selectați

Selectați o gamă de celule non-contigue folosind VBA

Puteți selecta celule sau intervale care nu sunt una lângă alta, separând celulele sau intervalele folosind o virgulă în VBA. Următorul cod vă va permite să selectați celulele A1, C1 și E1:

1	Interval ("A1, C1, E1"). Selectați

De asemenea, puteți selecta seturi de intervale non-contigue în VBA. Următorul cod va selecta A1: A9 și B11: B18:

1	Gama („A1: A9, B11: B18”). Selectați

Selectați Toate celulele dintr-o foaie de lucru

Puteți selecta toate celulele dintr-o foaie de lucru folosind VBA. Următorul cod va selecta toate celulele dintr-o foaie de lucru.

1	Celule. Selectați

Selectați un rând

Puteți selecta un anumit rând într-o foaie de lucru folosind obiectul Row și numărul de index al rândului pe care doriți să îl selectați. Următorul cod va selecta primul rând din foaia de lucru:

1	Rânduri (1). Selectați

Selectați o coloană

Puteți selecta o anumită coloană într-o foaie de lucru folosind obiectul Coloană și numărul de index al coloanei pe care doriți să o selectați. Următorul cod va selecta coloana C din foaia de lucru:

1	Coloane (3). Selectați

Selectați ultima celulă non-goală dintr-o coloană

Să presupunem că aveți date în celulele A1, A2, A3 și A4 și doriți să selectați ultima coloană necompletată care ar fi celula A4 din coloană. Puteți utiliza VBA pentru a face acest lucru și metoda Range.End.

The Gama.Metoda de sfârșit poate lua patru argumente și anume: xlToLeft, xlToRight, xlUp și xlDown.

Următorul cod va selecta ultima celulă necompletată care ar fi A4 în acest caz, dacă A1 este celula activă:

1	Range ("A1"). End (xlDown). Selectați

Selectați ultima celulă necompletată dintr-un rând

Să presupunem că aveți date în celulele A1, B1, C1, D1 și E1 și doriți să selectați ultima celulă ne-goală care ar fi celula E1 din rând. Puteți utiliza VBA pentru a face acest lucru și metoda Range.End.

Următorul cod va selecta ultima celulă necompletată care ar fi E1 în acest caz, dacă A1 este celula activă:

1	Range ("A1"). End (xlToRight). Selectați

Selectați regiunea curentă în VBA

Puteți utiliza Proprietatea CurrentRegion a obiectului Range pentru a selecta o gamă dreptunghiulară de celule goale și ne-goale în jurul unei celule de intrare specifice. Dacă aveți date în celula A1, B1 și C1, următorul cod ar selecta această regiune din jurul celulei A1:

1	Range ("A1"). CurrentRegion.Select

Deci ar fi selectat intervalul A1: C1.

Selectați o celulă care este relativă la o altă celulă

Puteți utiliza Proprietate compensată pentru a selecta o celulă care este relativă la o altă celulă. Următorul cod vă arată cum să selectați celula B2 care este 1 rând și 1 coloană relativ la celula A1:

1	Gama ("A1"). Offset (1, 1). Selectați

Selectați un domeniu numit în Excel

Puteți selecta Gama denumită de asemenea. Să presupunem că ați numit celule A1: A4 Fruit. Puteți utiliza următorul cod pentru a selecta acest interval denumit:

1	Gama („Fructe”). Selectați

Selectarea unei celule pe o altă foaie de lucru

Pentru a selecta o celulă pe o altă foaie de lucru, trebuie mai întâi să activați foaia folosind metoda Worksheets.Activate. Următorul cod vă va permite să selectați celula A7, pe foaia numită Sheet5:

12	Fișe de lucru („Sheet5”). ActivațiRange ("A1"). Selectați

Manipularea obiectului de selecție în VBA

După ce ați selectat o celulă sau o gamă de celule, puteți consulta Obiectul de selecție pentru a manipula aceste celule. Următorul cod selectează celulele A1: C1 și setează fontul acestor celule la Arial, greutatea fontului la bold, stilul fontului la cursiv și culoarea de umplere la verde.

123456789

Sub FormatSelection ()Interval („A1: C1”). SelectațiSelection.Font.Name = "Arial"Selection.Font.Bold = AdevăratSelection.Font.Italic = AdevăratSelection.Interior.Color = vbGreenSfârșitul Sub

Rezultatul este:

Folosind Cu … Termină cu Construct

Putem repeta exemplul de mai sus folosind declarația With / End With pentru a ne referi la obiectul de selecție o singură dată. Acest lucru economisește tastarea și de obicei face codul mai ușor de citit.

1234567891011

Sub UsingWithEndWithSelection ()Interval ("A1: C1"). SelectațiCu Selecție.Font.Name = "Arial".Font.Bold = Adevărat.Font.Italic = Adevărat.Interior.Color = vbGreenSe termina cuSfârșitul Sub