Am trecut deja în revistă ce sunt variabilele și constantele, în tutorialul nostru VBA Data Types - Variables and Constants. Vom analiza acum obiectul range din VBA și cum să declarăm o variabilă ca obiect range. Obiectul interval este utilizat pentru a indica celule sau mai multe celule din VBA. Deci, este foarte util să îl folosiți în codul dvs.
Faceți clic aici pentru mai multe informații despre gamele și celulele VBA.
Obiectul Range VBA
Puteți utiliza obiectul interval pentru a vă referi la o singură celulă. De exemplu, dacă doriți să faceți referire la celula A1 din codul dvs. VBA, atunci puteți utiliza obiectul interval VBA așa cum se arată în codul de mai jos:
1234 | Sub ReferingToASingleCellUsingTheRangeObject ()Interval ("A1"). Valoare = 89Range ("A1"). Font.Bold = TrueSfârșitul Sub |
Când apăsați Run sau F5 pe tastatură, pentru a rula codul dvs., veți obține următorul rezultat, în foaia de lucru reală:
Puteți utiliza obiectul interval pentru a face referire la mai multe celule sau intervale. De exemplu, dacă doriți să faceți referire la intervalul de celule (A1: C1) în codul dvs. VBA, atunci puteți utiliza obiectul interval VBA așa cum se arată în codul de mai jos:
123456 | Sub ReferringToMultipleCellsUsingTheRangeObject ()Interval ("A1: C1"). Valoare = "ABC"Range ("A1: C1"). Borders (xlEdgeBottom) .LineStyle = xlDoubleSfârșitul Sub |
Când apăsați Run sau F5 pe tastatură, pentru a rula codul dvs., veți obține următorul rezultat, în foaia de lucru reală:
Declararea unei variabile ca gamă
Va trebui să utilizați cuvintele cheie Dim și Set atunci când declarați o variabilă ca interval. Codul de mai jos vă arată cum să declarați o variabilă ca interval.
123456789101112 | Sub DeclaringAndSettingARange ()Dim rng As RangeSetați rng = Range ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Adevăratrng.Selectațirng.Columns.AutoFitSfârșitul Sub |
Rezultatul este:
Selectarea rândurilor specifice din obiectul dvs. de gamă
Puteți selecta anumite rânduri în cadrul obiectului dvs. de gamă. Codul de mai jos vă arată cum să faceți acest lucru:
12345678 | Sub SelectingSpecificRowsInTheRangeObject ()Dim rng As RangeSetați rng = Range ("A1: C3")rng.Rows (3). SelectațiSfârșitul Sub |
Rezultatul este:
Selectarea coloanelor specifice din obiectul dvs. de gamă
Puteți selecta anumite coloane din cadrul obiectului dvs. de gamă. Codul de mai jos vă arată cum să faceți acest lucru:
12345678 | Sub SelectingSpecificColumnsInTheRangeObject ()Dim rng As RangeSetați rng = Range ("A1: C3")rng.Columns (3). SelectațiSfârșitul Sub |