Application worksheetfunction

예제 1 ]Set myRange = Worksheets("Sheet1").Range("A1:C10") answer = Application.WorksheetFunction.Min(myRange) MsgBox answer[예제 2]Sub StartSpelling() Dim iRow As Integer On Error GoTo ERRORHANDLER 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 SubERRORHANDLER: MsgBox "The spell check feature is not installed!" End Sub[예제 2-1]Exc_cnt &#..........

원문링크 : Application worksheetfunction