Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Возвращает или задает значение Variant , представляющее неявно пересекающуюся формулу объекта в нотации в стиле A1.
Синтаксис
выражение. Формула
выражение: переменная, представляющая объект Range.
Примечания
В Excel с функцией динамических массивов значение "Диапазон.Формула2" имеет приоритет над значением "Диапазон.Формула". Range.Formula будет и дальше поддерживаться для обеспечения обратной совместимости. Обсуждение динамических массивов и Range.Formula2 можно найти в разделе документации по Excel VBA "Формула и формула2".
См. также
Это свойство недоступно для источников данных OLAP.
Если ячейка содержит константу, это свойство возвращает константу. Если ячейка пустая, это свойство возвращает пустую строку. Если ячейка содержит формулу, свойство Формула возвращает ее в виде строки в том же формате, который отображался бы в строке формул (включая знак равенства ( = )).
Если в качестве значения или формулы ячейки задана дата, Microsoft Excel проверяет, что эта ячейка уже отформатирована с использованием одного из форматов даты или числового времени. В противном случае Excel заменяет числовой формат на короткий числовой формат даты по умолчанию.
Если диапазон состоит из одного или двух измерений, можно установить формулу для массива Visual Basic с теми же размерами. Аналогично, можно поместить формулу в массив Visual Basic.
Формулы, заданные с помощью Range.Formula, могут инициировать неявное пересечение.
Если формула для диапазона из нескольких ячеек задана, этой формулой заполняются все ячейки в диапазоне.
Пример
В приведенном ниже примере кода формула задается для ячейки A1 на листе Лист1.
Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"
В приведенном ниже примере кода формула для ячейки A1 листа 1 задает текущую дату.
Sub InsertTodaysDate()
' This macro will put today's date in cell A1 on Sheet1
Sheets("Sheet1").Select
Range("A1").Select
Selection.Formula = "=text(now(),""mmm dd yyyy"")"
Selection.Columns.AutoFit
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.