Свойство Application.Range (Excel)

Статья
04/07/2023

Возвращает объект Range , представляющий ячейку или диапазон ячеек.

Синтаксис

expression. Диапазон (ячейка1, ячейка2)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Cell1	Обязательный	Variant	Имя диапазона. Это должна быть ссылка в стиле A1 на языке макроса. Он может содержать оператор диапазона (двоеточие), оператор пересечения (пробел) или оператор объединения (запятая). Он также может включать знаки доллара, но они игнорируются. Используйте локально определенное имя в любой части диапазона. При использовании имени предполагается, что оно записано на языке макроса.
Cell2	Необязательный	Variant	Ячейка в левом верхнем и правом нижнем углах диапазона. Может быть объектом Range, содержащим одну ячейку, весь столбец или всю строку, или строкой, указывающей одну ячейку на языке макроса.

Замечания

При использовании без квалификатора объекта это свойство является ярлыком для ActiveSheet.Range (оно возвращает диапазон из активного листа; если активный лист не является листом, свойство завершается ошибкой).

При применении к объекту Range это свойство выполняется относительно объекта Range. Например, если выбрана ячейка C3, свойство Selection.Range("B1") возвращает ячейку D3, так как оно выполняется относительно объекта Range, возвращаемого свойством Selection. С другой стороны, код ActiveSheet.Range("B1") всегда возвращает ячейку B1.

Пример

В этом примере ячейке A1 на Листе1 присваивается значение 3,14159.

Worksheets("Sheet1").Range("A1").Value = 3.14159

В этом примере создается формула в ячейке A1 на Листе1.

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

В этом примере действия повторяются в ячейках A1:D10 на Листе1. Если в одной из ячеек есть значение меньше 0,001, в коде выполняется замена этого значения на 0 (ноль).

For Each c in Worksheets("Sheet1").Range("A1:D10") 
 If c.Value < .001 Then 
 c.Value = 0 
 End If 
Next c

В этом примере выполняется цикл в диапазоне с именем TestRange и отображается количество пустых ячеек в диапазоне.

numBlanks = 0 
For Each c In Range("TestRange") 
 If c.Value = "" Then 
 numBlanks = numBlanks + 1 
 End If 
Next c 
MsgBox "There are " & numBlanks & " empty cells in this range"

В этом примере для шрифта в ячейках A1:C5 на Листе1 устанавливается курсивное начертание. В примере используется синтаксис 2 свойства Range.

Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _ 
 Font.Italic = True

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через