Propriedade Range.Formula (Excel)

Devolve ou define um valor variante que representa a fórmula de interseção implícita 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 ativadas no Excel, Range.Formula2 substitui Range.Formula. Range.Formula continuará a ser suportado para manter a retrocompatibilidade. Pode encontrar um debate sobre Matrizes Dinâmicas e Intervalo.Fórmula2 no tópico de documentação do 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 Fórmula devolve a fórmula como uma cadeia no mesmo formato que seria apresentado na barra de fórmulas (incluindo o sinal de 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 altera o formato de número para o formato de número de data abreviado predefinido.

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.

As fórmulas definidas com Range.Formula podem acionar 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.