Compartir a través de

Objeto WorksheetFunction (Excel)

  • Artículo

Se usa como contenedor de las funciones de hoja de cálculo de Microsoft Excel que pueden llamarse desde Visual Basic.

Ejemplo

Use la propiedad WorksheetFunction del objeto Aplicación para devolver el objeto WorksheetFunction.

El ejemplo siguiente muestra el resultado de aplicar la función de hoja de cálculo Min al rango A1:C10.

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

Este ejemplo usa la función de hoja de cálculo CountA para determinar el número de celdas en la columna A que contienen un valor. Para este ejemplo, los valores de la columna A deben ser texto. Este ejemplo utiliza un corrector ortográfico en cada valor de la columna A y, si el valor está escrito de forma incorrecta, inserta el texto "Incorrecto" en la columna B; en caso contrario, inserta el texto "OK" en la columna 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

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.