Método Application.Evaluate (Excel)

  • Artigo

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. Use 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. Use os operadores range, intersect e union (colon, space e vírgula, respectivamente) com referências.

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

  • Referências externas. Use o ! operador para se referir a uma célula ou a um nome definido em outra pasta de trabalho; por exemplo, Evaluate("[BOOK1.XLS]Sheet1!A1").

  • Objetos de gráfico. Você pode especificar qualquer nome de objeto de gráfico, como Legenda, Área de Plotagem ou Série 1, para acessar as propriedades e métodos desse objeto. Por exemplo, Charts("Chart1").Evaluate("Legend").Font.Name retorna o nome da fonte usada na legenda.

  • Número do Controle de Formulários. Você pode especificar um número, bem como um nome, para se referir ao Controle de Formulários em uma planilha. Por exemplo, para Rótulo localizado em uma planilha (guia Desenvolvedor – Inserir – Controles de Formulário – Rótulo), ambos Evaluate("Label 1").Caption = "Hello" e Evaluate("1").Caption = "Hello" fazer 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.