Compartilhar via

Método Application.Evaluate (Excel)

Converte um nome do Microsoft Excel em um objeto ou um valor.

Sintaxe

expressão. Avaliar (Nome)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Name Obrigatório Variant Uma fórmula ou o nome do objeto usando a convenção de nomenclatura do Microsoft Excel. O comprimento do nome deve ser menor que ou igual a 255 caracteres.

Valor de retorno

Variant

Comentários

Os tipos de nomes a seguir no Microsoft Excel podem ser usados com este método:

  • Fórmulas.

  • Referências de estilo A1. Utilize qualquer referência a uma única célula na notação de estilo A1. Todas as referências são consideradas como referências absolutas.

  • Intervalos. Utilize os operadores de intervalo, interseção e união (dois pontos, espaço e vírgula, respetivamente) com referências.

  • Nomes definidos. Você pode especificar qualquer nome na linguagem da macro.

  • Referências externas. Utilize o ! operador para fazer referência a uma célula ou a um nome definido noutro livro; por exemplo, Evaluate("[BOOK1.XLS]Sheet1!A1").

  • Objetos de gráfico. Pode especificar qualquer nome de objeto de gráfico, como Legenda, Área de Desenho ou Série 1, para aceder às propriedades e métodos desse objeto. Por exemplo, Charts("Chart1").Evaluate("Legend").Font.Name devolve o nome do tipo de letra utilizado na legenda.

  • Número do Controlo de Formulário. Pode especificar um número, bem como um nome, para se referir ao Controlo de Formulários numa folha de cálculo. Por exemplo, para Etiqueta localizada numa folha de cálculo (separador Programador – Inserir – Controlos de Formulário – Etiqueta), faça Evaluate("Label 1").Caption = "Hello"Evaluate("1").Caption = "Hello" o mesmo.

O uso de colchetes (por exemplo, "[A1:C5]") é idêntico a chamar o método Evaluate com um argumento de cadeia de caracteres. Por exemplo, os pares de expressões a seguir são equivalentes.

[a1].Value = 25 
Evaluate("A1").Value = 25 
 
trigVariable = [SIN(45)] 
trigVariable = Evaluate("SIN(45)") 
 
Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1] 
Set firstCellInSheet = _ 
    Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")

A vantagem de usar colchetes é que o código fica menor. A vantagem do uso de Evaluate é que o argumento é uma cadeia de caracteres, de modo que você pode construir a cadeia em seu código ou usar uma variável do Visual Basic.

Exemplo

Este exemplo ativa a formatação em negrito na célula A1 na Planilha1.

Worksheets("Sheet1").Activate 
boldCell = "A1" 
Application.Evaluate(boldCell).Font.Bold = True

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.

  • Last updated on