Поделиться через


Объект WorksheetFunction (Excel)

Используется как контейнер для функций листа Microsoft Excel, которые можно вызывать из Visual Basic.

Пример

Чтобы вернуть объект WorksheetFunction, используйте свойство WorksheetFunction объекта Приложение.

В следующем примере отображается результат применения функции листа Min к диапазону A1:C10.

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

В этом примере используется функция листа CountA, чтобы определить, сколько ячеек в столбце A содержат значение. В этом примере значения в столбце A должны быть текстом. В этом примере выполняется проверка орфографии для каждого значения в столбце A, а если значение написано неправильно, вставляет текст "Wrong" (Неправильно) в столбец B; в противном случае в столбец 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

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.