Partilhar via

Objeto WorksheetFunction (Excel)

  • Artigo

Usado como um contêiner para as funções de planilha do Microsoft Excel que podem ser chamadas do Visual Basic.

Exemplo

Use a propriedade WorksheetFunction do objeto Aplicativo para retornar o objeto WorksheetFunction.

Este exemplo exibe o resultado da aplicação da função de planilha Min ao intervalo A1:C10.

Set myRange = Worksheets("Sheet1").Range("A1:C10") 
answer = Application.WorksheetFunction.Min(myRange) 
MsgBox answer

Este exemplo usa a função de planilha CountA para determinar quantas células na coluna A contêm um valor. Por exemplo, os valores na coluna A devem ser o texto. Neste exemplo é uma verificação ortográfica em cada valor na coluna A e se o valor está escrito incorretamente, inserirá o texto "Errado" na coluna B, Caso contrário, ele insere o texto "Okey" na coluna B.

Sub StartSpelling()
   'Set up your variables
   Dim iRow As Integer
   
   'And define your error handling routine.
   On Error GoTo ERRORHANDLER
   
   'Go through all the cells in column A, and perform a spellcheck on the value.
   'If the value is spelled incorrectly, write "Wrong" in column B; otherwise, write "OK".
   For iRow = 1 To WorksheetFunction.CountA(Columns(1))
      If Application.CheckSpelling( _
         Cells(iRow, 1).Value, , True) = False Then
         Cells(iRow, 2).Value = "Wrong"
      Else
         Cells(iRow, 2).Value = "OK"
      End If
   Next iRow
   Exit Sub

    'Error handling routine.
ERRORHANDLER:
    MsgBox "The spell check feature is not installed!"
    
End Sub

Métodos

Propriedades

Confira também

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.