Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Возвращает или задает значение Variant , представляющее формулу объекта в нотации массива в стиле A1.
Синтаксис
выражение. Формула2
выражение: переменная, представляющая объект Range.
Примечания
Это свойство недоступно для источников данных OLAP.
В Excel с функцией динамических массивов значение "Диапазон.Формула2" имеет приоритет над значением "Диапазон.Формула". Range.Formula будет и дальше поддерживаться для обеспечения обратной совместимости. Дополнительные сведения о динамических массивах и Range.Formula2 см. в сравнении с формулой 2.
Если ячейка содержит константу, это свойство возвращает константу. Если ячейка пустая, это свойство возвращает пустую строку. Если ячейка содержит формулу, свойство Формула возвращает ее в виде строки в том же формате, который отображался бы в строке формул (включая знак равенства ( = )).
Если в качестве значения или формулы ячейки задана дата, Microsoft Excel проверяет, что эта ячейка уже отформатирована с использованием одного из форматов даты или числового времени. В противном случае Excel заменяет числовой формат на короткий числовой формат даты по умолчанию.
Если диапазон состоит из одного или двух измерений, можно установить формулу для массива Visual Basic с теми же размерами. Аналогично, можно поместить формулу в массив Visual Basic.
Формулы, заданные с помощью Range.Formula2, всегда будут оцениваться как массив и могут переноситься, если возвращается более 1 результата.
Если формула для диапазона из нескольких ячеек задана, этой формулой заполняются все ячейки в диапазоне.
Пример
В приведенном ниже примере кода формула задается для ячейки 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.Formula2 = "=text(now(),""mmm dd yyyy"")"
Selection.Columns.AutoFit
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.