Compartilhar via

Propriedade Range.Formula (Excel)

  • Artigo

Retorna ou define um valor Variant que representa a fórmula implicitamente interseccionada do objeto na notação de estilo A1.

Sintaxe

expressão. Fórmula

expressão Uma variável que representa um objeto de Intervalo.

Comentários

Em Matrizes Dinâmicas habilitadas para Excel, Range.Formula2 substitui Range.Formula. Range.Formula continuará com suporte para manter a backcompatibility. Uma discussão sobre Matrizes Dinâmicas e Range.Formula2 pode ser encontrada no tópico de documentação VBA do Excel Fórmula vs Fórmula2.

Confira também

Propriedade Range.Formula2

Esta propriedade não está disponível para fontes de dados OLAP.

Se a célula contiver uma constante, essa propriedade retornará essa constante. Se a célula estiver vazia, essa propriedade retornará uma cadeia de caracteres vazia. Se a célula contiver uma fórmula, a propriedade Formula retornará a fórmula como uma cadeia de caracteres no mesmo formato que seria exibida na barra de fórmulas (incluindo o sinal igual ( = )).

Se você definir o valor ou a fórmula de uma célula como uma data, O Microsoft Excel verificará se a célula já está formatada com um dos formatos de número de data e hora. Caso contrário, o Excel alterará o formato de número para o formato padrão de número de data curta.

Quando o intervalo é uni ou bidimensional, você pode definir a fórmula como uma matriz do Visual Basic com as mesmas dimensões. Também pode inserir a fórmula em uma matriz do Visual Basic.

Fórmulas definidas usando Range.Formula podem disparar interseção implícita.

A configuração da fórmula para um intervalo de várias células preenche todas as células do intervalo com a fórmula.

Exemplo

O código a seguir define a fórmula para a célula A1 na Planilha1.

Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"

O exemplo de código a seguir define a fórmula para a célula A1 na Planilha1 para exibir a data de hoje.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.