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

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

Синтаксис

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

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

Параметры

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

Замечания

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

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

Пример

В этом примере для верхней левой ячейки диапазона B2:C4 на листе 1 активной книги, т. е. ячейки B2, устанавливается значение 3,14159.

With Worksheets("Sheet1").Range("B2:C4")
   .Range("A1").Value = 3.14159
End With

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

Public Sub TruncateSmallValues()
   Dim exampleRange As Excel.Range
   Set exampleRange = Worksheets("Sheet1").Range("B2:Z22") 

   Dim cell As Excel.Range
   For Each cell in exampleRange.Range("A1:B2") 
      If cell.Value < .001 Then 
         cell.Value = 0 
      End If 
   Next cell
End Sub

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

With Worksheets("Sheet1").Range("B2:Z22")
   .Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True 
End With

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

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