Объект WorksheetFunction (Excel)WorksheetFunction object (Excel)

Используется как контейнер для функций листа Microsoft Excel, которые можно вызывать из Visual Basic.Used as a container for Microsoft Excel worksheet functions that can be called from Visual Basic.

ПримерExample

Чтобы вернуть объект WorksheetFunction, используйте свойство WorksheetFunction объекта Приложение.Use the WorksheetFunction property of the Application object to return the WorksheetFunction object.

В следующем примере отображается результат применения функции листа Min к диапазону A1:C10.The following example displays the result of applying the Min worksheet function to the range A1:C10.

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

В этом примере используется функция листа CountA, чтобы определить, сколько ячеек в столбце A содержат значение.This example uses the CountA worksheet function to determine how many cells in column A contain a value. В этом примере значения в столбце A должны быть текстом.For this example, the values in column A should be text. В этом примере выполняется проверка орфографии для каждого значения в столбце A, а если значение написано неправильно, вставляет текст "Wrong" (Неправильно) в столбец B; в противном случае в столбец B вставляется текст "ОК".This example does a spell check on each value in column A, and if the value is spelled incorrectly, inserts the text "Wrong" into column B; otherwise, it inserts the text "OK" into column 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

МетодыMethods

СвойстваProperties

См. такжеSee also

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.