Вече разгледахме какво представляват променливите и константите в нашия урок за типове данни VBA - Променливи и константи. Сега ще разгледаме обекта range във VBA и как да декларираме променлива като обект range. Обектът range се използва за обозначаване на клетки или множество клетки във VBA. Така че е много полезно да се използва във вашия код.
Щракнете тук за повече информация за VBA диапазони и клетки.
Обектът VBA Range
Можете да използвате обекта range за препратка към една клетка. Например, ако искате да се обърнете към клетка A1 във вашия VBA код, тогава можете да използвате обекта на диапазона VBA, както е показано в кода по -долу:
1234 | Sub ReferringToASingleCellUsingTheRangeObject ()Диапазон ("A1"). Стойност = 89Диапазон ("A1"). Font.Bold = ВярноEnd Sub |
Когато натиснете Run или F5 на клавиатурата си, за да стартирате кода си, получавате следния резултат във вашия действителен работен лист:
Можете да използвате обекта range за препратка към множество клетки или диапазони. Например, ако искате да се позовавате на диапазон от клетки (A1: C1) във вашия VBA код, тогава можете да използвате обекта на диапазона VBA, както е показано в кода по -долу:
123456 | Sub ReferringToMultipleCellsUsingTheRangeObject ()Диапазон ("A1: C1"). Стойност = "ABC"Диапазон ("A1: C1"). Граници (xlEdgeBottom) .LineStyle = xlDoubleEnd Sub |
Когато натиснете Run или F5 на клавиатурата си, за да стартирате кода си, получавате следния резултат във вашия действителен работен лист:
Обявяване на променлива като диапазон
Ще трябва да използвате ключовите думи Dim и Set, когато декларирате променлива като диапазон. Кодът по -долу ви показва как да декларирате променлива като диапазон.
123456789101112 | Sub DeclaringAndSettingARange ()Dim rng As RangeЗадайте rng = Обхват ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Вярноrng. Изберетеrng.Columns.AutoFitEnd Sub |
Резултатът е:
Избор на конкретни редове във вашия обект на диапазон
Можете да изберете конкретни редове във вашия Range Object. Кодът по -долу ви показва как да направите това:
12345678 | Sub SelectingSpecificRowsInTheRangeObject ()Dim rng As RangeЗадайте rng = диапазон ("A1: C3")rng.Rows (3) .ИзберетеEnd Sub |
Резултатът е:
Избиране на конкретни колони във вашия обект на диапазон
Можете да изберете конкретни колони във вашия Range Object. Кодът по -долу ви показва как да направите това:
12345678 | Sub SelectingSpecificColumnsInTheRangeObject ()Dim rng As RangeЗадайте rng = диапазон ("A1: C3")rng. Колони (3). ИзберетеEnd Sub |